veri aktarma

[agunes4242]

Sayfa2, sayfa3, sayfa4 veya sayfa5 herhangi bir sayfanın J1 hücresine giriş yaptığım veriyi sayfaB1 hücresine aktarmak istiyorum .

 

[recepkull]

Ben de daha adil bir dünya istiyorum

Sub aktar()
Sheets("Sayfa1").Range("B1").Value = ActiveSheet.Range("J1").Value
End Sub

 

[agunes4242]

TEŞEKKÜR EDERİM