Kullanıcı
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
İyi günler...
Aşağıdaki kod ile iki boş satır ekleyebiliyorum. Fare ile seçtiğim alana (örn: B10:B30 arası) eklemek için kod nasıl olmalı?
Sub iki_Bos_Satir_Ekle()
Dim X As Long, Son As Long
Son = Cells(Rows.Count, 1).End(3).Row + 1
For X = Son To 2 Step -1
Range("A" & X & ":A" & X + 1).EntireRow.Insert
Next
End Sub
Aşağıdaki kod ile iki boş satır ekleyebiliyorum. Fare ile seçtiğim alana (örn: B10:B30 arası) eklemek için kod nasıl olmalı?
Sub iki_Bos_Satir_Ekle()
Dim X As Long, Son As Long
Son = Cells(Rows.Count, 1).End(3).Row + 1
For X = Son To 2 Step -1
Range("A" & X & ":A" & X + 1).EntireRow.Insert
Next
End Sub
