Belirli Verileri Kaydetme

[ercanbayram]

Arkadaşlar, ekteki dosyada Kaydetme butonuna bastığımda, verilerini kaydetmek istediğim hücreleri nasıl bir kodla kaydedebilirim? örnekte herşeyi hazır. Şimdiden teşekkür ederim...

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub Düğme28_Tıklat()
Set S1 = Sheets("sayfa")
Set s2 = Sheets("Kayitlar")
s2.[A1] = S1.[X6]
s2.[B1] = S1.[X7]
s2.[C1] = S1.[X8]
End Sub

 

[ercanbayram]

Sub Düğme28_Tıklat()
Set S1 = Sheets("sayfa")
Set s2 = Sheets("Kayitlar")
s2.[A1] = S1.[X6]
s2.[B1] = S1.[X7]
s2.[C1] = S1.[X8]
End Sub

sorumu eksik sordum. kusuruma bakmayın. bu örnekte kayitlar sayfasındaki ilk üç sütuna (bu kısım eksiksiz), satır olarakda kaydedilen son satırın altına kaydedilecek. Yani her kayıt butonuna bastığımda boş olan bir altaki ilk satıra kaydolacak veri...

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodu bununla değiştiriniz.

Sub Düğme28_Tıklat()
Set S1 = Sheets("sayfa")
Set S2 = Sheets("Kayitlar")
SON = S2.[A65536].End(3).Row
S2.Range("A" & SON + 1) = S1.[X6]
S2.Range("B" & SON + 1) = S1.[X7]
S2.Range("C" & SON + 1) = S1.[X8]
End Sub