.offset

Hi, I have below two Private Sub Worksheet_Change, how can i merge for two logic 1st VBA Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A3:A5000")) Is Nothing Then Exit Sub Application.EnableEvents = False With Target .Offset(, 2).Value = Date...

Hi, Have this code: Sub Add_Column_for_Pivot() Dim x As Long: x = LastRow(wData) With Range("J1:J" & x) .Value = Evaluate("IF(" & .Address & "," & .Offset(, -5).Address & "&" & .Offset(, -7).Address) End With End Sub Where I want to fill with contatenated values of...

Hello all, I am trying to write VBA to do a specific task, and I am almost there. I simply need a little bit of help to figure out how to do the remaining actions. Here is what I am trying to do with this code: 1) For rows 11 to 185, search range L11:DK185 for the cell value "X" 2) If "X" is...

Hello, would you please improve the macro? The issue arises when I have numbers in both columns (A and B) in Debit and Credit. For example In Debit 1,000 and in Credit 1,200. So, in column A should be (200) after running a Macro. Sub MoveCredits_v3() With Range("A2:A" & Range("B" &...

my spreadsheet has data in Coluns A thru E and j Thru R in F, G and H I have the RGB values and I want to colour column I Usng the follwing code I am able to colour the cells but the macro throws a Run-Time error '13': type mismatch and hightlights .Interior.Color = RGB(.Offset(, -3).Value...

I am needing assistance with adjusting my combo box to allow the data to update based on the month selected. Currently, it is only pulling data for the day (i.e. if "October" is selected, it is only pulling "10/1/2018") To start, I have a VBA code below. It inputs data from a spreadsheet into...

Hy, I have a combobox i want to it fill from a dynamic range. I can fill the combobox with all the data from the range but I don't want to show the rows where the column U has a cell with value. (I need to expand the code below to show only the rows where a cell in column U is empty) Column U...