[ÇÖZÜLDÜ] Kaydederken verilen sıra numarası hk.

[enteresan]

Userform ile girdiğim bilgileri sayfaya kaydederken aşağıdaki kodu kullanmaktayım. Ne yaparsam yapayım her seferinde sıra numarasını 2 den başlayarak atmaktadır. Aşağıdaki kodun neresinde değişiklik yaparsam sıra numarasını 1'den başlatabilirim. İlgilenenlere teşekkür ederim...

Private Sub cmdkaydet_Click()
If ComboBox1.Value = "" Then
MsgBox "DİKKAT Herhangi bir tanımlama yapmadınız!", vbInformation, "KAYIT"
Exit Sub

Else
say = WorksheetFunction.CountA(Range("A:A"))
saz = WorksheetFunction.CountA(Range("B:B"))

TextBox4.Value = say
TextBox5.Value = saz

[B1] = TextBox1
Cells(say + 1, 1).Value = TextBox4.Value
Cells(say + 1, 2).Value = TextBox5.Value
Cells(say + 1, 3).Value = "GELEN"
Cells(say + 1, 4).Value = ComboBox1.Value
Cells(say + 1, 5).Value = TextBox9.Value
Cells(say + 1, 6).Value = TextBox7.Value
Cells(say + 1, 7).Value = TextBox6.Value
Cells(say + 1, 8).Value = TextBox8.Value
Cells(say + 1, 9).Value = ComboBox3.Value

MsgBox "Verileriniz Kaydedildi", vbInformation, "KAYIT"
cmdtemizle_Click
End If
End Sub

 

[Orion1]

Sıra numarasını hangi nesneden yazdırmaktasınız?

 

[Recep İpek]

say = WorksheetFunction.CountA(Range("A:A"))

satırı sanırım A kolonunun başlığınıda saymaktadır.Dolayısıyla 2 olması doğaldır.

TextBox4.Value = say -1 yapabilirsiniz.

 

[enteresan]

say = WorksheetFunction.CountA(Range("A:A"))

satırı sanırım A kolonunun başlığınıda saymaktadır.Dolayısıyla 2 olması doğaldır.

TextBox4.Value = say -1 yapabilirsiniz.

İlgilendiği için sayın Orion'a da teşekkür ederim ama, Sayın Ripek, muhteşemsiniz. Saygılarımla...

 

[Recep İpek]

Saygı bizden....

say = WorksheetFunction.CountA(Range("A2:A10000"))

olarakta kullanabilirsiniz.

 

[enteresan]

Saygı bizden....

say = WorksheetFunction.CountA(Range("A2:A10000"))

olarakta kullanabilirsiniz.

Sayın ripek,
çok teşekkür ederim ve özür dileyerek küçük bir ilave için yardım isteyebilir miyim ?
Burada otomatik numara değil de benim belirleyeceğim bir numaradan itibaren sıra numarası vermesini sağlamak için bu kodu nasıl değiştirebilirim.?
Yani başlangıçta ben bir numara belirleyeyim ve bu numaradan sonrakini ilk kayda versin dersem nasıl yapmalıyım.
Sonsuz saygı ve sevgilerimle...

 

[Recep İpek]

say = WorksheetFunction.CountA(Range("A2:A10000")) + 20 kodunu bir denermisiniz?

20 sayısını başlangıç sayısına kendinize göre uyarlayabilirsiniz.

 

[enteresan]

say = WorksheetFunction.CountA(Range("A2:A10000")) + 20 kodunu bir denermisiniz?

20 sayısını başlangıç sayısına kendinize göre uyarlayabilirsiniz.

Sayın ripek, sanırım ben anlatamadım. Demek istediğim şu ki, sayfada herhangi bir hücreye yazacağım rakamı dikkate alsın ve o rakamdan sonraki sıra numarasını ilk numara olarak versin istiyorum. Yani makroyu her seferinde değiştirmek istemiyorum.
Teşekkür ederim...

 

[Recep İpek]

Olması istediğiniz şeklide göstererek küçük bir örnek ekleyebilirmisiniz?

 

[enteresan]

Olması istediğiniz şeklide göstererek küçük bir örnek ekleyebilirmisiniz?

sayın ripek, size çok teşekkür ederim, küçük bir örnek eklemeye çalışırken şu şekilde bir deneme yaptım ve istediğim gibi oldu.

Sayfada H1 hücresine yazdığım rakamı makroya dahil ettim ve yeni kayıt numarası olarak bu yazdığım rakamın bir fazlasını verdi.

TextBox4.Value = [H1] + 1

Sayenizde bunu da çözmüş olduk. Çok teşekkür ederim. İyi geceler.

 

[Recep İpek]

Çözdüğünüze sevindim.
Benim merak ettiğim nokta, bundan sonraki kayıtlarda sıra numarası ne olacak?Yine [H1] + 1 mi olacak?

 

[enteresan]

Çözdüğünüze sevindim.
Benim merak ettiğim nokta, bundan sonraki kayıtlarda sıra numarası ne olacak?Yine [H1] + 1 mi olacak?

Sayın ripek, buradaki H1 hücresi her gün tarafımdan yenilenecek. Yani bir önceki günün en son rakamını ben H1 hücresine girererek devam edeceğim. Aslında bunu da otomatik olarak yapabilsem çok iyi olacak ama sanırım biraz uğraşmam gerekecek. Yani gün sonunda en son numarayı değer olarak otomatikman H1'e kaydettirecek bir kod gerekecek. Sanırım halledebilirim. Saygılarımla...