Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and blank cell then Do this.....
Hello All
I hope someone can help me with this ASAP I have a Sheet that in column G I want my VBA to look down for a blank cell, when it finds a blank cell goto column S (same row that the blank in G was found) and do a copy, go up one cell, paste special/value. Then go back G and continue on..etc. etc. this is what I have so far and it works, but only for one copy and paste in column S How can I define the "range" in S so that I do not have to use a cell ref. exp. "S3" Any help would be good Thank you!! Sub CopyPaste() Dim Counter Dim i As Integer Counter = 600 Range("g1").Select ActiveCell.Select For i = 1 To Counter If ActiveCell = "" Then Range("S3").Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(-1, 0).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Else ActiveCell.Offset(1, 0).Select End If Next i End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find the first blank row in a cell | Excel Discussion (Misc queries) | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions | |||
Find 1st blank cell in column & sum to the same row in another col | Excel Worksheet Functions | |||
IF function which can find a blank cell | Excel Worksheet Functions | |||
find the first and last non blank cell in a row | Excel Discussion (Misc queries) |