Sorgulama ekleme

[mavi674]

Selam arkadaşlar;
aşağıda çalışan bir kod var. Buna sorgulama eklemek istiyorum ama ben başaramadım.
F8 Hücre durumuna göre işlem yapmasını istiyorum.

1-F8 "-" ise; "ÜCRET ÇIKMADIĞI İÇİN ÖDEME YAPILAMAZ",
2-F8 "ÖDENDİ" ise; "ÖDEME YAPILDIĞI İÇİN TEKRAR ÖDEME YAPILAMAZ" ve
3-F8 "800" ise; "800 TL.ÖDEME YAPMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ ?"

Bu 3 duruma göre aşağıdaki koda ekleme yaparak çalışmasını istiyorum.
Teşekkürlerrrr...

Sub tıklaöde1()
durum = Range("f8")
ödemeayı = Range("r2")
ücret = Range("d8")
adı = Range("b8")

Sheets("ÖDEMELER").Select
Sheets("ÖDEMELER").Unprotect Password:=""
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Range("d1000").End(xlUp).Offset(1, 0) = ödemeayı
Range("e1000").End(xlUp).Offset(1, 0) = adı
Range("f1000").End(xlUp).Offset(1, 0) = ücret
End Sub

 

[Biolightant]

Merhaba,

Sub Makro1()
    ' F8 hücresinin değerini kontrol eder ve buna göre işlem yapar
    If Range("F8").Value = "-" Then ' birinci şart kontrol
        MsgBox "ÜCRET ÇIKMADIĞI İÇİN ÖDEME YAPILAMAZ", vbCritical, "Ödeme yok !" ' uyarı ver
        Exit Sub ' Makro1 makrosundan çık

    ElseIf Range("F8").Value = "ÖDENDİ" Then ' ikinci şart kontrol
        MsgBox "ÖDEME YAPILDIĞI İÇİN TEKRAR ÖDEME YAPILAMAZ", vbCritical, "Önceden ödeme yapılmış !" ' uyarı ver
        Exit Sub ' Makro1 makrosundan çık

    ElseIf Range("F8").Value = "800" Then ' üçüncü şart kontrol
        ' kullanıcıya soru sor ve yanıtını al
        Dim SoruCevap As VbMsgBoxResult
        SoruCevap = MsgBox("800 TL. ÖDEME YAPMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ ?", vbOKCancel, "Ödeme yapılsın mı ?")
        
        ' kullanıcının yanıtını kontrol et
        If SoruCevap = vbOK Then
            ' kullanıcı Tamam ( Ok ) tıkladı
            MsgBox "Ödeme işlemi gerçekleştiriliyor...", vbInformation, "Ödeme yapiliyor."
            
            ''''''''''''''''''''
            ''''''''''''''''''''
            ' Buraya ödeme işlemi ile ilgili kodları ekleyiniz
            ''''''''''''''''''''
            ''''''''''''''''''''
            
        Else
            ' kullanıcı iptal tıkladı veya uyarı penceresini kapattı
            MsgBox "Ödeme işlemi iptal edildi.", vbCritical, "Ödeme yapılmadı !" ' uyarı ver
            Exit Sub ' Makro1 makrosundan çık
        End If

    Else ' ilk üç şart a uymayan durum söz konusu ise
        MsgBox "Hücre içeriği: [ " & Range("F8").Value & " ]", vbInformation, "Bilinmeyen F8 durumu" ' uyarı ver
        Exit Sub ' Makro1 makrosundan çık
    End If
End Sub

 

[mavi674]

Çok Teşekkürler,
Cevapsız kalacak diye çok üzülmüştüm.
İmdadıma yetiştiniz, çok sağ olun.
Eve gidince denerim artık, çalışacağından hiç kuşkum yok...
Ben 3 şart demiştim. siz daha detaya girmişsiniz
Tekrar teşekkürlerrrr...

NOT: Ufak bir ayrıntıyı gözden kaçırmışım.
F8 "800" tl. sabit değil, bu değişkendir. Formül sonucuna göre ödeme ücreti çıkıyor.
ElseIf Range("F8").Value >=1 Then ' üçüncü şart kontrol
yapsam olur mu?
Tabi mesaj da değişecek.. Onu bilemedim.

 

[Biolightant]

ElseIf Range("F8").Value >=1 Then ' üçüncü şart kontrol
yapsam olur mu?

Deneyin kodlar sizde ( msgbox ı da bu şarta göre düzenleyiniz )

 

[mavi674]

Tamamdır
Ana kod iyi çalışınca ufak tefek değişimler kolay oluyor.
Biolightant arkadaşım bu kodu yazmasaydınız 1 adım bile ileri gidemezdim,
Eline sağlık mükemmel oldu
Ne desem azdır.
Böyle bir oluşumun olması gerçekten mükemmel.
İyi ki varsınız.
Site yönetimini de sizleri de kutluyorum...