Döngü ile kayıt

[seddur]

Textbox1 ve 2 den sayfaya veri girişi yapılacak. "A" ve "B" sütunlarına 15 satır kayıt yaptıktan sonra yan sütuna geçerek "C" ve "D" sütunlarına yine 15 satır kayıt yapacak.Bu şekilde devam edecek for-next döngüsü ile yapılmış hızlı çalışan bir koda ihtiyacım var.Şu an uygulamakta olduğum kod yavaş çalışıyor.İlgilenecek arkadaşa teşekkürler.

 

[YUSUF44]

Aşağıdaki gibi bir yöntem olabilir:

Sub bosbul()
sut = Cells(15, Columns.Count).End(xlToLeft).Column
If Cells(15, sut) <> "" Then
    sut = sut + 1
End If
sat = Cells(Rows.Count, sut).End(3).Row + 1
If Cells(sat - 1, sut) = "" Then sat = sat - 1
Cells(sat, sut) = TextBox1.Value
Cells(sat, sut + 1) = TextBox2.Value
End Sub

 

[seddur]

Çalıştırdım.Hızlı çalışoyor.Sağol.Eksik olma