Makrodaki Hata Nerede

[CRAYZLOVEIS]

Arkadaşlar ekteki dosyada göreceğiniz gibi eğer rakam 1500 tl yi geçiyorsa yazdıracak fakat geçmiyorsa hücredeki rakamı da yazarak uyarı verecek. birinci aşama tamam yani yazıyor fakat ikinci aşamada hata veriyor. Lütfen bir bakabilirmisiniz

Sub aidat()
With Worksheets("aidat")
If .Range("AI90").Value >= 1500 Then
adi = Worksheets("aidat").Range("S90").Value
Rakam = Worksheets("aidat").Range("AI90").Value
If MsgBox("" & adi & " TUTARI toplam " & Rakam & " TL" & vbCrLf & "" & vbCrLf & "İşlemi Onaylıyor musunuz ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
Sheets("aidat").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Sheets("aidat").Select
Else
MsgBox("" & adi & " TUTARI toplam " & Rakam & " TL" & vbCrLf & "" & vbCrLf & "Yazdıramazsınız", vbNo, "Dikkat")
End If
End With
End Sub

 

[dEdE]

Kırmızı satırdaki parantezleri kaldırın.

 

[CRAYZLOVEIS]

Üstad o şekilde de denedim ama istediğim sonucu vermiyor. Ben hücrede yazılı olan rakamı yazarak uyarı versin istiyorum. Yani "AİDAT TUTARI TOPLAM 1000 TL YAZDIRAMAZSINIZ" gibi.

 

[dEdE]

İlk if komutuna dikkat!
adi ve rakam değişkenlerini ilk if ten önceye alın.

 

[CRAYZLOVEIS]

Kırmızı satırdaki parantezleri kaldırın.

Üstad espiri yapıyorsun herhalde... Dikkat edebilsem zaten makro hata vermez. Eğer basit bir şeyse makronun tamamını yazarak cevap verirmisiniz

 

[dEdE]

Buyurun

Sub aidat()
With Worksheets("aidat")
    adi = Worksheets("aidat").Range("S90").Value
    Rakam = Worksheets("aidat").Range("AI90").Value

If .Range("AI90").Value >= 1500 Then
 
    If MsgBox("" & adi & " TUTARI toplam " & Rakam & " TL" & vbCrLf & "" & vbCrLf & "İşlemi Onaylıyor musunuz ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
    Sheets("aidat").Select
    
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Sheets("aidat").Select
  Else
      MsgBox adi & " TUTARI toplam " & Rakam & " TL" & vbCrLf & "" & vbCrLf & "Yazdıramazsınız", vbYesNo, "Dikkat"
  End If
End With

End Sub

 

[CRAYZLOVEIS]

üstad şimdi oldu teşekkürler.

 

[dEdE]

Rica ederim.