2 Sayfadaki verileri 1 Sayfada birleştirme

[Saladin]

Merhaba;

Sayfa1 de ki a sütunu ile b sütünnundaki veriler ile Sayfa2 de bulunan a sütünu ve b sütünundaki verilerin alt alta Sayfa3'e a ve b sütununa gelmesi konusunda desteğiniz.

Kolay gelsin.

 

[volki_112]

Merhaba;

Sayfa1 de ki a sütunu ile b sütünnundaki veriler ile Sayfa2 de bulunan a sütünu ve b sütünundaki verilerin alt alta Sayfa3'e a ve b sütununa gelmesi konusunda desteğiniz.

Kolay gelsin.

Power Query ile yaptım. Query ile istemezseniz makro ile de yapabilir. Sayfa1 ve Sayfa2 de değişiklik yaptınız zaman Sayfa3 de A veya B sütununda veri yazılı olan yerde sağ tıklayıp yenile yazısına tıklarsanız son güncellemeler Sayfa3 e gelir

 

[Saladin]

Tesekkür eddrim guzel fakat ben buradaki sıstemı kendi asıl sayfama nasıl yapacağım.

 

[Necdet]

Merhaba,
Her iki sayfada benzer kodlar var. Sizin amacınız bunları teke indirip yeni bir liste mi yapmak, yoksa doğrudan iki sayfayı birleştirmek mi?

 

[Saladin]

Merhaba Amacım iki listeyi de aynı kod olsa dahi alt alta yazmaktır.

 

[Saladin]

Merhaba, konu hakkında bilgi varmıdır

 

[volki_112]

Tesekkür eddrim guzel fakat ben buradaki sıstemı kendi asıl sayfama nasıl yapacağım.

benim yaptığım çözümde power query bilmiyorsanız kendi dosyanıza uyarlamanız zor. uzaktan bağlantı verirseniz sizin pc ye bağlanıp yapabilirim isterseniz. ya da makro çözüm isterseniz arkadaşlardan makro önerisi gelir

 

[Necdet]

Merhaba
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Public Sub SayfaBirlestir()

Dim syf As Variant
Dim rng As Range
Dim sh  As Worksheet
Dim r   As Long
Dim i   As Integer

syf = Array("Sayfa1", "Sayfa2")
Set sh = Sheets("Sayfa3")
sh.Cells.Clear

For i = LBound(syf) To UBound(syf)
    Set rng = Sheets(syf(i)).Range("A1").CurrentRegion
    If i = 0 Then
        rng.Copy sh.Range("A1")
    Else
        r = sh.Cells(Rows.Count, "A").End(3).Row + 1
        rng(2, 1).Resize(rng.Rows.Count - 1, rng.Columns.Count).Copy sh.Range("A" & r)
    End If
Next i

End Sub

 

[Saladin]

Necdet bey , Elinize ve Emeğinize sağlık.