- Katılım
- 20 Mart 2012
- Mesajlar
- 5
- Excel Vers. ve Dili
- 2007-Türkçe
- Altın Üyelik Bitiş Tarihi
- 21-11-2023
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub satirkopya()
son = Cells(Rows.Count, "C").End(3).Row
Application.ScreenUpdating = False
For i = son To 2 Step -1
Rows(i).Copy: Rows(i + 1 & ":" & i + Cells(i, "C") - 1).Insert shift:=xlDown
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı."
End Sub