Hücre Değerine Göre Uyarı Penceresi

[serif_007]

Merhabalar;

İşlem yaptığım satırın AE sütununda formül var , Örneğin formül sonucu boş değil de veri içerirse MsgBox ile uyarı vermesini istiyorum. Biraz çalıştım fakat istediğim sonucu elde edemedim. Yardımlarınızı rica ederim.

 

[muhasebeciyiz]

Sub UyariPenceresi()
    Dim hedefHucresi As Range
   
    Set hedefHucresi = Range("AE2")
        If hedefHucresi.Value <> "" Then
        MsgBox "Uyarı: Hücre değeri boş değil!"
    End If
End Sub

Sub UyariPenceresi()
    Dim hedefHucresi As Range
    Dim formulSonucu As Variant
    
    Set hedefHucresi = Range("AE2")
    formulSonucu = hedefHucresi.Value
    If Not IsEmpty(formulSonucu) Then
        
        MsgBox "Uyarı: Formül sonucu boş değil!"
    End If
End Sub

1.kod : Hücreyi kontrol eder
2.Kod EĞER(D1>=50; D1*0,1; D1*0,05) böyle formül varsa onu kontrol eder

Umarım işinize yarar

 

[serif_007]

Sub UyariPenceresi()
    Dim hedefHucresi As Range
  
    Set hedefHucresi = Range("AE2")
        If hedefHucresi.Value <> "" Then
        MsgBox "Uyarı: Hücre değeri boş değil!"
    End If
End Sub

Sub UyariPenceresi()
    Dim hedefHucresi As Range
    Dim formulSonucu As Variant
   
    Set hedefHucresi = Range("AE2")
    formulSonucu = hedefHucresi.Value
    If Not IsEmpty(formulSonucu) Then
       
        MsgBox "Uyarı: Formül sonucu boş değil!"
    End If
End Sub

1.kod : Hücreyi kontrol eder
2.Kod EĞER(D1>=50; D1*0,1; D1*0,05) böyle formül varsa onu kontrol eder

Umarım işinize yarar

Teşekkür ederim fakat şöyle bir sorun var. Benim tablomda formül değeri diğer hücrelere girilen verilere göre getiriyor. AE hücresinin değeri diğer hücre seçilince MsgBox başlatılabilir mi ?

 

[f4tih]

Teşekkür ederim fakat şöyle bir sorun var. Benim tablomda formül değeri diğer hücrelere girilen verilere göre getiriyor. AE hücresinin değeri diğer hücre seçilince MsgBox başlatılabilir mi ?

biraz karmaşık olmamış mı sizce? tam olarak yapmak istediğinizi detaylı anlatıp hatta mümkünse örnek bir excel dosyası paylaşırsanız sanırım daha kolay olacak.

 

[serif_007]

Aslında yapmak istediğim şey şu D ve E sütunlarının seçimine göre AE sütununa formülle veri getiriyorum D ve E sütunu seçilince işlem yapılan satırın AE hücresindeki formül veri içeriyorsa(formül sonucu boş değilse) msgbox çalışmalı

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne yapıştırarak dener misiniz?
AE sütununda formüller olduğu ve formül sonucunun bazen boş, bazen de herhangi bir değer döndürdüğü varsayılmıştır.

Private Sub Worksheet_Calculate()
    Dim rng As Range, cell As Range
    Dim Kontrol As Boolean
    Set rng = Range("AE:AE")
For Each cell In rng.Cells
    With cell
        Kontrol = CBool(.ID <> .Value)
        If Kontrol Then
            If .Value <> "" Then _
                MsgBox Replace(cell.Address, "$", "") & " Hücresinde" & Chr(10) & Chr(34) & _
                cell.Value & Chr(34) & "  yazıyor.", vbInformation, "Hücre Değeri Değişti"
            .ID = .Value
            Exit For
        End If
    End With
Next cell
    Set rng = Nothing
End Sub