Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Trying to write macro that will loop through cells in Column"O" and If Not
IsEmpty paste the Value in Column"O" into Column"E" of the same row number. Any thoughts? Any help is greatly appreciated. I have some examples I've picked up from the MVPs in this group, but I can't seem to put it together. (I've also looked at Ron DeBruin's site which is excellent, but I still need help). I use variations of these in current macros (but I can't remember which posts I got these from to give the author credit): Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("A2").Select Selection.AutoFill _ Destination:=Range("A2:A" & LastRow), Type:=xlFillDefault End With Dim i As Integer i = 2 For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, "I").Value = "" Then Cells(i, "I").Value = Cells(i - 1, "I").Value End If Next i -- Thank you so much for your help! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Form If IsEmpty Syntax | Excel Discussion (Misc queries) | |||
Paste names from a source workbook to a destination | Excel Discussion (Misc queries) | |||
paste options - set default to match destination formatting | Excel Discussion (Misc queries) | |||
HDI change paste options default to "Match Destination Formatting | Setting up and Configuration of Excel | |||
If statement - Loop? | Excel Discussion (Misc queries) |