İki hücrenin değer eşitliği halinde makro ile veri yazdırmı

[simetri.]

Merhabalar

D ve E sütunlarının aynı satırları (D10 E10 gibi) kontrol edilecek.

Her ikisininde boş yada her ikisininde dolu olduğu durumlar haricinde,

D nin boş E nin dolu olduğu durumda;

E hücresindeki değer ile B3(bu adres sürekli sabit) hücresindeki

değer karşılaştırma yapılacak

değerler aynı ise D hücresine X

değerler aynı değil ise Y yazılacak.

oluşturulacak makro kodu kısaca bu şekilde. Tam olarak ne istediğimi

excel kitapcığında çizdim. yardımlarınızı bekliyorum.

Değerli arkadaşlar.

 

[soykan]

Doğru anladım ise dosyanız ekte

 

[simetri.]

Kod olduğu halde sizin dosyayı açtığımda D sütununda ki

verilerin silindiği gözüküyor. Kod yazıldıktan sonra

Benim yüklediğim ek kapatılıp açıldıktan sonra;

Sayfadaki herşey aynı kalmak sureti ile D9 hücresine

X yazılması gerekiyor. Yardım için teşekkür ederim ayrıca.

 

[antonio]

Private Sub Worksheet_Activate()
ss = Range("E" & Rows.Count).End(3).Row
For sat = 2 To ss
If Range("D" & sat) = "" And Range("E" & sat) <> "" Then
    If Range("E" & sat).Value = Range("B3").Value Then
        Range("D" & sat).Value = "x"
    Else
        Range("D" & sat).Value = "y"
    End If
End If
Next sat
End Sub

 

[simetri.]

Yardımlarınız için teşekkür ederim

sayın Soykan ve sayın Antonio

Kodlar düğmeye bağlandığı zaman çılışıyor

Kitap kapatılıp açıldığında herhangi bir tekpi vermiyor.

İyi günler.