sıra numarasının otomatik olarak artması?

[udentr2002]

merhaba arkadaşlar ekli dosyada bir örnekle anlatmaya çalıştım. Kısacası;
formdaki kaydet tuşuna bastığımda A stünundaki Sıra no bölümününde otomatik olarak numaralandırılmasını istiyorum (1, 2, 3, ...) gibi bunun için nasıl bir kod yazabilirim.

İlgilene tüm hocalarıma şimdiden teşekkür ederim.

SAYGILARIMLA

 

[Halit TÜRK]

Kodu denermisiniz...

Sub Sira_Duzenle()
'ActiveSheet.Select
'Range("A4:A500").ClearContents
For i = 4 To [B500].End(4).Row
If Cells(i, "b") > "" Then
j = j + 1
Cells(i, 1).Value = j
End If
Next i

End Sub

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
a = s1.[b65536].End(3).Row + 1
[COLOR=red][B]s1.Cells(a, "a") = a - 3
[/B][/COLOR]s1.Cells(a, "b") = TextBox1
s1.Cells(a, "c") = TextBox2
s1.Cells(a, "d") = TextBox3
End Sub

 

[udentr2002]

hocam

Necdet hocam çok teşekkür ederim

 

[taseraydin]

bir ilave daha olabilirmi

Değerli üstada arkadaşlar bu koda bir ilave daha yapabilirmiyiz
adı ve soyadı aynı olan giriş durumunda kayıt yapılmasın
saygılar

 

[Necdet]

Merhaba,

Sadece Ad ve Sadece Soyad teklik açısından belirgin olmadığı için, bir döngü yardımıyla hem Ad, hem de Soyadın eşitliğine bakmak gerek sanırım.

Başka yöntem olabilir mi bilemiyeceğim.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
a = s1.[b65536].End(3).Row + 1
Var = 0
For i = 4 To a - 1
    If s1.Cells(i, "B") = TextBox1 And s1.Cells(i, "C") = TextBox2 Then
            Var = 1
    Exit For
    End If
Next i
If Var = 0 Then
    s1.Cells(a, "A") = a - 3
    s1.Cells(a, "b") = TextBox1
    s1.Cells(a, "c") = TextBox2
    s1.Cells(a, "d") = TextBox3
End If
End Sub

 

[taseraydin]

isim ve soyad aynı olması durumunda kaydetmiyor elinize sağlık ancak bir uyar mesajı verebilirmi ..........isim sahıs daha önce girilmiştir diye v.s
ilginize teşekür ederim

 

[Necdet]

Merhaba,

Uyarı verilebilir.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
a = s1.[b65536].End(3).Row + 1
Var = 0
For i = 4 To a - 1
    If s1.Cells(i, "B") = TextBox1 And s1.Cells(i, "C") = TextBox2 Then
            Var = 1
[COLOR=red]            MsgBox TextBox1 & " " & TextBox2 & " Daha Önce Girildi..."
            TextBox1 = ""
            TextBox2 = ""
            TextBox3 = ""
[/COLOR]    Exit For
    End If
Next i
If Var = 0 Then
    s1.Cells(a, "A") = a - 3
    s1.Cells(a, "b") = TextBox1
    s1.Cells(a, "c") = TextBox2
    s1.Cells(a, "d") = TextBox3
End If
End Sub

 

[Mahmut Kök]

Merhaba,

Sadece Ad ve Sadece Soyad teklik açısından belirgin olmadığı için, bir döngü yardımıyla hem Ad, hem de Soyadın eşitliğine bakmak gerek sanırım.

Başka yöntem olabilir mi bilemiyeceğim.

Topla.çarpım (SUMPRODUCT) yöntemi de kullanılabilir sanırım. O zaman fazla sayıdaki veride döngünün yol açacağı hız kaybı da azalacaktır.

 

[Mahmut Kök]

Ekteki örnekte topla.çarpım yöntemi kullanılmıştır.

 

[taseraydin]

teşekür ederim

elinize sağlık faydalı oldu