Doğru olanlara X yazdırma

[NADİR YILDIZ]

Arkadaşlar merhaba H ve J sütununda DOĞRU yazanların M sütununda karşılarına X yazdırabilirmiyiz

makroda olur & formülde

teşekkürler

 

[mustafa1205]

=EĞER(YADA(H7="DOĞRU";J7="DOĞRU");"X";"")


şeklinde M7 HÜCRESİNE deneyerek formülü aşağı doğru çekersiniz...

 

[NADİR YILDIZ]

=EĞER(YADA(H7="DOĞRU";J7="DOĞRU");"X";"")


şeklinde M7 HÜCRESİNE deneyerek formülü aşağı doğru çekersiniz...

sayın mustafa teşekkür ederim sizin formülle olmadı
DOĞRU daki " işaretini kaldırınca oldu

teşekkürler iyi çalışmalar

 

[Muzaffer Ali]

Merhaba
Bu da kod ile altrenatif.

Sub test()
    Dim Bak As Long
    For Bak = 7 To Cells(Rows.Count, "H").End(xlUp).Row
        Cells(Bak, "M") = IIf((Cells(Bak, "H") Or Cells(Bak, "J")), "X", "")
    Next
End Sub

 

[Necdet]

Makro bölümünde soru sorup, fonksiyon çözümünde karar kıldınız

 

[NADİR YILDIZ]

Necdet bey
makroda olur & formülde

diye yazmıştım

 

[mustafa1205]

sayın mustafa teşekkür ederim sizin formülle olmadı
DOĞRU daki " işaretini kaldırınca oldu

teşekkürler iyi çalışmalar

DOĞRU kelimesi fonksiyonlarda da geçtiği için excel tırnak içi algılamamış. Bende denemeden göndermiştim. Tırnak işaretini kaldırmanız isabet olmuş.

 

[NADİR YILDIZ]

Merhaba
Bu da kod ile altrenatif.

Sub test()
    Dim Bak As Long
    For Bak = 7 To Cells(Rows.Count, "H").End(xlUp).Row
        Cells(Bak, "M") = IIf((Cells(Bak, "H") Or Cells(Bak, "J")), "X", "")
    Next
End Sub

ben mi yapamadım olmadı muzaffer bey


tamam tekrar denediğimde oldu teşekkürler sizede