Butona tıklayarak koşula göre metin yazdırmak

[muratcx]

Merhaba arkadaşlar Sayfa2 de D sütununda rakamlar E sütununda da butonlar bulunuyor. Butonlara tıklandığında rakamların Safya1 de ilgili sütunlarda aranıp yanına "OK" yazılmasını istiyorum. Ayrıntılı açıklama dosyada mevcut teşekkür ederim.

 

[Ömer]

Merhaba,

Sub Ok1()
Dim c As Range
Set S1 = Sheets("Sayfa1")
    If WorksheetFunction.CountIf(S1.Range("I:I"), Range("D7")) <> 0 Then
        Set c = S1.Range("I:I").Find(Range("D7"), LookIn:=xlValues)
        If Not c Is Nothing Then S1.Cells(c.Row, "J") = "OK"
    Else
        Set c = S1.Range("M:M").Find(Range("D7"), LookIn:=xlValues)
        If Not c Is Nothing Then S1.Cells(c.Row, "N") = "OK"
    End If
End Sub

Bu şekilde olabilir.

.

 

[muratcx]

Teşekkür ederim eline emeğine sağlık.