Kaydetme kodu hatalı işlem yapıyor

[frksfu]

ekteki dosyamı kaydediyorum herseferinde ID sayısı yazmadığı için devamlı üstüne yani 1 ci satıra kaydediyor . beynim durdu herhalde Koddaki Hatamı söylerseniz memnun olurum.

 

[Korhan Ayhan]

Selamlar,

Formunuzun kod bölümünü açtığınızda en üst satıra aşağıdaki kodu ekleyin.

Dim Yeni_mi As Boolean

Daha sonra formunuzun aktivate olayındaki kodu aşağıdaki şekilde değiştirin.

Private Sub UserForm_Activate()
    TextBox38 = Format(Time, "hh:mm")
    Yeni_mi = True
End Sub

Kaydetme işleminde kullandığınız butona ait kodda aşağıdaki kısmı bir sonraki ile değiştirin ve deneyin.

Son_Dolu_Satir = .Range("A1:65536").End(xlUp).Row

[COLOR=red]Son_Dolu_Satir = .Range("A65536").End(xlUp).Row[/COLOR]

 

[frksfu]

Sn Korhan Ayhan Çok teşekkür ederim