Koşullu Eğer Makro

Katılım
9 Haziran 2019
Mesajlar
221
Excel Vers. ve Dili
Office 2016 Eng.
Merhaba;

Ekteki örnekte Koşullu şekilde Eğer formülü ile birlikte yaptığım işlemi makro ile yapmak istiyorum. Konu hakkında yardımcı olur musunuz.

Sheet2 M2:M4 Barkod Numaralarını ( Koşullar N2-N4 belirttim.) "Sheet1" "D" sütununda aramasını ve "E" sütunundaki "Gün" bilgisine göre "H" sütununa Uygun veya Uygun Değil yazmak istiyorum.

https://dosya.co/yyola53oj58c/Uygun-Uygun_Değil.xlsm.html
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
Option Explicit

Sub Test()
    Dim Son As Long
    
    Son = Cells(Rows.Count, 4).End(3).Row
    Range("H2:H" & Rows.Count).Clear
    
    With Range("H2:H" & Son)
        .Formula = "=IF(AND(D2=""CC-A1-01"",OR(E2<50,E2>100)),""UYGUN DEĞİL"",IF(AND(D2=""DD-A2-01"",OR(E2<150,E2>300)),""UYGUN DEĞİL"",IF(AND(D2=""EE-A3-02"",OR(E2<500,E2>750)),""UYGUN DEĞİL"",""UYGUN"")))"
        .Value = .Value
        .Borders.LineStyle = 1
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Katılım
9 Haziran 2019
Mesajlar
221
Excel Vers. ve Dili
Office 2016 Eng.
Sn. @Korhan Ayhan Bey çok teşekkür ederim. Elinize kolunuza sağlık. Kolay gelsin.
 
Üst