Soru Hücreye Girilen Değere Göre Uyarı Mesajı

[NADİR YILDIZ]

Hücreye girilen REDDEDİLDİ Kelimesine istinaden uyarı mesajı nasıl verebilir

 

[RBozkurt]

Sadece I17'mi?

 

[NADİR YILDIZ]

Sayın Bozkurt
sadece orası değil I sütunun bütününde uygulamak istiyorum

 

[RBozkurt]

Makro butona mı atanacak?

 

[NADİR YILDIZ]

I sütununda reddedildi varsa uyarı mesajı verecek
I sütunu formüllüdür

2 defa uyarı mesajı çıkabilir mi ?

teşekkürler

 

[RBozkurt]

Mesela I sütununda 5 tane reddedildi var. İlk uyarıyı verdi, tamam dediniz,
Tekrar uyarı mı vermesi lazım 5. İşlem sonuna kadar

 

[NADİR YILDIZ]

yok adet önemli değil
önemli olan I sütununda bir tanede olsa 50 tane de olsa
2 kez uyarı olarak Reddedildi mesajı vermesi yeterli

 

[RBozkurt]

Deneme imkanım yok AI ürünüdür,

Sub ReddedildiKontrol()
    Dim sonSatir As Long
    Dim i As Long
    Dim reddedildiSayisi As Long
    
    sonSatir = Range("I" & Rows.Count).End(xlUp).Row 'I sütunundaki son satır numarasını al
    
    For i = 1 To sonSatir
        If Range("I" & i).Value = "Reddedildi" Then 'Reddedildi kelimesini ara
            reddedildiSayisi = reddedildiSayisi + 1 'Reddedildi sayısını arttır
        End If
    Next i
    
    If reddedildiSayisi >= 2 Then 'Reddedildi sayısı 2'den büyük veya eşitse
        MsgBox "Reddedildi sayısı: " & reddedildiSayisi, vbExclamation, "Uyarı" '2 defa uyarı ver
        MsgBox "Dikkat! Reddedildi sayısı: " & reddedildiSayisi, vbExclamation, "Uyarı"
    End If
End Sub

 

[NADİR YILDIZ]

sayın bozkurt bunu butona mı atayacağım
yoksa modüle mi yapıştırcağım
ikisinide denedim olmadı

 

[tahsinanarat]

Sn. @NADİR YILDIZ, I sutunundaki REDEDİLDİ yazısını Reddedildi olarak değiştirip deneyin, Yada kodda yazılı Reddedildi kelimesini Büyük harfle yazınız. Bu şekilde çalışıyor. Bilginize

 

[NADİR YILDIZ]

Sayın bozkurt & tahsin ararat teşekkürler
ancak benim istediğim butonla değil tam olarak anlatamadım sanırım

şu şekilde bir şey istiyorum;

orjinal tabloda değişiklik yapmak zorunda kaldım bu sebeple F sütunu için geçerli olacak bu işlem
F6 dan başlamak üzere F10000 kadar giden sütunda
=EĞER(AN6="REDDEDİLDİ";"REDDEDİLDİ";" ")
Şeklinde formül var AN sütununda REDDEDİLDİ yazıyorsa F sütununa REDDEDİLDİ geliyor.

Benim istediğim F sütununda REDDEDİLDİ varsa 1 tane 50 fark etmez..Mesajbox ta Reddedildi diye 2 kez mesaj vermesi

butona bağlı olmayacak
Worksheete bağlayabilirmiyiz ?

teşekkürler