target

Hi there, Trying to get this code to work but not having much luck. It currently does nothing. Can anyone see where I am going wrong please? Thank you! Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("d8") = 1 Then...

I'm using GetOpenFilename to load a source file date to my target file - and it works, but I want to bring over some formatting also (in this case, text color). My source cells have any of four font colors, but I'm passing only the cell Value (line in blue below in sample code), so it's only...

Hi Everyone, I'm running the following Macro that inserts a formula into a cell based on the population of another cell on the same sheet. I need to edit the "Target, Range" to Sheet "Import", Cells B:B and can't get it figured out. Any Help would be appreciated. Thank you! Private Sub...

Not sure why this is happening. The following code works fine when sheet is Unprotected but gives a Run-time error '1004' Application-defined or object-defined error when the sheet is protected. All the cells involved are unlocked. Can anyone figure out the issue & provide a solution? I don't...

Dear Experts, I have 2 excel files. I need to fill the column A (Target), with Value in Column D (Remarks) of Target.xls where Column A(Style) and B (Size) of Target.xls Match with Column B (Style) and C (Size) in Source File, for the number of rows based on value in Column C (Total) in Target...

I have a stacked chart that needs conditional formatting dependent on YTD totals. Actuals under YTD Target are formatted Green and over YTD target are formatted Red. The Problem I'm having with the conditional formatting is when a YTD total crosses from Under to Over the Target (or Vice a...

Does anyone know how to keep the undo along with worksheet change event. Here is my code that I am using. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range 'TRACKS DATE ENTRY WAS MARKED AS COMPLETE AND WHO UPDATED IT If Target.Column = 21 Then...

HI Guys i have he below data <tbody> Jan Feb Mar 2017 10 11 5 2017 target 5 9 13 2018 14 13 12 2018 Target 10 15 11 2019 7 3 29 2019 target 10 2 8 </tbody> I am trying to create a graph with months on the X axis and then 3 bars showing , which represents each year and inside...

So i am having an issue with a code that I was using. It makes everything capitalize on the page no matter where. Bu when I use code now it freezes the workbook and then crashes it. Is there anything I can do about this? I have provided the code that i use below Code: Private Sub...

Hi Guys, Can you please help me figure out why the code below doesn't seem to work for MS Excel for Office 365? Thanks in advance! Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G:G")) Is Nothing Then Range("J" & Target.Row).Value = Now End If End Sub...

Hello all Is it possible please to password protect a cell from being changed without a password I would like pop up box when the cell value changes to "Yes" prompting for a password first. This would be for any cell change in column "P" I was trying to use something like this Private Sub...

Hi Everyone, I have a bit of code that works great I have two row merged toghther and they have a formula in it that returns "" on error, so I don't want the macro to run if the target value is "" please help thanks Tony heres my code Private Sub Selected(ByVal Target As Range)...

Hi all, I've been trying for a while to get this to work! I am looking to find "Yes" in my column D range (D24:D75). If found, move to the corresponding cell in column A, copy that value and move it into row 3 in my Target sheet. Then find next "Yes", go to column A, copy, and paste to row 4 in...

For some reason my data keeps being pasted to row three on my target sheet. I wanted it to begin in row 2 on the target sheet, but this code is doing something i dont understand. The first hit I get that fits my criteria, is in row 3 on my Data sheet, and its being placed in row three on my...

Hi I have a macro to hide/unhide columns and update charts on a sheet. There are some areas where users can update information, but the rest I want locked so they can't accidentally mess up the formulas. I tried inserting ActiveSheet.Unprotect at the very beginning and ActiveSheet.Protect at...

Hi I'm after a bit of help please... I'm compiling football stats for my team, and I'm a bit stuck! I have my sheet laid out similar to the table below. In the overall appears column, I'm trying to add up the 3 apps columns using a formula to return what I've typed in the Target column. Can...

Heres the deal: I have two worksheets named Data and Target. I need to get some of the records from the Data sheet moved to the Target sheet. The Target sheet will have the same header row already populated. The difficulty Im having is I need to base this all on the contents of the data in one...

Hi, I have a set of values for dates and corresponding %s 1-Jan-18 8% 1-Feb-18 6% 1-Mar-18 8% I need a single cell formula to find the particular date at which a target cumulative % is achieved For Eg, the target cumulative % of 20% will be achieved on 22-Feb-18

Hi I just learned VBA, I made code like this Dim xRg As Range 'Update by Extendoffice 2018/3/7 Private Sub Worksheet_Change (ByVal Target As Range) On Error Resume Next If Target.Cells.Count> 1 Then Exit Sub Set xRg = Intersect (Range ("c4"), Target) If xRg Is Nothing Then Exit...

Hello all, I am writing a simple macro to count the number of categories in a dynamic range by: Offsetting the bottom of the range (“SectionInfant”) by -1 CountA the resulting range (B4 to Target) Paste the resulting number in F1 I can’t get the following code to work. Any help is...