Eğer Ve Makrosu

[aktarmamd]

Merhaba Üstadlar,

Esasında Eğer(Ve( .. döngüsünden oluşan basit bir formülün makro şeklinde modülü gerekiyor.. Data 30 bin üstü veri içeriyor, V sütununa sorgunun sonucunu yazdırması gerekiyor.

Ek te örnek dosyayı bırakıyorum destek olana şimdiden teşekkürler

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
s = Cells(Rows.Count, "U").End(3).Row
Range("V2:V" & ActiveSheet.UsedRange.Rows.Count).ClearContents
dz = Range("V1:V" & s).Value
For a = 2 To s
    If Cells(a, "H") = "Bayi" And Cells(a, "K") > 0 And Cells(a, "K") <= 3 And Cells(a, "U") = "Accept" Then dz(a, 1) = "OLUMLU"
Next
Range("V1:V" & s).Value = dz
End Sub

 

[aktarmamd]

Merhaba,
Deneyiniz...

Sub kod()
s = Cells(Rows.Count, "U").End(3).Row
Range("V2:V" & ActiveSheet.UsedRange.Rows.Count).ClearContents
dz = Range("V1:V" & s).Value
For a = 2 To s
    If Cells(a, "H") = "Bayi" And Cells(a, "K") > 0 And Cells(a, "K") <= 3 And Cells(a, "U") = "Accept" Then dz(a, 1) = "OLUMLU"
Next
Range("V1:V" & s).Value = dz
End Sub

Üstad Selamlar,

Gayet kolay ve kullanışlı kod olmuş,

Bunun üzerine ilave olarak farklı bir sayfadaki tablodan veriyi kıyaslayarak tanım yazdırma kodunu aynı makronun içine yazmak. Yani yukarıdaki ile aynı kod dizisinde çalışması..

Son olarak harici bir makro ile kayıtların veya kriterine göre "Düzeltildi" şeklinde veri değiştirmesini sağlayan bir makro lazım..

Umarım doğru anlatmışımdır..

EK' te örneği gönderiyorum

 

[aktarmamd]

Destek Olacak arkadaşlar için güncellemek istedim..

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub Kod_AltBayi()
s = Cells(Rows.Count, "U").End(3).Row
Range("W2:W" & ActiveSheet.UsedRange.Rows.Count).ClearContents
dz = Range("W1:W" & s).Value
For a = 2 To s
    If WorksheetFunction.CountIf(Sheets("AltBayi").Range("M:M"), Cells(a, "F")) > 0 And Cells(a, "K") > 3 And Cells(a, "U") = "Accept" Then dz(a, 1) = "altbayi"
Next
Range("W1:W" & s).Value = dz
End Sub

Sub Kod_Düzeltildi()
s = Cells(Rows.Count, "U").End(3).Row
dz = Range("U1:U" & s).Value
For a = 2 To s
    If Cells(a, "V") = "OLUMLU" And Cells(a, "W") = "altbayi" Then dz(a, 1) = "Düzeltildi"
Next
Range("U1:U" & s).Value = dz
End Sub