[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 360
  • Last Modified:

Copy data from one sheet to another

I need VBA help to do the following.    


If column AP sheet 4 is null then
copy ColumnC of sheet 4 to column A sheet 3
then copy column L  of sheet 4 to column B sheet3
then copy column F of sheet 4 to column C Sheet 3

for each row until there are no other blank cells in AP or first blank row for column A Sheet4.

Thanks in advance
0
leezac
Asked:
leezac
1 Solution
 
SteveCommented:
The attached should do it...

Sub CopyData()

Dim sh3 As Worksheet: Set sh3 = ThisWorkbook.Sheets("Sheet3")
Dim sh4 As Worksheet: Set sh4 = ThisWorkbook.Sheets("Sheet4")
Dim RowSh3 As Long, RowSh4 As Long

RowSh3 = sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
RowSh4 = sh4.Range("A" & Rows.Count).End(xlUp).Row

For x = 1 To RowSh4

    If Len(sh4.Cells(x, "AP")) = 0 Then
        
        sh4.Cells(x, "C").Copy sh3.Cells(RowSh3, "A")
        
        sh4.Cells(x, "L").Copy sh3.Cells(RowSh3, "B")
        
        sh4.Cells(x, "F").Copy sh3.Cells(RowSh3, "C")
    
        RowSh3 = RowSh3 + 1
        
    End If

Next x

End Sub

Open in new window


**note** Example workbook uses P rather than AP, but code above uses AP
If you require the code to be commented, feel free to ask.
Example-Copy.xlsm
0
 
leezacAuthor Commented:
Thanks - that was perfect and easy to understand. Thank you!!!
0

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Tackle projects and never again get stuck behind a technical roadblock.
Join Now