ŞARTA BAĞLI VERİ AKTARMA

[yıldız57]

Arkadaşlar her zaman ki gibi bir yere takıldım.Daha doğrusu işin kolayını arıyorum ama beni aşıyor bu konu çünki biz daha çömez derler ya öyleyiz(kendi payıma).Ekde gönderdiğim çizelgedeki verileri buton şartına bağlı olarak sayfa 2 deki iligili yerlere yazdırmak istiyorum ama sayfa 2 deki çizelgeyi tek olarak kullanmak istiyorum.İlgili satırın butonuna bastığımda veriler sayfa 2 ye aktarılsın , başka bir satır butonuna bastığımda bir önceki verilerin üzerine yazsın acaba bunu kodlamı yoksa hangi fonksiyonla yapabilirim. Yardımlarınız ve paylaşımlarınız için çok teşekkürler.

 

[abdi]

ilk command buttonun koduna

Private Sub CommandButton1_Click() 'seçim sonuç yerleştir
Set s1 = Sayfa1
Set s2 = Sayfa2
Dim i As Integer

s2.Range("b11").Value = s1.Range("c4").Value 'muhtar adı yaz

For i = 1 To 11 'asilleri ve yedekleri yerleştir
s2.Cells(10 + i, 7).Value = s1.Cells(4, 4 + i).Value 
s2.Cells(10 + i, 12).Value = s1.Cells(4, 16 + i).Value

Next
End Sub

yazıp deneyin diğerlerini sanırım yapabilirsiniz.