Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Copy data from one sheet to another

Posted on 2013-06-03
2
Medium Priority
?
358 Views
Last Modified: 2013-06-03
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
Comment
Question by:leezac
2 Comments
 
LVL 24

Accepted Solution

by:
Steve earned 2000 total points
ID: 39217431
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
 

Author Closing Comment

by:leezac
ID: 39217518
Thanks - that was perfect and easy to understand. Thank you!!!
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

782 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question