Bilgilerin Tabloya aktarılması

[airborne]

Ekli dosyada Sayfa4 de oluştur butonunun arkasına makroyu bir türlü oluşturamadım oluşturacak arkadaşlara şimdiden teşekkürler. (Oluştur butonunun Açıklaması Sayfa4'de bulunmaktadır)

 

[veyselemre]

[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

End Sub
[/vb:1:47beb1824d]

 

[airborne]

Çok Teşekkür Ederim