Hücredeki verileri sütunlardaki verilerle karşılaştırma.

[Bora K]

Merhabalar
1. sayfada 2 hücredeki veriyi.
2. sayfada ki 2 sütunda arayacağız.
Detaylı bilgi ekte mevcuttur.
Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub AraYaz()
 
    Dim sat As Long, c As Range, Adr As String
 
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    Range("B4:C" & Rows.Count).ClearContents
 
    sat = 4
    With Sheets("Sayfa2")
        Set c = .[[COLOR=red]F:G[/COLOR]].Find(Range("B2"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                If .Cells(c.Row, "G") = Range("C2") Then
                    Cells(sat, "B") = .Cells(c.Row, "H")
                    Cells(sat, "C") = .Cells(c.Row, "I")
                    sat = sat + 1
                End If
                Set c = .[[COLOR=red]F:G[/COLOR]].FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[Bora K]

Ömer Bey.
Ellerinize sağlık. Kod örneğe göre kusursuz çalışıyor.

Lakin şöyle bir bir durum var.
Sayfa1 de B2 ve C2 verileri aynı olursa.
Sayfa1 e taşınan veriler çifter çifter geliyor.
Bu olmasın lütfen.
Makroyu buna göre revize edebilirseniz sevinirim.

 

[Ömer]

Tam olarak anlayamadım, örnek dosya ekleyerek dosya üzerinde açıklarmısınız.

 

[Bora K]

Merhaba;
Ekte açıklamaya çalıştım.

Düzeltmeyi yapar iken. Sayfa2 F sütunuda
E sütununa alabilirseniz sevinirim.

Saygılarımla.

 

[Ömer]

Haklısınız alanları yazarken F:F yazacağıma hızlı yazımdan dolayı F:G yazdığım için çift gelmiş.

E sütunundan alacaksanız, kodlarda ( kırmızı işaretledim ) F:G bölümlerine

E:E

yazarak deneyin.

 

[Bora K]

Tekrardan teşekkür ederim üstad.
Ellerinize sağlık. Esenkalın.