Veri aktarımıyla ilgili

[firat92]

Ödevime yardım edebilirmisiniz? sayfa 1 deki bilgileri alıp sayfa 2 deki kimlik kartına otomatik yazdıracak makro nasıl atanır?

 

[irfancantr]

Merhaba,

Makro şartınız yoksa formül ile hazırladım. No: yazan kısmı değiştirdikçe bilgiler de değişecektir. Düşeyara formülü ile hazırlanmıştır.

 

[firat92]

Teşekkürler ama makro ile olması gerekiyor :S
Şöyle bi code var ama yapamıyorum:
Sub Düğme10_Tıklat()


AktifSatir = ActiveCell.Row

Rows(ActiveCell.Row).Select

Worksheets("sayfa2").Cells(2, 2) = Cells(AktifSatir, 1).Value
Worksheets("sayfa2").Cells(2, 3) = Cells(AktifSatir, 2).Value

Worksheets("sayfa2").Cells(6, 2) = Cells(AktifSatir + 1, 1).Value
Worksheets("sayfa2").Cells(6, 3) = Cells(AktifSatir + 1, 2).Value

Worksheets("sayfa2").Cells(10, 2) = Cells(AktifSatir + 2, 1).Value
Worksheets("sayfa2").Cells(10, 3) = Cells(AktifSatir + 2, 2).Value

Worksheets("sayfa2").Cells(14, 2) = Cells(AktifSatir + 3, 1).Value
Worksheets("sayfa2").Cells(14, 3) = Cells(AktifSatir + 3, 2).Value

Worksheets("sayfa2").Cells(18, 2) = Cells(AktifSatir + 4, 1).Value
Worksheets("sayfa2").Cells(18, 3) = Cells(AktifSatir + 4, 2).Value

End Sub

 

[firat92]

lütfen yardımmmmm