Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
did i do this right (macro)
Where am I going wronge here? I have a workbook where I want to fill in empty spots on sheet 2 with data on sheet1. if you could let me know or give me the code that works I usually do this all myself Its just in a new area of coding and im on a time schedule. Code: -------------------- Sub Update() ' Declare Variables Dim pColA As String Dim colARange As String Dim uContinue As Boolean Dim uRow As Integer Dim finColA As String Dim finRow As Integer ' Initialize Variables uRow = 1 uContinue = True ' Loop through all rows in column 'A' until blank reached While uContinue = True Sheets("sheet2").Select uRow = uRow + 1 colARange = "A" & CStr(uRow) If Len(Range(colARange).Value) = 0 Then uContinue = False End If For Each Item In Cells(uRow, 1) pColA = ActiveCell.Value ' Copy From Column I in "sheet1" Range("B" & uRow).Select Selection.Copy ' Paste into Column C in "sheet2" Sheets("sheet1").Select Set finColA = Cells.Find(pColA, LookIn:=xlValues) finRow = finColA.Row Range("A" & finRow).Select ActiveSheet.Paste Next Wend MsgBox ("Update Complete.") End Sub -------------------- Thanks logic -- logic-phyber ------------------------------------------------------------------------ logic-phyber's Profile: http://www.excelforum.com/member.php...o&userid=37516 View this thread: http://www.excelforum.com/showthread...hreadid=571638 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error when running cut & paste macro | Excel Worksheet Functions | |||
Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
Closing File Error | Excel Discussion (Misc queries) | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |