- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
Kod:
Sub FormulKopyala()
xy = InputBox("başlangıç hücresini yaz")
If xy = "" Then
MsgBox "başlangıç hücresini yazmadınız.", vbInformation, " Uyarı"
Exit Sub
End If
sh = InputBox("son satır sayısı (harfsiz)")
If sh = "" Then
MsgBox "son satır numarasını yazmadınız.", vbInformation, " Uyarı"
Exit Sub
End If
X = Range("" & xy & "").Row
y = Range("" & xy & "").Column
For i = X To sh Step 6
Cells(X, y).Copy Cells(i, y)
Next
End Sub
(başkalarına da yardımcı olabileceği ihtimali ile ne işe yaradığını yazayım. bu makro kodu, belirlediğiniz bir hücreyi yine belirlediğiniz satıra kadar ve aşağı doğru 6 satır atlayarak kopyalıyor.)