Döngü Yaratmak

[ErcumentaL]

Merhaba Arkadaşlar Kolay gelsin.
http://dosya.co/jql1in8nsirk/denemece.xlsx.html

"C2" Hücresi değeri "1" ise farklı makro
"C2" Hücresi değeri "2" ise farklı makro
çalışmasını istiyorum.


şu işlemi denedim.
Sub Düğme4_Tıklat()
If Range("C2") = "1" Then
Call Düğme1_Tıklat
End If
If Range("C2") = "2" Then
Call Düğme2_Tıklat
End If
End Sub

Bu çalışan makro, işlemi yapınca ikinci satırı komple siliyor. Alttan gelen satır yerine geçiyor o satırla gelen c2 hücresindeki değere göre bu şekilde devam etmesini istiyorum. ancak 1 işlem yapıp bırakıyor. Düğme 4e bir kere tıklayınca c satırındaki veriler bitene kadar işlemi döngü olarak devam ettirmesini istiyorum. yardımcı olabilirseniz çok sevinirim. İyi Çalışmalar.

Buda Çalışan Makro;
Sub Düğme2_Tıklat()
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa3")

s2.Cells(s2.[A65536].End(3).Row + 1, 1) = s1.Cells(2, 1)
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(2, 2)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = Now

Rows("2:2").Select
Selection.Delete Shift:=xlUp
End Sub

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/pg5v1h/ErcumentaL-denemece.zip.html

 

[ErcumentaL]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/pg5v1h/ErcumentaL-denemece.zip.html

Sn. Muygun.
YArdımınız ve zaman ayırdığınız için çok teşekkür ederim. Ancak şöyle bir durum var. VEriyi sayfaya aktarıken aynı zamanda yazıcıdan çıktı alacağım o işlemi yazdıracağım.Yazdırdığım işlemin sıralı olması gerekiyor. A sütunundaki veriler büyükten küçüğe sıralı. Sıralı bir şekilde çıktısını almam gerekiyor. Sizin yaptığınız işlemle değere göre ayrılıyor ancak. Bu şekilde benim işimi görmez. Farklı bir çöüzm olması lazım.

 

[ErcumentaL]

Yardımlarınızı bekliyorum değerli dostlar..