ayni dosyadaki 2 farkli sheetteki verileri eslestirip 3. bir sheete kopyalamak

[gokhanrenc]

Merhaba,
Ayni excel dosyasi icinde yer alan 2 farki sheetin, birinin E kolonundaki veriyle digerinin D kolonun daki veri eslestigi taktirde sheet3 e, sheet1 ve sheet2 de eslesen satirlarin tamamini kopyalamak istiyorum.
Ekteki ornek excel dosyasinin sheet2 sayfasina yapmak istedigim islemi ayrintili olarak anlattim.

Yardimci olabileceklere simdiden tesekkurler,

ps: Orjinal verilerin tamamini sildim, okul icin yuruttugum bir proje, verileri 3. bir kisiyle paylasma imkanim yok, yanlis anlamanizi istemem

 

[mancubus]

foruma hoş geldin.

yedek bir dosyada denemeni öneririm.

Sheet3 sayfasını oluşturduktan sonra tabii.

Sub Eslesirse_Aktar()

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim sBul As Long, i As Long, ssat As Long

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
Set ws3 = Worksheets("Sheet3")

For i = 2 To ws1.Cells(Rows.Count, "E").End(xlUp).Row
    On Error Resume Next
    sBul = Application.Match(ws1.Cells(i, "E"), ws2.Columns("D"), 0)
    If Err.Number = 0 Then
        ssat = ws3.Cells(Rows.Count, "E").End(xlUp).Row + 1
        ws1.Range("A" & i & ":Q" & i).Copy Destination:=ws3.Cells(ssat, "A")
        ws2.Range("A" & sBul & ":BX" & sBul).Copy Destination:=ws3.Cells(ssat, "R")
    End If
    On Error GoTo 0
Next

End Sub

 

[f_desat]

sayın gokhanrenc,

Bu bahsettiğiniz işlemi Vlookup(düşeyara) formülü kullanarakta yapabilirsiniz .

 

[mancubus]

sayın gokhanrenc,

Bu bahsettiğiniz işlemi Vlookup(düşeyara) formülü kullanarakta yapabilirsiniz .

7000-8000 satır ve toplamda 31 sütunluk veri için formül ile yapılmış örneğini görmek isterim.

 

[gokhanrenc]

Cok tesekkurler mancubus, gercekten hayatimdan en az bi 48 saati kurtardin
ilk firsatta bi kitap alip makro ve vbasic ogrenmeyi planliyorum gercekten

foruma hoş geldin.

yedek bir dosyada denemeni öneririm.

Sheet3 sayfasını oluşturduktan sonra tabii.

Sub Eslesirse_Aktar()

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim sBul As Long, i As Long, ssat As Long

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
Set ws3 = Worksheets("Sheet3")

For i = 2 To ws1.Cells(Rows.Count, "E").End(xlUp).Row
    On Error Resume Next
    sBul = Application.Match(ws1.Cells(i, "E"), ws2.Columns("D"), 0)
    If Err.Number = 0 Then
        ssat = ws3.Cells(Rows.Count, "E").End(xlUp).Row + 1
        ws1.Range("A" & i & ":Q" & i).Copy Destination:=ws3.Cells(ssat, "A")
        ws2.Range("A" & sBul & ":BX" & sBul).Copy Destination:=ws3.Cells(ssat, "R")
    End If
    On Error GoTo 0
Next

End Sub

 

[Murat OSMA]

Bence Sn. mancubus'a 1 kilo baklava ısmarlamalısınız...;-)

 

[mancubus]

Cok tesekkurler mancubus, gercekten hayatimdan en az bi 48 saati kurtardin
ilk firsatta bi kitap alip makro ve vbasic ogrenmeyi planliyorum gercekten

rica ederim. kolay gelsin.
ciddi eğitim veren bir kuruluştan eğitim alarak başlamayı tavsiye ederim.

Bence Sn. mancubus'a 1 kilo baklava ısmarlamalısınız...;-)

tesadüf, biraz önce, çaktırmadan, dolaptan tatlı aşırmıştım.
:biggrin::biggrin:
(yassah olduğu günden beri kıymetli. takip ediliyorum.. normalde önceden tatlı hiç aramazdım.)

 

[Murat OSMA]

tesadüf, biraz önce, çaktırmadan, dolaptan tatlı aşırmıştım.
:biggrin::biggrin:
(yassah olduğu günden beri kıymetli. takip ediliyorum.. normalde önceden tatlı hiç aramazdım.)

Gökhan Bey, madem Sn. mancubus'a tatlı yassah, o halde tatlı iptal.
Siz sorularımı çözün, ben size bol bol tatlı ısmarlarım derseniz: sanırım her istediğinizi yaptırabilirsiniz.

Bu arada Sn. mancubus sanırım bir rahatsızlığınız var, :frown: geçmiş olsun...

 

[gokhanrenc]

ahaha sorulari artik yarim kilo baklava, bi kilo baklava cinsinden puanlayip oyle postlamak mantikli olabilir

dun uye oldum foruma, sanirim bayaa zaman gecirecegim forumda

Gökhan Bey, madem Sn. mancubus'a tatlı yassah, o halde tatlı iptal.
Siz sorularımı çözün, ben size bol bol tatlı ısmarlarım derseniz: sanırım her istediğinizi yaptırabilirsiniz.

Bu arada Sn. mancubus sanırım bir rahatsızlığınız var, :frown: geçmiş olsun...

 

[Murat OSMA]

Mesajlarınıza bir dilim baklava ya da pasta resmi ekleyebilirsiniz...

Tabi ki latife yapıyorum. Umarım iyi vakit geçirirsiniz.

Hoşça kalın !!!

 

[mancubus]

Gökhan Bey, madem Sn. mancubus'a tatlı yassah, o halde tatlı iptal.
Siz sorularımı çözün, ben size bol bol tatlı ısmarlarım derseniz: sanırım her istediğinizi yaptırabilirsiniz.

Bu arada Sn. mancubus sanırım bir rahatsızlığınız var, :frown: geçmiş olsun...

teşekkürler....
su dışında bütün içecekler diye başlayan bir yassah listem var.
neyse devam etmeyeyim

konu da fazla sapmasın.