Kaydet butonuna sıra numarası veren kod yazma

[peleryn]

Herkese Merhabalar;

Aşağıda verdiğim kodlarla ilk boş satıra userform üzerinden textboxlardaki bilgileri yükleyeceğim ancak ilk boş satırdaki ilk hücreye sıra no'su atamam gerekiyor.Yani son dolu satırın ilk hücresi misal:"A50"=48 ise verilerin girileceği satırın ilk hücresi "A51"=49 olacak.Bu işlemi yapmak için nasıl bir kod eklemeliyim?

Set Sh = Sheets("GİRİŞ İŞLEMLERİ")

Son = Sh.Cells(65536, 1).End(xlUp).Row

Sh.Cells(Son + 1, 1) = TextBox1.Text
Sh.Cells(Son + 1, 2) = TextBox2.Text
Sh.Cells(Son + 1, 3) = TextBox3.Text
Sh.Cells(Son + 1, 4) = TextBox4.Text
Sh.Cells(Son + 1, 5) = TextBox5.Text
Sh.Cells(Son + 1, 6) = TextBox6.Text
Sh.Cells(Son + 1, 7) = TextBox7.Text
Sh.Cells(Son + 1, 8) = TextBox8.Text
Sh.Cells(Son + 1, 9) = TextBox9.Text
Sh.Cells(Son + 1, 10) = TextBox10.Text
Sh.Cells(Son + 1, 11) = TextBox11.Text
Sh.Cells(Son + 1, 12) = TextBox22.Text

İlgilenecek olanlara şimdiden teşekkür ederim.

 

[peleryn]

Bu arada kodu paste ederken düzeltmemişim ama Sh.Cells(Son + 1, 1) satırından bahsettiğimi biliyorum.İlgilenecek arkadaşımı bir de bu konuyla meşgul etmiş olmayayım

 

[handemir]

Private Sub cmdkaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = Textbox1.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(Textbox1.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira.Value = say

Son = Sh.Cells(65536, 1).End(xlUp).Row

Sh.Cells(Son + 1, 1) = TextBox1.Text
Sh.Cells(Son + 1, 2) = TextBox2.Text
Sh.Cells(Son + 1, 3) = TextBox3.Text
Sh.Cells(Son + 1, 4) = TextBox4.Text
Sh.Cells(Son + 1, 5) = TextBox5.Text
Sh.Cells(Son + 1, 6) = TextBox6.Text
Sh.Cells(Son + 1, 7) = TextBox7.Text
Sh.Cells(Son + 1, 8) = TextBox8.Text
Sh.Cells(Son + 1, 9) = TextBox9.Text
Sh.Cells(Son + 1, 10) = TextBox10.Text
Sh.Cells(Son + 1, 11) = TextBox11.Text
Sh.Cells(Son + 1, 12) = TextBox22.Text

Workbooks("Kitap1.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
Textbox2.RowSource = "Veri!B2:B" & say + 1
textbox2.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[Recep İpek]

Son = Sh.Cells(65536, 1).End(xlUp).Row

Sh.Cells(Son + 1, 1) = Son - 2

olarak deneyiniz. 2 sayısını başlık satır sayısına göre değiştiriniz.

 

[Orion1]

Bence sıra numarası atmayın.Atayın ama nerede kullanacaksınız.Bence ID no atayın sütunlarınızın bir tanesine.Id no birbirinden benzersiz Sayılardan oluşur.Bunuda max fonksiyonunu kullanarak bulabilirsiniz max +1 şeklinde.İleriki aşamlarda bul güncelle sil gibi işlerinizde bu ıd no yu kullanarak herhangi bir karışıklıpğğa meyil vermeden işeklem leriniz rahatlıkla yapabilirsiniz.Oysa satır nosu kullandığınızda o satırı delete ederseniz ayni satır nodan 2 tane olma olasaılı olabilir.En doğrusu ID no kullanaktır.Bu nu bir kenara yazın.Bir gün karşınıza çıkar.Ama siz isterseniz yinede sıra no kullanabilirsiniz.
Bunun için:

Sh.Cells(Son + 1, 1) = son-1

 

[peleryn]

İlgilerinize teşekkür ederim.

Recep ve Evren Hocam aynı çözümleri önermişsiniz.Bu kodu uyguladığım sayfamda elden yaptığım kayıtlar var ve en son kayıdın sıra numarası 48 (a49 hücresinde)..

Ben kodlarınızı (Son-1)+1 şeklinde kullandığımda 49 sayısını atadı.Bu da ID no kullanımına girmiş oluyor mu?

 

[Orion1]

İlgilerinize teşekkür ederim.

Recep ve Evren Hocam aynı çözümleri önermişsiniz.Bu kodu uyguladığım sayfamda elden yaptığım kayıtlar var ve en son kayıdın sıra numarası 48 (a49 hücresinde)..

Ben kodlarınızı (Son-1)+1 şeklinde kullandığımda 49 sayısını atadı.Bu da ID no kullanımına girmiş oluyor mu?

ID no birbirinde benzersiz sayılardan oluşur .Oysa ben size niye bu şekilde ıd no olarak kulanamayacağınızı önceki mesajımda anlatmıştım.

 

[peleryn]

Peki Hocam ID no olarak kullanabilmem için ne yapmam gerekir?Forumda aradım ama böyle bir bilgiye ulaşamıyorum.Mesajınızda anlattıklarınızı anladım.Bahsettiğiniz sorunlarla ilerde karşılaşmadan önlem almam iyi olacak sanırım