okul aidat için hesaplama

[mk172]

okul aidat için bir hesap tablosu yaptım makro yazmayı henüz bilmiyorum ustalardan ekdeki dosyaya bakarak
"kaydet" butonu için makro sunu yazmalarını istiyorum şimdiden teşekür

 

[Orion1]

Dosyanız ektedir.

Sub KAYDET()
Dim sh As Worksheet, k As Range
Sheets("GİRİŞ").Select
Set sh = Sheets("VELİ LİSTESİ")
If Range("D5").Value = "" Then
    MsgBox "Kayıt yapılmadı." & vbLf & "Lütfen veli adı giriniz.", vbCritical, "UYARI"
    Range("D5").Select
    Exit Sub
End If
Set k = sh.Range("B2:B" & sh.Cells(65536, "B"). _
End(xlUp).Row).Find(Range("D5").Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "Kayıt Girilmedi!" & vbLf & "[ " & _
    Range("D5").Value & " ] İsimli Veli Bulunamdı.", vbCritical, "UYARI"
    Range("D5").Select
    Else
    sh.Range("F" & k.Row).Value = Range("F14").Value
    sh.Range("F" & k.Row).NumberFormat = "dd.mm.yyyy"
    sh.Range("G" & k.Row).Value = Range("F17").Value
    sh.Range("G" & k.Row).NumberFormat = "#,##0"
    sh.Range("H" & k.Row).Value = Range("F21").Value
    sh.Range("H" & k.Row).NumberFormat = "#,##0.00"
    MsgBox "Tutar VELİ LİSTESİ SAYFASINA girildi.", vbOKOnly + vbInformation, "E V R E N"
    Range("F14").Value = ""
    Range("F17").Value = ""
    Range("F21").Value = ""
End If
End Sub

 

[mk172]

çok teşekür ederim

 

[Orion1]

çok teşekür ederim

Rica ederim.

 

[djkral11]

super eline saglık