kaydet butonu

[sinemomec]

kaydet butonu ile yaptıktan sonra veri girdiğim yerleri temizlesin istiyorum ama başaramadım.

Private Sub Cmdkaydet_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("GELENEVRAK").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = 1
Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbtakılacakdosyano.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
Else
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = Worksheets("GELENEVRAK").Cells(sonsatır - 1, 1) + 1
Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbtakılacakdosyano.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
End If
End Sub

 

[Ömer]

Merhaba,

Veri girdiğiniz yerler;

Cbgeldiğikurum.Value
.
.
olan bölümler mi?

End Sub satırından önce

Cbgeldiğikurum = ""
.
.
yazarak deneyiniz.

 

[Muzaffer Ali]

Merhaba.
Kodu gereksiz uzatmışsınız, kısalttım.

Private Sub Cmdkaydet_Click()
    sonsatır = WorksheetFunction.CountA(Worksheets("GELENEVRAK").Range("A:A")) + 1
    If sonsatır = 2 Then
        Worksheets("GELENEVRAK").Cells(sonsatır, 1) = 1
    Else
        Worksheets("GELENEVRAK").Cells(sonsatır, 1) = Worksheets("GELENEVRAK").Cells(sonsatır - 1, 1) + 1
    End If
    
    Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbtakılacakdosyano.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
    
    Cbgeldiğikurum.Value = ""
    Tbtarih.Value = ""
    Tbevrakno.Value = ""
    Cbtakılacakdosyano.Value = ""
    Cbkonu.Value = ""
    Cbhavaleedilenmemur.Value = ""
End Sub

 

[sinemomec]

teşekkür ederim.