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

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").Paste Special
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").E nd(xlUp).Offset(1,
0).Cells.PasteSpecial (xlPasteValues)
End If

End Sub

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

On 8 Jan., 04:24, Brice wrote:
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").Paste Special
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").E nd(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(xlPasteVal ues)

Note that it will be case sensitive.

//Per

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

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

"Per Jessen" wrote:

On 8 Jan., 04:24, Brice wrote:
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").Paste Special
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").E nd(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(xlPasteVal ues)

Note that it will be case sensitive.

//Per

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

Hello, can someone help with the below request. I need expert help. Thanks!

"Brice" wrote:

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

"Per Jessen" wrote:

On 8 Jan., 04:24, Brice wrote:
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").Paste Special
(xlPasteValues)
Else
Worksheets("CashEntry").Range("$C$2:$P$3").Copy
Worksheets("CashTransferRecord").Range("C65000").E nd(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(xlPasteVal ues)

Note that it will be case sensitive.

//Per