2 ayrı saydan verı alma

[mtbi00]

iyi günler,

ben excelde 2 ayrı sayfadaki bilgileri bir sayfada düzenlemek istiyorum. Örnek dosyada olduğu gibi sayfa BB ve sayfa CC deki bilgileri sayfa AA daki butona basınca noya göre sıralı biçimde sayfa AA ya taşımak için nasıl bir makro yazabiliriz. Konu hakkında yardımcı olursanız sevinirim.

Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub verieri_al()
Dim i As Byte, list() As Variant, myarr() As Variant, sh As Worksheet
myarr = Array("", "BB", "CC")
Sheets("AA").Select
Application.ScreenUpdating = False
Range("A2:D65536").ClearContents
For i = 1 To 2
    Set sh = Sheets(myarr(i))
    list = sh.Range("A2:D" & sh.Cells(65536, "A").End(xlUp).Row)
    Range("A" & Cells(65536, "A").End(xlUp).Row + 1).Resize(UBound(list), 4) = list
    Erase list
    Set sh = Nothing
Next i
Range("A2:D" & Cells(65536, "A").End(xlUp).Row).Sort Range("A2")
Application.ScreenUpdating = True
MsgBox "Veriler Aktarıldı ve sıra numarasına göre sıralandı.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[mtbi00]

çok teşekkür ederim.zahmet oldu sağolun

 

[Orion1]

çok teşekkür ederim.zahmet oldu sağolun

Rica ederim.
İyi çalışmalr..cool: