Sayfa2'ye bak

[nadirornek]

Arkadaşlar bir kod'a ihtiyacım var
Sayfa1'in B3 hücresine girdiğim sayı Sayfa2'nin K sutununda var ise Sayfa1'in B13 hücresine x işareti koyaçak yoksa boş bırakaçak

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 kod bölümüne yapıştırın;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B3" Then Exit Sub
    If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("K:K"), Target.Value) <> 0 Then
        Range("B13") = "X"
    Else
        Range("B13") = ""
    End If
End Sub

. . .

 

[nadirornek]

Teşekkürler