Şu kodu geliştirmeme yardımcı olurmusunuz.

[Gorarr]

Aşağıdaki kod güzel çalışıyor ancak U ve S ile excel de tanımlanan aralığı belirli aralıklara tanımlamam gerekiyor. Örneğin kodun sadece şu aralıklara bakmasını sağlayabilirmiyiz { (B3:B15), (F3:F15) ve (H5:K5)} Yardımlarınızı bekliyorum. Şimdiden teşekkür ederim..


Option Explicit
Sub Deneme()
Dim Say As Double, U As Long, S As Byte
For U = 2 To 10
For S = 2 To 5
Say = WorksheetFunction.CountIf(Range("A:A"), Cells(U, S))
If Say <= 0 Then
MsgBox "Kontrol Ediniz", vbCritical, "Sn: " & Application.UserName
End If
Next
Next
End Sub

 

[Orion1]

Dim hcr As Range
For Each hcr In Range("B3:B15,F3:F15,H5:K5")
    If WorksheetFunction.CountIf(Range("A:A"), hcr.Value) <= 0 Then
        MsgBox "Kontrol Ediniz", vbCritical, "Sn: " & Application.UserName
    End If
Next

 

[Gorarr]

Çok teşekkür ederim Evren bey.

Birşey daha sorsam, boş kalan hücreler için uyarı gelmesin istiyorum. " <=0 " bu kodu sildiğim halde boş hücreler içinde uyarı veriyor. Bunun için kodu revize edebilirmisiniz. Teşekkürler...

 

[usubaykan]

Çok teşekkür ederim Evren bey.

Birşey daha sorsam, boş kalan hücreler için uyarı gelmesin istiyorum. " <=0 " bu kodu sildiğim halde boş hücreler içinde uyarı veriyor. Bunun için kodu revize edebilirmisiniz. Teşekkürler...

Merhaba;

Evren beyin yazmış olduğu kodu

Dim hcr As Range
For Each hcr In Range("B3:B15,F3:F15,H5:K5")
[COLOR=Red]If hcr <> "" Then[/COLOR]
    If WorksheetFunction.CountIf(Range("A:A"), hcr.Value) = 0 Then
        MsgBox "Kontrol Ediniz", vbCritical, "Sn: " & Application.UserName
    End If
[COLOR=Red]End If[/COLOR]
Next

şeklinde değiştiriniz.

 

[Gorarr]

Çok çok teşekkür ederim. Valla böyle sorup durmaya utanıyorum. Aklıma birşey daha geldi ama çözümünü kitapdan bulamıyorum.

Bu uyarı mesajınıda hatanın hangi hücre yada hücrelerden kaynaklandığınıda verdirebilirmisiniz. Yardımlarınıza minnetarım...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Kontrol()
    Dim Hücre As Range, Adres As String
    
    For Each Hücre In Range("B3:B15,F3:F15,H5:K5")
        If Hücre.Value <> "" Then
            If WorksheetFunction.CountIf(Range("A:A"), Hücre.Value) = 0 Then
                Adres = IIf(Adres = "", Hücre.Address(0, 0), Adres & " - " & Hücre.Address(0, 0))
            End If
        End If
    Next
            
    If Adres <> "" Then MsgBox "Aşağıdaki hücreler A sütununda yoktur !" & Chr(10) & Chr(10) & Adres, vbCritical, "Sn: " & Application.UserName
End Sub

 

[Gorarr]

Ellerinize sağlık... Çok Çok teşekkür ederim.. Tek kelime ile harika olmuş....