3 FONKSİYONLU DÜŞEYARA

Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
Altın Üyelik Bitiş Tarihi
22-03-2023
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.
 

Ekli dosyalar

Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
Altın Üyelik Bitiş Tarihi
22-03-2023
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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Formül:
L2:
Kod:
=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:
Kod:
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
 
Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
Altın Üyelik Bitiş Tarihi
22-03-2023
@Ömer Hocam Selam,
Allah razı olsun.
Desteğin için çok ama çok teşekkür ederim. İşlem tamamdır...
İyi günler dilerim.
 
Üst