formu sildiğimde otomatik sıra no

[SOYOLA]

Sayın üstadlarım ekteki dosyada şablon formunu her sildiğide teklif no yu otomatik olarak verebileceğim bir makro veye çözüm varmı acaba

 

[Korhan Ayhan]

Merhaba,

"SİL" isimli makronuzu aşağıdaki şekilde değiştirin.

Sub SİL()
    No = Range("C5")
    Range("I4:I7").ClearContents
    Range("C4:C7").ClearContents
    Range("C11:J25").ClearContents
    Range("C5") = No + 1
End Sub

Ayrıca formunuza aşağıdaki kodu ilave edip deneyin.

Private Sub UserForm_Initialize()
    TextBox2 = Range("C5")
End Sub