[vb:1:22e616c268]Private Sub CommandButton1_Click()
Set s1 = Worksheets("sayfa1")
Set s2 = Worksheets("tablo")
tekrar = Range("b27")
For a = 1 To tekrar
dolusay = WorksheetFunction.CountA(s2.[a1:a60000]) + 1
s2.Cells(dolusay, "a").Value = dolusay - 1
dolusay = WorksheetFunction.CountA(s2.[a1:a60000])
For sut = 2 To 12
s2.Cells(dolusay, sut) = Worksheets("prefer").Cells(2, sut - 1)
Next: Next
For b = 18 To 26
sonsat = s2.[h65536].End(3).Row
If Cells(b, "b") = 1 Then s2.Cells(sonsat + 1, "h") = Cells(b, "c")
Next
End Sub[/vb:1:22e616c268]
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.