for next döngüsü

[öğrtm]

'Okul Bilgileri
Sheets.Add.Name = Me.TextBox2 & "OkulBilgileri"
For c = 1 To Sheets(Me.TextBox2 & "OkulBilgileri").[a1].End(xlToRight).Column
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c).Value = Me.TextBox1
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c + 1).Value = Me.TextBox2
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c + 2).Value = Me.TextBox29
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(2, c + 2).Value = Me.ComboBox10
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(3, c + 2).Value = Me.TextBox30
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(4, c + 2).Value = Me.TextBox31

Next c

mrb
yapmaya çalıştığım şey yeni oluşan sayfada a1 e göre en SAĞDA ki boş sütunu bulup o sütuna isim soy isim,bir yantarafına tc kimlik no,bir yan tarafına mezun olduğu okulun ismi ve okul isminin altındaki üç satırada diğer birkaç bilgiyi yazdırmak istiyorum.fakat döngüyü kuramadım.yardım ederseniz sevinirim.

 

[uzmanamele]

merhaba

örnek dosya ekleseydiniz daha kolay olurdu, bunu dener misiniz.

Sheets.Add.Name = Me.TextBox2 & "OkulBilgileri"
c = Sheets(Me.TextBox2 & "OkulBilgileri").[a1].End(xlToRight).Column +1
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c).Value = Me.TextBox1
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c + 1).Value = Me.TextBox2
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(1, c + 2).Value = Me.TextBox29
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(2, c + 2).Value = Me.ComboBox10
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(3, c + 2).Value = Me.TextBox30
Sheets(Me.TextBox2 & "OkulBilgileri").Cells(4, c + 2).Value = Me.TextBox31

 

[öğrtm]

sayın uzmanamele yardımlarınız için teşekkür ederim.kodları deneyeceğim.iyi günler.