ilkokul 2 için, 4 işlem çalışması için

[kakkosi]

merhabalar,
kızım için uğraşıyordum.
şöyle ki: sayfa1 A sütunu ve B sütunundaki 50 satırlık rakamları
bir butonla sırayla sayfa 2'de aynı hücrelere (mesela A sütunundaki sırası gelen sayıyı D6 ya B sütunundakini D7 ye) yerleştirmek istiyorum.
öğrencinin bu rakamlarla işi bitince butona basacak sıradaki diğer rakamlar
buralara gelecek.
şimdiden teşekkürler

 

[kakkosi]

asıl amacım aslında şu
butona basınca mesela D6 hücresindeki formul
"=sayfa1!A1" iken "=sayfa1!A2" olsun

bu değişim her butona basışta mesela 50 kere olsun

 

[accilisse]

sn. kakkosi
umarım doğru anlamışımdır
ekteki kodları deneyiniz


Sub deneme()
Sayfa2.Range("a1") = Sayfa2.Range("a1") + 1
i = Sayfa2.Range("a1")
Sayfa2.[d6] = Sayfa1.Cells(i, 1)
If Sayfa2.Range("a1") = 50 Then
Sayfa2.Range("a1") = ""
Else
End If
End Sub

 

[kakkosi]

ilgine teşekkür ederim
harika oldu bir de
bu makroya şunu nasıl ekleriz:
aynı döngüde b1 hücresini d7 ye yazdırma

 

[aliakgul]

End If
Range("d7").value=Range("b1").value
End Sub

 

[kakkosi]

İlgilerinize teşekkür ederim
ikinci olayı yapamadım ama
b sütunundaki veriler için başka makro yaptım ve
aynı butondan iki makro çalıştırarak işimi hallettim
yeni sorunlarım da var ama yeni başlık açmam gerekiyor
tekrar teşekkürler

 

[aliakgul]

End If
Range("d7").value=Range("b1").value
End Sub

Döngü içinde istiyorsanız, alıntı ifadeyi 'end if' ifadesinden önceye alacaksınız.