Eger...bu formülün makrosu yazilabilir mi ?

[dennisf06]

Sn Necdet bey aslinda güzel bir fikir ama söyle bir sorun var. Yaptigim örneklemeler basitlesmis hali. Gercekte o faturaya ait bir kac cesit mal var. Fatura numarasi örnegin 3456 gibi bir kac malzeme ayni anda olabiliyor. Ikili kontrol en sagliklisi. Olmazsa bu sekilde idare etmek zorundayim.ilginize tekrar tesekkür ederim. Saygilarimla.

 

[Necdet]

Merhaba Sayın dennisf06,

Bir önceki çözümü olayı anlamak için yapmıştım. Demekki durum öyle değilmiş

Malzeme kodu ve malzeme adı yazıldığında kodlar devreye girer.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Offset(0, -1) = "" Then
    Target.Offset(0, -1).Interior.ColorIndex = xlNone
Else
    Set Bul = Sheets("Sayfa2").Columns("D").Find(Target.Offset(0, -1), lookat:=xlWhole)
    If Bul Is Nothing Then
        Target.Offset(0, -1).Interior.ColorIndex = 3
        MsgBox Target.Offset(0, -1).Value & " Degerini Bulamadım"
    Else
        If Target <> Sheets("Sayfa2").Cells(Bul.Row, "E") Then
            Target.Offset(0, -1).Interior.ColorIndex = 3
            MsgBox "Değerler Uyuşmadı"
        Else
            Target.Offset(0, -1).Interior.ColorIndex = xlNone
        End If
    End If
End If
Son:
End Sub

 

[dennisf06]

Sn Necdet bey dosya hata verdi. eslesme sayfa2 de oldugu halde hata verdi. ekteki dosyaya bakabilirseniz tam olarak anlasilabilecegim sanirim.

 

[Necdet]

Merhaba,

Yanıt vermede geciktim, malum işler güçler

Dosyayı inceler misiniz, umarım olmuştur.

 

[dennisf06]

Sn Necdet hocam hani derler ya 10 numara olmus. bakakaldim vallaha.umdugumunda üstünde oldu bu.simdi sadece kuru bir tesekkürkür mü edebilecegim. cok cok tesekkürler. saglicakla kalin.

 

[Necdet]

Güle güle kullanınız efendim.