• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tablo içinde olupta Sabitler listesinde olmayan değerleri bulma

  • Konbuyu başlatan Konbuyu başlatan mmpmk
  • Başlangıç tarihi Başlangıç tarihi
Katılım
29 Eylül 2017
Mesajlar
27
Excel Vers. ve Dili
excel
Öncelikle Forum takipçilerine iyi günler,
Örnek dosyada olduğu gibi bir sabitler listesinde olup tabloda olmayan değerleri
bulabiliyorum.
Ancak Tabloda var olan fakat sabitler listesinde olmayan değerleri acaba nasıl bulabilirim?

iyi çalışmalar..

http://s8.dosya.tc/server5/a855k4/Excel_Ornek.xlsx.html
 
Son düzenleme:
Arkadaşlar iyi akşamlar..
Sorumun cözümü var mıdır
 
Formül kullanmadan makro ile çözüm.

http://s8.dosya.tc/server5/ausxyo/Excel_Ornek-1.zip.html


Kod:
Sub Karsilastir()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   sonsatir = Cells(Rows.Count, "K").End(3).Row
   Range("K3:M" & sonsatir).Clear
   sonsatir = Cells(Rows.Count, "O").End(3).Row
   Range("O3:P" & sonsatir).Clear
   
   sonsatiri = Cells(Rows.Count, "I").End(3).Row
   sonsatirb = Cells(Rows.Count, "B").End(3).Row
   satir = 2
   For i = 2 To sonsatiri
     verii = Cells(i, "I").Value
     Set c = Range("C2:F" & sonsatirb).Find(verii)
     If c Is Nothing Then
        satir = satir + 1
        Cells(satir, "O").Value = satir - 2
        Cells(satir, "P").Value = verii
     End If
   Next i
   
   satir = 2
   For i = 2 To sonsatirb
     For j = 3 To 6
        verib = Cells(i, j).Value
        Set c = Range("I2:I" & sonsatirb).Find(verib)
        If c Is Nothing Then
           satir = satir + 1
           Cells(satir, "K").Value = satir - 2
           Cells(satir, "L").Value = Cells(i, "B").Value
           Cells(satir, "M").Value = verib
        End If
     Next j
   Next i
   
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub
 
Son düzenleme:
İlginize Teşekkür ederim.
nasıl yapacağımı anlamadım.
Bendeki excel geliştirici sekmesindeki "visual basic" ve "makrolar" bölümünü aktif yapamadım..
 
Son düzenleme:
İlginize Teşekkür ederim.
nasıl yapacağımı anlamadım.
Bendeki excel geliştirici sekmesindeki "visual basic" ve "makrolar" bölümünü aktif yapamadım..

Dosya eklendi.

Sarı alanlar yardımcı sütunlar.

Dosyada KTF olarak makro kullanıldı.
 
Teşekkürler Asri bey..
Anlayamadım.. zaten kendimden de beklemiyordum..
 
Elinize ve bilginize sağlık harika ötesi olmuş..
İnşallah son sorum olur:"bunu esas programa nasıl aktaracağım?"
 
Elinize ve bilginize sağlık..
İnşallah son sorum olur:"bunu esas programa nasıl aktaracağım?"

Asıl sorun bu zaten :)

Neden örneğiniz esas programın bir örneği değil.

Her zaman örnek dosyanız.
İçinde gerçek veriler olmayan ancak orjinal dosya ile birebir bir aynı olsun ki, sizde hemen sonuca ulaşın. Bizde boşuna uğraşmayalım :)
 
An itibariyle esas programıma ulaşamıyorum. Kapalı bir sistemde..
belki de ileri ki günlerde e-postanıza göndererek yardım isteyebilirim..
Teşekkürler..
Benim e postam: mmpmk@hotmail.com
 
Teşekkür ederim.. Benim kullandığım excelden dolayı sanırım..
aşağıdaki hatayı veriyor..

Kaldırılan Bölüm: /xl/vbaProject.bin bölümü. (Visual Basic for Applications (VBA))


ve olmayanların düzeltmesi yaptığımda güncellemiyor..
 
Geri
Üst