[vb:1:47beb1824d]Sub olustur()
Set s1 = Sheets("sayfa1")
Set s4 = Sheets("sayfa4")
son_s1 = s1.[a65536].End(3).Row
satir = 5
say = 0
For X = 1 To son_s1
If s1.Cells(X, "K") = "Evet" Then
say = say + 1
satir = satir + 1
If satir = 26 Then satir = 53
If satir = 73 Then satir = 103
If satir > 123 Then Exit Sub
s4.Cells(satir, "A") = say
s4.Cells(satir, "B") = s1.Cells(X, "B")
s4.Cells(satir, "C") = s1.Cells(X, "C")
s4.Cells(satir, "G") = s1.Cells(X, "G")
s4.Cells(satir, "H") = s1.Cells(X, "F")
s4.Cells(satir, "I") = s1.Cells(X, "E")
s4.Cells(satir, "J") = s1.Cells(X, "J")
End If
Next
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.