Add data range to a specific tab based on "Sheet Name"

B

Brice

I currently have a macro (script below) which copy&pastes a data range(from
"CashEntry"
sheet, cells $C$2:$P$3) to the bottom of a list (on another sheet
""CashTransferRecord") .

How can I do this with multiple sheets instead of just one sheet named
"CashTransferRecord"? Basically, I want macro to look at cell X2 on
"CashEntry" tab to identify the tab's name where i want the data range to be
added to. I want to add data records to a multiple selection of tabs solely
based on the name in cell X2. Can you help?

Your help is very appreciated!
_________________________________

Sub CopyPasteOntoDatabase()

Sheets("CashTransferRecord").Select
If Cells(2, 3).Value = Empty Then
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C2").PasteSpecial
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").End(xlUp).Offset(1,
0).Cells.PasteSpecial (xlPasteValues)
End If

End Sub
 
P

Per Jessen

I currently have a macro (script below)  which copy&pastes a data range(from
"CashEntry"
sheet, cells $C$2:$P$3) to the bottom of a list (on another sheet
""CashTransferRecord") .

How can I do this with multiple sheets instead of just one sheet named
"CashTransferRecord"? Basically, I want macro to look at cell X2 on
"CashEntry" tab to identify the tab's name where i want the data range to be
added to. I want to add data records to a multiple selection of tabs solely
based on the name in cell X2. Can you help?

Your help is very appreciated!
_________________________________

Sub CopyPasteOntoDatabase()

Sheets("CashTransferRecord").Select
If Cells(2, 3).Value = Empty Then
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C2").PasteSpecial
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").End(xlUp).Offset(1,
0).Cells.PasteSpecial (xlPasteValues)
End If

End Sub

Hi

If entry in X2 is equal to a sheetname then you can use something like
this.

shName=range("X2").value
sheets(shName).range("C2").pastespecial(xlPasteValues)

Note that it will be case sensitive.

//Per
 
B

Brice

Where exactly do I put this? Can you write the full script (I'm a rookie at
VBA)? Thanks!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top