Miraga
Destek Ekibi
- Katılım
- 11 May 2022
- Mesajlar
- 1,246
- Çözümler
- 275
- Aldığı beğeni
- 931
- Excel V
- Office 2016 TR
Konu Sahibi
merhabalar
farklı sayfalardaki verileri tek tabloda birleştirmek için bilgi ararken
Çözüldü - Farklı sayfaları birleştirme burada makroyu uygulamaya çalıştım ancak tabloların hep son satırlarını kopyalamıyor yardımcı olabilirmisiniz
Sub birlestir()
On Error Resume Next
Dim x As Long, userx As Range
bu = ActiveSheet.Name
Application.DisplayAlerts = False: Application.ScreenUpdating = False: ActiveSheet.Range("A2:N10000").Delete
For x = 2 To Sheets.Count
Set userx = Sheets(bu).UsedRange
Set userx1 = Sheets(bu).Cells(userx.Rows.Count + 1, 1)
Sheets(x).Activate: ActiveSheet.Range("A2:N10000").Copy userx1
Next
Sheets(bu).Select: Range("A2:N65536").Sort key1:=Range("A2"), ORDER1:=xlAscending
MsgBox "Bitti", vbInformation, "userx": Application.ActiveWorkbook.Save
End Sub
farklı sayfalardaki verileri tek tabloda birleştirmek için bilgi ararken
Çözüldü - Farklı sayfaları birleştirme burada makroyu uygulamaya çalıştım ancak tabloların hep son satırlarını kopyalamıyor yardımcı olabilirmisiniz
Sub birlestir()
On Error Resume Next
Dim x As Long, userx As Range
bu = ActiveSheet.Name
Application.DisplayAlerts = False: Application.ScreenUpdating = False: ActiveSheet.Range("A2:N10000").Delete
For x = 2 To Sheets.Count
Set userx = Sheets(bu).UsedRange
Set userx1 = Sheets(bu).Cells(userx.Rows.Count + 1, 1)
Sheets(x).Activate: ActiveSheet.Range("A2:N10000").Copy userx1
Next
Sheets(bu).Select: Range("A2:N65536").Sort key1:=Range("A2"), ORDER1:=xlAscending
MsgBox "Bitti", vbInformation, "userx": Application.ActiveWorkbook.Save
End Sub
