DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub SayfaBirlestir()
Dim i As Integer, S2 As Worksheet
Set S2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
S2.Select
[A:A].ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa2" Then
Sheets(i).Select
Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy _
S2.Range("A" & S2.Cells(Rows.Count, "[COLOR=red][B]A[/B][/COLOR]").End(xlUp).Row + 1)
End If
Next i
S2.Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub
sayfa2 adli sayfanizin a1 hucresine =INDIRECT("start_"&ROW(A1)) bunu yaziniz egerki exceliniz turkce ise =DOLAYLI("start_"&SATIR(A1)) seklinde yaziniz..
Ayrica profilinizden excel versiyonunuzun yanina dilinide yaziniz, bu alacaginiz cevaplarin daha net olmasini saglayabilir..
#5 nolu mesajda kırmızı ile işaretledim..
.
Örnek dosya ekte..Sorunuzu destekleyen bir örnek eklermisiniz..
.