RTowles
Member
would like to get help on a code that I was able to find that I think should help that does not change the formatting of my created excel sheet.
Can someone please advise why the code is not working when I click Run Macros.
Sheet1.Range - I turned this to F3 to test it out. I tried using F:F, but I'm not sure if this code includes blank in the data
Sheet2.Range - A2 is blank and the copied information should have populated to Sheet2 A2 location
if Status = TRUE then copy the entire row and pastecell, why is this not working?
Can someone please advise why the code is not working when I click Run Macros.
Sheet1.Range - I turned this to F3 to test it out. I tried using F:F, but I'm not sure if this code includes blank in the data
Sheet2.Range - A2 is blank and the copied information should have populated to Sheet2 A2 location
if Status = TRUE then copy the entire row and pastecell, why is this not working?
Sub CopyOverBudgetRecords()
Dim StatusCol As Range
Dim Status As Range
Dim PasteCell As Range
Set StatusCol = Sheet1.Range("F3")
For Each Status In StatusCol
If Sheet2.Range("A2") = "" Then
Set PasteCell = Sheet2.Range("A2")
Else
Set PasteCell = Sheet2.Range("A1").End(xlDown).Offset(1, 0)
End If
'If Status = "TRUE" Then Status.EntireRow.Copy PasteCell
Next Status
End Sub