Arkadaşlar ekli dosyada bir örneğini koyduğum gibi bir çalışmam var.
Sayfa 2 de 2000. satırlara kadar inmiş durumda ben burda küçük bir örneğini attım.

İsteğim sayfa 1 de kaydet butonuma tıkladığımda 2. sayfadaki en son boş satırıma ilgili bilgileri atıp kaydetmesini istiyorum.2. sayfa ile bir işim yok sadece oraya kaydetmesi benim için yeterli. Yani o sayfa hiç görünmiyecek ama devamlı kayıtları alacak.. Nasıl yapabilirim.

Şimdiden teşekkürler.

Sub Kaydet_Tıklat()
‘örneğinizi açamadım, fakat aşağıdaki kodları programınıza uyarlayabilirsiniz.
‘bu örneği programınıza uyarlayabilirsiniz. Sayfa 2 de A colonuna bakacak, en en son boş hücreye kayıt yapacak.

a = 3
While Worksheets("Sayfa2").Columns(2).Rows(a) <> ""

a = a + 1
Wend
‘aşağıdaki örnekte sayfa2 colon2 ye sayfa1 colon 5 satır 4 deki veriyi kaydedecek. Bu veriyi çoğaltablirsiniz.

Worksheets(“Sayfa2").Columns(2).Rows(a) = Worksheets("Sayfa1").Columns(5).Rows(4)

End sub

Üstad dediklerini uyguladığımda

compile error syntax error

diye bir hata verdi.?

örnek uygulama ektedir.

Şimdi oldu üstadım.Saygılarımla.