Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: seylanm - 17 Ekim 2016, 14:39:11

Başlık: Sayı Atama
Gönderen: seylanm - 17 Ekim 2016, 14:39:11

Arkadaşlar Merhaba,

Numara alma sistemi oluşturuyorum. aşağıdaki gibi kod yazdım butona basıldığında yazdığım textboxlardakiler hücrelere atanıyor ama aynı şekilde butona basınca otomatik sayıda atmasını istiyorum bunu nasıl yapabilirim. :)

Private Sub CommandButton1_Click()


If TextBox1.Text <> "" Then
Son_Dolu_Satir = Sheets("SKNO").Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
    Sheets("SKNO").Range("B" & Bos_Satir).Value = TextBox1.Text
    Sheets("SKNO").Range("C" & Bos_Satir).Value = TextBox2.Text
    Sheets("SKNO").Range("D" & Bos_Satir).Value = TextBox3.Text
    Sheets("SKNO").Range("E" & Bos_Satir).Value = TextBox4.Text
    Sheets("SKNO").Range("F" & Bos_Satir).Value = TextBox5.Text
    Sheets("SKNO").Range("G" & Bos_Satir).Value = TextBox6.Text
    Sheets("SKNO").Range("H" & Bos_Satir).Value = TextBox7.Text
    Sheets("SKNO").Range("I" & Bos_Satir).Value = TextBox8.Text
    For i = 0 To Range("B65530").End(3).Row
    On Error Resume Next
    If (Range("B" & i).Value <> "") Then
    Range("A" & i) = i
    End If
    Next i

    Else
   
    MsgBox ("Eksik Bilgileri Giriniz.")
   
    End If
   
    MsgBox "Kayıt Tamamlanmıştır"
Unload Me
AnaMenu.Show
End Sub

Private Sub userform_activate()
Application.Visible = False
End Sub

Başlık: Ynt: Sayı Atama
Gönderen: seylanm - 17 Ekim 2016, 14:41:25

Burada ki hata for döngüsünü yaparken B2'den başlayıp A2'den atamaya başlasın istiyorum bir türlü ayarlayamadım :-\