Kayıt Sayısı

[osmanli2]

Açılan Userform üzerinde textbox1 girilen ismi textbox2 deki kayıt sayısı kadar "B" sütununda alt alta kaydeden kodlara ihtiyacım var.Yardımlarnız için şimdilen teşekkürler. örnekli açıklama ektedir.

 

[Ömer]

Merhaba,

Farklı bir isim, yani ikinci kaydetmede eski veriler silinecek mi yoksa altından devam mı edecek?

.

 

[osmanli2]

altından devam edilecek

 

[Ömer]

altından devam edilecek

Private Sub CommandButton1_Click()
 
    Dim son As Long, yson As Long
 
    son = Cells(Rows.Count, "B").End(xlUp).Row + 1
    yson = son + TextBox2.Text - 1
    
    Range("A2") = 1
    Range("A2").DataSeries xlColumns, xlLinear, xlDay, 1, yson - 1
    
    Range("B" & son) = TextBox1.Text
    Range("B" & son).Copy Range("B" & son & ":B" & yson)
    
    TextBox1.Text = "": TextBox2.Text = ""
 
End Sub

.

 

[osmanli2]

Kayıt sayısı

ömer bey, yardımlarınız için çok teşekkür ederim. Sizden ricam ekli dosyada kayıt sayısı ile alakalı bir örnek dosyamız var. Gerekli açıklamalar dosya içinde mevcut. Bu konudaki yardımlarınızı esirgemezseniz çok seviniriz. Saygılar.

 

[İhsan Tank]

ömer bey, yardımlarınız için çok teşekkür ederim. Sizden ricam ekli dosyada kayıt sayısı ile alakalı bir örnek dosyamız var. Gerekli açıklamalar dosya içinde mevcut. Bu konudaki yardımlarınızı esirgemezseniz çok seviniriz. Saygılar.

Merhaba
Sayın : Osmanlı
Sorunuzun bu konu ile alakası bulunmuyor lütfen yeni bir konu açarak yardım isteyiniz ayrıca açıklamalarınızı konu içinde yapmaya özen gösteriniz.