Solved

Copy data from one sheet to another

Posted on 2013-06-03
2
348 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 24

Accepted Solution

by:
Steve earned 500 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

Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

Question has a verified solution.

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

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

626 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