Veri tabnına 3 kopya satır yazabilirmiyim

[sakiogluo]

b sayfasında 1. satırdaki bilgileri
a sayfasındaki işaretli hücre sayısısı kadar
c sayfasında veri tabanı olarak kaydetmek istiyorum tek satırı hallettim ama çoklu satır olarak acaba mümkünmü?

 

[Levent Menteşoğlu]

Eğer sorunuzu doğru anladı isem aşağıdaki kodu deneyin.

[vb:1:85c27e4693]Private Sub CommandButton1_Click()
tekrar = WorksheetFunction.CountA([a18:a22])
If Range("A18") = "" Then
Exit Sub
End If
For a = 1 To tekrar
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000]) + 1
Worksheets("tablo").Cells(dolusay, "a").Value = dolusay - 1
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000])
For sut = 2 To 11
Worksheets("tablo").Cells(dolusay, sut) = Worksheets("prefer").Cells(2, sut - 1)
Next: Next
End Sub
[/vb:1:85c27e4693]

 

[sakiogluo]

Sorumu gayet iyi anlamışsınız. Ne kadar teşekkür etsem azdır. :hihoho: