- Katılım
- 8 Mart 2006
- Mesajlar
- 317
- Excel Vers. ve Dili
- EXCEL-2013
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=DOLAYLI("Sayfa"&SATIR()&"!B2")
Sub f()
Columns("b:b").ClearContents
Dim S As Worksheet, m As Long
For Each S In Worksheets
m = Sheets("Sayfa1").Cells(65536, 2).End(xlUp).Row + 1
Sheets("Sayfa1").Cells(m, 2).Value = S.Cells(2, 2).Value
Next
End Sub