3 FONKSİYONLU DÜŞEYARA

[TiOr]

Merhaba Kıymetli Hocalarım,
Ekte paylaştığım "ÖRNEK DOSYA" da yapmak istediğim;

Data/L SÜTUNU/TR DEPOYA TESLİM EDİLEN, TESLİM EDİLMEYEN, KABUL EDİLEN başlığı altında;
Dış Veri Rapor Sekmesinde G SÜTUNU/KABUL EDİLEN KOLİ SAYİSİ "0" ise TESLİM EDİLMEYEN yazsın,
Dış Veri Rapor Sekmesinde G SÜTUNU/KABUL EDİLEN KOLİ SAYİSİ "1" ise TESLİM EDİLEN yazsın,
Data sekmesinde H SÜTUNU/BİRLEŞTİR başlığı altındaki veri Dış Veri Rapor Sekmesinde E SÜTUNU/BİRLEŞTİR SEKMESİNDE yoksa KABUL EDİLEN yazsın.

Hem formüllü hali ve formülü makro ile çalıştırabileceğim kod için desteklerinizi talep eder, iyi çalışmalar dilerim.
Saygılarımla,

Not; Gerek formül gerekse kod ihtiyacım bulunmaktadır dosyanın boyutuna göre her ikisini de deneyeceğim. Formül de istediğim performansı alır isem formül ile devam edeceğim yok performans kısmında sıkıntı olacak gibi olur ise kod ile devam edeceğim. Şimdiden teşekkürler.

 

[TiOr]

Mesaj 1 için açıklamada düzeltme yapılmış olup desteklerinizi talep ederim;

Merhaba Kıymetli Hocalarım,
Ekte paylaştığım "ÖRNEK DOSYA" da yapmak istediğim;

Data/L SÜTUNU/TR DEPOYA TESLİM EDİLEN, TESLİM EDİLMEYEN, KABUL EDİLEN başlığı altında;

Data sekmesinde H SÜTUNU/BİRLEŞTİR başlığı altındaki veri Dış Veri Rapor sekmesinde E SÜTUNU/BİRLEŞTİR sütununda var ise ve Dış Veri Rapor Sekmesinde G SÜTUNU/KABUL EDİLEN KOLİ SAYİSİ "0" ise TESLİM EDİLMEYEN yazsın,

Data sekmesinde H SÜTUNU/BİRLEŞTİR başlığı altındaki veri Dış Veri Rapor sekmesinde E SÜTUNU/BİRLEŞTİR sütununda var ise ve Dış Veri Rapor Sekmesinde G SÜTUNU/KABUL EDİLEN KOLİ SAYİSİ "1" ise TESLİM EDİLEN yazsın,

Data sekmesinde H SÜTUNU/BİRLEŞTİR başlığı altındaki veri Dış Veri Rapor Sekmesinde E SÜTUNU/BİRLEŞTİR sütununda yoksa KABUL EDİLEN yazsın.

Hem formüllü hali ve formülü makro ile çalıştırabileceğim kod için desteklerinizi talep eder, iyi çalışmalar dilerim.
Saygılarımla,

Not; Gerek formül gerekse kod ihtiyacım bulunmaktadır dosyanın boyutuna göre her ikisini de deneyeceğim. Formül de istediğim performansı alır isem formül ile devam edeceğim yok performans kısmında sıkıntı olacak gibi olur ise kod ile devam edeceğim. Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Formül:
L2:

=EĞER(H2="";"";EĞER(EĞERSAY('DIŞ VERİ RAPOR'!E:E;H2)=0;"KABUL EDİLEN"
;EĞER(ÇOKEĞERSAY('DIŞ VERİ RAPOR'!E:E;H2;'DIŞ VERİ RAPOR'!G:G;0)>0;"TESLİM EDİLMEYEN"
;"TESLİM EDİLEN")))

Makro:

Sub bul()
   
    Dim S1 As Worksheet, i As Long, c As Range, Adr As String
   
    Set S1 = Sheets("DIŞ VERİ RAPOR")
   
    Application.ScreenUpdating = False
    Sheets("DATA").Select
    Range("L2:L" & Rows.Count).ClearContents
   
    For i = 2 To Cells(Rows.Count, "H").End(xlUp).Row
        If Cells(i, "H") <> "" Then
            Set c = S1.[E:E].Find(Cells(i, "H"), , xlValues, xlWhole)
            If c Is Nothing Then
                Cells(i, "L") = "KABUL EDİLEN"
            Else
                Adr = c.Address
                Do
                    If S1.Cells(c.Row, "G") = 0 Then
                        Cells(i, "L") = "TESLİM EDİLMEYEN"
                    Else
                        Cells(i, "L") = "TESLİM EDİLEN"
                    End If
                    Exit Do
                    Set c = S1.[E:E].FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End If
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

 

[TiOr]

@Ömer Hocam Selam,
Allah razı olsun.
Desteğin için çok ama çok teşekkür ederim. İşlem tamamdır...
İyi günler dilerim.