Sıra no

[yağızbaba]

Yaptığım Forma otomatik sıra no ve textboxlara girilen verilerin excelde sırayla aşağı doğru kaydedilmesi ile ilgili basit bir kod yazabilirmisiniz.Teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde kullanabilirsiniz..

Private Sub CommandButton1_Click()
 
For i = 1 To 2
    If Controls("Textbox" & i) = "" Then
        MsgBox "Veri Girişi Eksiktir.!", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
            TextBox1.SetFocus
            Exit Sub
    End If
Next i
 
son = [A65536].End(3).Row + 1
 
Range("A" & son) = son - 1
Range("B" & son) = TextBox1.Text
Range("C" & son) = TextBox2.Text
 
TextBox1 = "": TextBox2 = ""
TextBox1.SetFocus
 
End Sub

.

 

[yağızbaba]

Hocam sağol ama sıra no ya 6 dan başlıyo.Bende nedenini bulamadım kod da A7 hücresi yle ilgili bir yer de yok ama...
Birde sıra no veren kodla,alt alta kaydeden kodu ayrabilirmiyiz hangisi ne olduğunu anlamadım.
For i = 1 To 2
If Controls("Textbox" & i) = "" Then
MsgBox "Veri Girişi Eksiktir.!", vbInformation, "www.excel.web.tr"
TextBox1.SetFocus
Exit Sub
End If
Next i
bu kod sıra no için olanı galiba..

 

[Ömer]

A:C aralığını silip deneyin..

.

 

[yağızbaba]

Sağolun oldu.Sadece sıra no verme kodu hangisi onuda belirtilseniz sevinirim.Basit sıra no verme kodu..

 

[Ömer]

son = [A65536].End(3).Row + 1

Range("A" & son) = son - 1

Bu satırlar yeterli olur..

.

 

[yağızbaba]

Çok teşkkür ederim hocam Allah Razı olsun .Öğreneceğiz heralde ama zaman alacak..

 

[Ömer]

Tümünü kısaca açıklamaya çalıştım..

Private Sub CommandButton1_Click()
 
[COLOR=green]'*****Texbox'lara eksik veri girişi kontrolü için döngü kuruldu.*****[/COLOR]
For i = 1 To 2 [COLOR=#008000]' 2 tane textbox olduğu için [/COLOR]
    If Controls("Textbox" & i) = "" Then
        MsgBox "Veri Girişi Eksiktir.!", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
            TextBox1.SetFocus
            Exit Sub
    End If
Next i
[COLOR=green]'***************** Döngü bitimi *******************************[/COLOR]
 
son = [A65536].End(3).Row + 1 [COLOR=green]' A sütununda son satırdan bir sonraki bulunur.[/COLOR]
 
Range("A" & son) = son - 1 [COLOR=green]' A sütununa sıra no yazılır.[/COLOR]
Range("B" & son) = TextBox1.Text[COLOR=green] ' B sütununa ad yazılır.[/COLOR]
Range("C" & son) = TextBox2.Text [COLOR=green]' C sürununa soyad yazlır.[/COLOR]
 
TextBox1 = "": TextBox2 = "" [COLOR=green]' Veri girişinden sonra textboxlar temizlenir.[/COLOR]
TextBox1.SetFocus[COLOR=green] ' veri girişinden sonra imleç textbox1 e gider.[/COLOR]
 
End Sub

 

[yağızbaba]

Sağolun Hocam.Teşekkürler...