alt alta otomatik kayıt hk.

[hasat10]

Ekteki dosyada sayfa1'in A1:Z1 hücreleri komut tuşu yardımı ile Sayfa2'nin A1:Z1 hücrelerine kaydediliyor. Fakat komut düğmesi her kullanıldığında Sayfa2'de aynı yere kayıt yapması yerine bir alt sıraya yani listenin en alt sırasına kaydetmek istiyorum. Yardımcı olursanız sevnirim.

 

[mesudiye_052]

kod daki A1:Z1'i
A1:Z1000 olarak değiştirin

 

[hasat10]

Demek istediğim farklı. Komut düğmesi ikinci defa kullanıldığında verileri 2. sayfada B1:Z1 hücrelerine kaydetmesi. Yani her defasında bir alt satıra.

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub kayit()
son = Application.CountA(Sayfa2.Columns(1)) + 1
Sayfa1.Range("A1:Z1").Copy Destination:=Sayfa2.Range("a" & son)
End Sub

 

[hasat10]

hamitcan

sen bir numarasın çok sağol.