Eğer şu değer varsa

[muhalko]

Değerli üstadlarım,

eğer a2 a5 aralığında b4 teki değer varsa
"bu değer vardır" mesajı yoksa
"bu değer yoktur, a6 değer atansın mı?"
evet demem halinde değer a6 ya atansın.

Gibi bir koda ihtiyacım.

Yardımcı olanlara şimdiden teşekkür ederim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz.

Sub Ornek()
    
    Dim EvetHayir   As String
    
    If Application.WorksheetFunction.CountIf(Range("A2:A5"), Range("B4")) = 0 Then
        EvetHayir = MsgBox(Range("B4") & " Değeri A2:A5 Aralığında Bulunmadı " & Chr(10) & _
                    "A6 Hücresine Aktarayım mı?", vbYesNo, "AKTARILACAK MI")
        If EvetHayir = vbYes Then Range("A6") = Range("B4")
    Else
        MsgBox Range("B4") & " Değeri A2:A5 Aralığında Var"
    End If
                        
End Sub

 

[antonio]

Değerli üstadlarım,

eğer a2 a5 aralığında b4 teki değer varsa
"bu değer vardır" mesajı yoksa
"bu değer yoktur, a6 değer atansın mı?"
evet demem halinde değer a6 ya atansın.

Gibi bir koda ihtiyacım.

Yardımcı olanlara şimdiden teşekkür ederim...

Dosyanız ektedir. İnceleyiniz.
(NOT: Necdet Üstadın cevap verdiğini görmedim. Özür dilerim. Onun kodları daha sade ve pratiktir, bilginiz olsun).

 

[muhalko]

DEĞERLİ ÜSTADLARIM

ellerinize sağlık. her iki koddan da istifade ettim.

gece gece iş çıkarttık zahmet verdik tekrar ellerinize sağlık

 

[Necdet]

Merhaba,

Ben yoksa olarak değil varsa yazsın demişim, gece gece yanlış anlamışım Üstteki kodları değiştirdim.