for...next döngüsü ile veri girme

[seven58]

Merhaba arkadaşlar,

Forumda ne kadar araştırıp yapmaya çalıştıysamda bir türlü beceremedim. Ek' te bulunan dosyada user form aracılığı ile bilgileri exceldeki tabloya for...next döngüsünü kullanarak girmek istiyorum. Bu konuda yardım ederseniz çok sevinirim.

İlgilenen arkadaşlara teşekkür ederim.

 

[Ayhan Ercan]

Merhaba,

Örnek dosyanızdaki kaydet butonuna aşağıdaki kodu yazarak deneyiniz.

Private Sub CommandButton1_Click()
son = Sheets("Sayfa1").[A65536].End(3).Row + 1
For i = 1 To 8
Cells(son, i + 1) = Controls("Textbox" & i).Value
Next
Cells(son, 1) = son - 2
Cells(son, 10) = ComboBox1
End Sub

 

[seven58]

Verdiğiniz kodu denedim ve tam istediğim gibi çalışıyor. Yardımınız için gerçekten çok teşekkür ederim Sayın Ayhan Ercan.

 

[Ayhan Ercan]

Verdiğiniz kodu denedim ve tam istediğim gibi çalışıyor. Yardımınız için gerçekten çok teşekkür ederim Sayın Ayhan Ercan.

Rica ederim.
İyi Çalışmalar...