başka sayfaya kopyalama sorunu

[sansar]

Arkadaşlar ben foruma yeni katılıyorum. ilk mesajım.
Eklediğim dosyada sayfa1 deki formu her doldurduğumda buradaki F ve G sütünlarının sayfa2 deki C ve D sütünuna kopyalanmasını, sayfa1 i tekrar doldurduğumda F ve G sütününun sayfa2 deki E ve F sütunununa kopyalanmasını istiyorum. bu konuda yardımlarınızı bekliyorum. tşkkr.Ekli dosyayı görüntüle 7256

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 de oluşturacağınız bir butona bağlayın. Sayfa1 deki tabloyu doldurduktan sonra butona bastığınızda veriler sayfa2 ye aktarılacaktır.

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
sut = s2.Cells(3, 256).End(xlToLeft).Column + 1
sat = s2.[a65536].End(3).Row
s2.Range(s2.Cells(3, sut), s2.Cells(sat, sut + 1)) = s1.Range("c3:d" & s1.[b65536].End(3).Row).Value
MsgBox "Veriler aktarıldı."
End Sub

 

[sansar]

Syn leventm

İlginizden dolayı çok teşekkür ederim. makro istediğim gibi olmuş SLM lar SYGLR