Maro to copy data and paste based on cell value

[Chandresh]

Hi Team ,

I have 3 sheets Process, Master & Data
Process sheet Cell “C1” has row number Example:”A2”

My macro should copy data from Master sheet “A4:L200” and paste it in “Data”sheet based on cell value in Process sheet Cell “C1(in current case its Cell A2)

My current code doesn't work-


Worksheets("Master").Range("A4:L200").Copy
Worksheets("Data").Range(WB.Sheets("Process").Range("C1").Value).PasteSpecial Paste:=xlPasteValues

Thanks
chan

 

[Akuini]

Try:

Worksheets("Data").Range(WB.Sheets("Process").Range(Range("C1").Value)).PasteSpecial paste:=xlPasteValues

 

[Fluff]

What is WB?
Also what does "doesn't work" mean?, do you get any errors, does nothing happen, does it paste the data to the wrong?

 

[Chandresh]

it says runtime error 424

 

[Fluff]

Can you please answer my other question as well, namely "What is WB"? Have you declared it anywhere?, have you given it a value?

Assuming all sheets are in the same workbook then just remove it.

 

[Chandresh]

Hi Below is the entire code which i am using were i have declared WB as woeksheet

Sub CopyRND()
'
' Chan
'
Dim wS As Workbook
Dim wb As Worksheet
Set wb = wb.Sheets("Process")
'>>>> Copy to Data Sheets
Worksheets("Master").Range("A4:L200").Copy
Worksheets("Data").Range(wb.Sheets("Process").Range(Range("C1").Value)).PasteSpecial Paste:=xlPasteValues
End Sub

 

[Fluff]

As you have declared WB as a worksheet, the code should be

Worksheets("Data").Range(wb.Range("C1").Value).PasteSpecial Paste:=xlPasteValues

 

[Chandresh]

Thanks for your help

 

[Fluff]

Glad we could help & thanks for the feedback