VBA code to copy cell value

[sunilobo]

I need help in VBA code to copy cell value from rows of the sheet1 to other worksheets in the same workbook

Sheet1 - A5 to sheet2-F10
Sheet1 - A6 to sheet3-F10
Sheet1 - A7 to sheet4-F10

Thanks in advance

 

[mohadin]

So do you mean there is no table with N's & sheets names & the destination F10?
Do you want hard codded all of them?

 

[mohadin]

May be

Sub test1()
    a = Array("B1-001", "B1-002", "B1-101", "B1-102", "B1-201", "B1-202")
    For i = 0 To UBound(a)
        With Sheets(a(i)).Range("F10")
          .Value = Sheets("sheet1").Range("N" & i + 8)
        End With
    Next
End Sub

 

[sunilobo]

Thank you so much it is working now. It is really great help.

I need to convert these worksheets in PDF and save them on my computer do you have a VBA code for it. Thanks for the help again

 

[mohadin]

Sub test1()
    a = Array("B1-001", "B1-002", "B1-101", "B1-102", "B1-201", "B1-202")
    For i = 0 To UBound(a)
        With Sheets(a(i)).Range("F10")
          .Value = Sheets("sheet1").Range("N" & i + 8)
          .Parent.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                        "C:\" & a(i) & ".pdf" _
                                        , Quality:=xlQualityStandard, IncludeDocProperties:=True
        End With
    Next
End Sub

This to save PDF's on C Dirve Change "C:\"as you wish

 

[sunilobo]

Thank you, sir. You guys are genius.

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe

 

[sunilobo]

You are welcome
And thank you for the feedback
Be happy & safe

You are welcome
And thank you for the feedback
Be happy & safe

I am doing something wrong can you please the path

Sub test1()
a = Array("B1-001", "B1-002", "B1-101", "B1-102", "B1-201", "B1-202")
For i = 0 To UBound(a)
With Sheets(a(i)).Range("F10")
.Value = Sheets("sheet1").Range("N" & i + 8)
.Parent.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\"\Users\sunil\Desktop\Solitude/Billing" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True
End With
Next
End Sub

 

[mohadin]

"C:\Users\sunil\Desktop\Solitude/Billing\" & a(i) & ".pdf"

 

[sunilobo]

Its working. Thanks

 

[mohadin]