Soru Sütun Karşılaştırma ve Yazma Yardım Edermisiniz

[MindLove]

50.000 Satırlı 2 Sayfam ve Her Sayfada 2 Sütünüm Var

İlk Sayfa'daki A Sütun'u
İkinci Sayfadaki A İle Karşılaştırılacak Karşılığı Olan B Sütünündakiler

İkinci Sayfadaki B Sütün İçeriğini Silip İlk Sayfadakini A Karşılığı Olan B Sütün İçeriğini Yazdırmasını İstiyorum Şimdiden Çok Teşekkür Ediyorum Umarım Anlatabilmişimdir

 

[MindLove]

Örnek:

İlk Sayfadaki A Sütunu İkinci Sayfadaki A Sütunu İle Eşleşip İlk Sayfanın B Değeri İkinci Sayfanın B Değerini Silip Yazılacak

A​	B​	A​	B​
1​	ALİ​	9​	CEYHUN​
51​	MEHMET​	4​	TAYFUN​
2​	CEYHUN​	2​	MEHMET​
4​	TAYFUN​	51​	ALİ​
9​	POYRAZ​	1​	POYRAZ​

 

[MindLove]

@Muzaffer Ali

Yardımlarınızı Bekliyorum

 

[Muzaffer Ali]

Merhaba.
Düşeyara formülü işinizi görür. Buraya bakın.

 

[MindLove]

Merhaba.
Düşeyara formülü işinizi görür. Buraya bakın.

Formul olarak A ile C Stundaki Numaralar Uyustugu Taktirde B deki Sutun Metini D sutun icerigi silip B Sutun icerigi yazmasi icin verebilirmisiniz rica etsem formulu

 

[Korhan Ayhan]

Örnek dosya paylaşınız.

 

[MindLove]

Örnek dosya paylaşınız.

Örnek

1. Sayfadaki ID=A Sutunu 2. Sayfadaki Varolan ID=A Sutunu ile eşleştiği taktirde
1. Sayfadaki B Sutun Metini 2. Sayfadaki B sutun İçeriğini Değiştirmesi Örnekde Anlaşılacakıtr.

Birden Çok Dosya Yapacağım İçin Butonlu veya En Kestirme Yol Hakkında Yardımınızı Bekliyorum

 

[Korhan Ayhan]

VLOOKUP ile sonuca gidebilirsiniz.

=IFERROR(VLOOKUP($A2;Sayfa1!$A:$B;2;0);"")

 

[Korhan Ayhan]

Önerdiğim formülü Sayfa2 B2 hücresine uyguladıktan sonra alta doğru sürükleyiniz.

Eğer Türkçe sürüm kullanıyorsanız formülü Türkçe'ye çevirmeniz gerekiyor.

 

[MindLove]

VLOOKUP ile sonuca gidebilirsiniz.

=IFERROR(VLOOKUP($A2;Sayfa1!$A:$B;2;0);"")

A2 ye Yazdım Fakat Değişiklik Olmadı

 

[Korhan Ayhan]

Bir önceki mesajımı okuyunuz.

 

[MindLove]

Bir önceki mesajımı okuyunuz.

=EĞERHATA(DÜŞEYARA($A2;Sayfa1!$A:$B;2;0);"")

Sadece SAYFA 1 deki b2 hücreyi Sayfa 2 b2 hücreye taşıyor ben sayfa 1 deki tüm b2 hücreyi sayfa 2 b hücreye taşımayı yapmak istiyorum


Sayfa 1 ve 2 'de A stünda Telefon Numaraları Karışık Şekilde Aynı Fakat Karışık Sayfa 1 ve 2'de B stünda isim soy isimlar A lar Eşleşince B İçerik 1 den 2 sayfaya taşınması amacım çünkü 2. sayadaki b stün isim soy isimleri yanlış

 

[Korhan Ayhan]

Formülü B2 hücresine uyguladıktan sonra aşağıya doğru sürükleyiniz diye üstteki mesajımda belirtmiştim. Sanırım gözünüzden kaçtı.

 

[MindLove]

Formülü B2 hücresine uyguladıktan sonra aşağıya doğru sürükleyiniz diye üstteki mesajımda belirtmiştim. Sanırım gözünüzden kaçtı.

Hocam Sürüklüyorum fakat Değişmiyor Sadece A2 Ler Eşleşiyor B2 leri Alıyor Tüm Eşleşen A ların Tüm B Sütünü Almak İstiyorum

SAYFA 2 DE A Sütünü, SAYFA 1 A DEKİ İLE AYNIYSA
GİT SAYFA 2 DEKİ B Yİ GETİR

Böyle Olması Gerekmiyormu


=[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](A2;Sayfa2!$A$2:$G$100;4;0);[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](B2;Sayfa2!$B$2:$G$100;4;0);[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](C2;Sayfa2!$C$2:$G$100;5;0);"")))


 

[MindLove]

Hocam Sürüklüyorum fakat Değişmiyor Sadece A2 Ler Eşleşiyor B2 leri Alıyor Tüm Eşleşen A ların Tüm B Sütünü Almak İstiyorum

SAYFA 2 DE A Sütünü, SAYFA 1 A DEKİ İLE AYNIYSA
GİT SAYFA 2 DEKİ B Yİ GETİR

Böyle Olması Gerekmiyormu


=[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](A2;Sayfa2!$A$2:$G$100;4;0);[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](B2;Sayfa2!$B$2:$G$100;4;0);[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="red"]DÜŞEYARA[/COLOR](C2;Sayfa2!$C$2:$G$100;5;0);"")))


Yaklaşık 500 bin A Sütn ID VAR KARIŞIK Ama Sadece B2 tek Getirdi

 

[Korhan Ayhan]

O kadar satırda sonuç vermesi biraz zaman alacaktır.

Makro ile yapmak daha mantıklı görünüyor.

 

[MindLove]

O kadar satırda sonuç vermesi biraz zaman alacaktır.

Makro ile yapmak daha mantıklı görünüyor.

Baya Elimde Mevcut Var Makro İçin Yardım Edebilirmisiniz Umarım Doğru Anlattım

2 A Tüm Sütun Karşılaştıralacak Aynı ID Olanların Tüb B Sütünü 1.sayfadan 2. B sütüna yerleşecek

Butona Bağlayıp "A = A" Aynı İse B yi B 'ye Taşıması Sağlaması Olabilirmi

 

[Korhan Ayhan]

Deneyiniz.

İşlem süresini bildirirseniz sevinirim.

Option Explicit

Sub Fast_Vlookup()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Veri As Variant, X As Long
    Dim Zaman As Double, Say As Long
    
    Zaman = Timer
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Veri = S1.Range("A1").CurrentRegion.Value
    
    With VBA.CreateObject("Scripting.Dictionary")
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            .Item(Veri(X, 1)) = Veri(X, 2)
        Next
    
        Veri = S2.Range("A2:A" & S2.Cells(S2.Rows.Count, 1).End(3).Row).Value
        
        ReDim Liste(1 To S2.Rows.Count, 1 To 1)
        
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            Say = Say + 1
            If .Exists(Veri(X, 1)) Then
                Liste(Say, 1) = .Item(Veri(X, 1))
            End If
        Next
        S2.Range("B2").Resize(Say).Value = Liste
    End With
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır." & vbCrLf & vbCrLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[MindLove]

Deneyiniz.

İşlem süresini bildirirseniz sevinirim.

Option Explicit

Sub Fast_Vlookup()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Veri As Variant, X As Long
    Dim Zaman As Double, Say As Long
  
    Zaman = Timer
  
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
  
    Veri = S1.Range("A1").CurrentRegion.Value
  
    With VBA.CreateObject("Scripting.Dictionary")
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            .Item(Veri(X, 1)) = Veri(X, 2)
        Next
  
        Veri = S2.Range("A2:A" & S2.Cells(S2.Rows.Count, 1).End(3).Row).Value
      
        ReDim Liste(1 To S2.Rows.Count, 1 To 1)
      
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            Say = Say + 1
            If .Exists(Veri(X, 1)) Then
                Liste(Say, 1) = .Item(Veri(X, 1))
            End If
        Next
        S2.Range("B2").Resize(Say).Value = Liste
    End With
  
    Set S1 = Nothing
    Set S2 = Nothing
  
    MsgBox "İşleminiz tamamlanmıştır." & vbCrLf & vbCrLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

Çok Teşekkürler Şimdi Bitti Yaklaşık 3 Dakika Sürdü Tam 557.930 Adet Satır Karşılaştırıp Yazdı Nasıl Bir Yük Kalktı Üzerimden Tahmin Bile Edemezsiniz Bir Sonraki Adım Olmayan ID Karşılığı Olan A VE B Sütünları Ayırmak Olacak Biraz Excel'de Gelişmeliyim

 

[MindLove]

Deneyiniz.

İşlem süresini bildirirseniz sevinirim.

Option Explicit

Sub Fast_Vlookup()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Veri As Variant, X As Long
    Dim Zaman As Double, Say As Long
   
    Zaman = Timer
   
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
   
    Veri = S1.Range("A1").CurrentRegion.Value
   
    With VBA.CreateObject("Scripting.Dictionary")
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            .Item(Veri(X, 1)) = Veri(X, 2)
        Next
   
        Veri = S2.Range("A2:A" & S2.Cells(S2.Rows.Count, 1).End(3).Row).Value
       
        ReDim Liste(1 To S2.Rows.Count, 1 To 1)
       
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            Say = Say + 1
            If .Exists(Veri(X, 1)) Then
                Liste(Say, 1) = .Item(Veri(X, 1))
            End If
        Next
        S2.Range("B2").Resize(Say).Value = Liste
    End With
   
    Set S1 = Nothing
    Set S2 = Nothing
   
    MsgBox "İşleminiz tamamlanmıştır." & vbCrLf & vbCrLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

Hocam Şöyle Bir Sorun Var Sayfa 1 'de Olmayan A ve B Sayfa 2 'deki A ları Silmiyor Ama B'yi Siliyor Bualamadıgı A Karşıtı B ' yi Sayfa 2 'de Silmemesi İçin Fonksiyon Ekleyebilirmisiniz Rica Etsem