- Katılım
- 23 Ocak 2011
- Mesajlar
- 293
- Excel Vers. ve Dili
- 2007 excel
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub deneme()
Range("A1").Select
For i = 1 To [a65536].End(xlUp).Row
Cells(i, 1).FormulaR1C1 = "=Sayfa1!R" & i & "C1"
Next
End Sub