List
The information below would be on worksheet named €śSheet1€ť
A B C Cust id Product code Amount 1 10006 RFUUK 2000.00 2 10010 RFUUK 2000.00 3 10030 RFUOS 3000.00 I need help to write a macro to carry out the following actions, 1. I would like to have the information for each row on a specific position (e.g. A1, A12 and C12) on another worksheet (e.g. named €śSheet2€ť) then print that page. 2. Repeat the above cycle for the each row for the list on €śSheet1€ť. Thanks. Any help appreciated. |
List
Public Sub ProcessData()
Dim i As Long Dim iLastRow As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow .Cells(i, "A").Copy Worksheets("Sheet2").Range("A1") .Cells(i, "B").Copy Worksheets("Sheet2").Range("A12") .Cells(i, "C").Copy Worksheets("Sheet2").Range("C12") Worksheets("Sheet2").PrintOut Next i End With End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "nc" wrote in message ... The information below would be on worksheet named "Sheet1" A B C Cust id Product code Amount 1 10006 RFUUK 2000.00 2 10010 RFUUK 2000.00 3 10030 RFUOS 3000.00 I need help to write a macro to carry out the following actions, 1. I would like to have the information for each row on a specific position (e.g. A1, A12 and C12) on another worksheet (e.g. named "Sheet2") then that page. 2. Repeat the above cycle for the each row for the list on "Sheet1". Thanks. Any help appreciated. |
All times are GMT +1. The time now is 10:39 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com