macro elle yazdığımda çalışıyor

[DeathMoment]

Arkadaşlar dosyamda TIKLA butonunda bulunan macro H sütunundaki tarihlere ne kadar kaldığını veya geçip geçmediğini gösteriyor fakat macro sadece H sütunundaki hücrelere el ile değer girdiğimde çalışıyor yani KAYIT FORMU ile kayıt yaptığımda macro çalışmıyor bunu nasıl halledebiliriz?

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirin.

  If TextBox1.Text <> "" Then
    

Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("Data").Range("A" & Bos_Satir).Value = _
               Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
        
Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text

Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text

Sheets("Data").Range("D" & Bos_Satir).Value = ComboBox2.Text

Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("Data").Range("G" & Bos_Satir).Value = TextBox10.Text
Sheets("Data").Range("H" & Bos_Satir).Value = TextBox6.Text
Sheets("Data").Range("I" & Bos_Satir).Value = TextBox7.Text
Sheets("Data").Range("J" & Bos_Satir).Value = TextBox8.Text
Sheets("Data").Range("K" & Bos_Satir).Value = TextBox9.Text
Sheets("Data").Range("L" & Bos_Satir).Value = TextBox15.Text


Sheets("Data").Select

Else

MsgBox "FORM BİLGİLERİNİ TAM OLARAK DOLDURMANIZ GEREKİYOR", vbExclamation, "KAYIT PROGRAMI"

End If
UserForm_Initialize
ThisWorkbook.Emre ' Bu satırı ekledim.
End Sub

 

[DeathMoment]

değiştirdim fakat bir fark göremedim hala aynı sanırım sizin eklediğiniz kod macroyu userformdaki kayıt butonu ile çalıştırıyor benim sorunum daha farklı TIKLA yazan buton zaten bunu ayrı olarak yapıyor fakat sadece H sütununa el ile değer girdiğimde

 

[takin]

Form ile kaydederken sanırım tarihleri, doğru tarih formatında kaydetmiyor.
Kaydetme işlemindeki ilgili satırları aşağıdaki gibi değiştirip deneyin.

Sheets("Data").Range("G" & Bos_Satir).Value = Format(TextBox10.Text, "DD.MM.YYYY")
Sheets("Data").Range("H" & Bos_Satir).Value = Format(TextBox6.Text, "DD.MM.YYYY")

 

[DeathMoment]

değiştirdim ancak yine bir fark yok aynı sorun devam ediyor

 

[DeathMoment]

yardımcı olabilecek kimse yok mu?

 

[DeathMoment]

Sorun hala devam ediyor yardım edebilcek kimse yok mu?

 

[DeathMoment]

yardımcı olabilecek kimse yok mu???