Aynı Değerleri Taşıma

[nadirornek]

Merhaba Arkadaşlar,

Bir excel dosyamda 3 tane sayfam var.Sayfa1 ve Sayfa2 A sütunlarında değerlerim mevcut.Bir makro yazarak Sayfa1,Sayfa2 A sütunundaki aynı olan değerleri Sayfa3 de A sütununa alt alta yazmak istiyorum.Nasıl bir yol izlemeliyim.

Teşekkurler.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırın..

Sub OlanlarıListele()
Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
Set S3 = Sheets("Sayfa3")
son = S1.[A65536].End(3).Row
S3.Range("A1:A65536").ClearContents
sat = 1
For i = 1 To son
    If WorksheetFunction.CountIf(S1.Range("A1:A" & son), _
    S2.Cells(i, "A").Value) = 1 And WorksheetFunction.CountIf(S1.Range _
    ("A1:A" & i), S1.Cells(i, "A").Value) = 1 Then
        S3.Cells(sat, "A") = S1.Cells(i, "A")
        sat = sat + 1
    End If
Next i
End Sub

.

 

[Orion1]

Ben VBA diyorum.

Sub ayniler()
Dim s1 As Worksheet, s2 As Worksheet, sat1 As Long
Dim sat2 As Long, sat3 As Long, i As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sat1 = s1.Cells(65536, "A").End(xlUp).Row
sat2 = s2.Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa3").Select
Range("A:A").ClearContents
Application.ScreenUpdating = False
For i = 1 To sat1
    If WorksheetFunction.CountIf(s2.Range("A1:A" & sat2), s1.Cells(i, "A").Value) > 0 Then
        sat3 = sat3 + 1
        Cells(sat3, "A").Value = s1.Cells(i, "A").Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Benzerler sayfa3e aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[nadirornek]

Kodlar için teşekkürler ikinci kod daha güzel buluyor.

 

[nadirornek]

Kodları işde denedim fakat kodlar üzerinde fazla oynayamadığım için biraz takıldım.
ESAPEDEN (sap)'tan aradığım numaraya ait alt numaraları bulduğu zaman dosya ismine aradığım numaranın ismini vermekteyim,masa üstüne kaydetmekteyim.
Çalışmış olduğum AY3 dosyasına ancak kopyalayarak verileri sayfaya aktarmaktayım.
Ançak macroyu başka bir dosyadan veri almak için çalıştırdığımda dosya ismi hatası veriyor.
Almak isteği dosya ismini macro üzerinde değiştirmekteyim.
ANASAYFA üzerinde j1 hücresine almak istediğim dosya ismini yazarak macroru çalıştırdığımda almak istediğim dosya ismini buradan alabilirmi.

Anasayfa üzerinde düşeyara formülünü kullanmaktayım.Bu formülü kod olarak bir örnek olursa diğerlerinede uygulayabilirim.

Arkadaşlar sorum anlaşılabilir olsun diye uzun oldu.

Teşekkürler