Tabloya farklı yerlerden veri kaydı

[sakiogluo]

Halihazırda kullandığım bir tablom var ancak işemrindeki bölümleri tabloya yansıtamıyor. Ekteki dökümanda açıklamaya bakarsanız sevinirim

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[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]