Sebahattinnn
Altın Üye
- Katılım
- 18 Eylül 2020
- Mesajlar
- 116
- Excel Vers. ve Dili
- Microsoft Office Excel 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 03-11-2025
Kod:
Option Explicit
Sub DikdörtgenKöşeleriYuvarlatılmış1_Tıkla()
Dim Sz As Worksheet, son As Long
Set Sz = Sheets("Genel Liste")
son = Sz.Cells(Rows.Count, "B").End(xlUp).Row + 1
Sz.Cells(son, "A") = son - 1
Range("A2:Q2").Copy Sz.Cells(son, "B")
End Sub