Merhaba Arkadaşlar,
Ekteki gibi örnek bir dosyam var. Bu dosya içerisinde aşağıdaki gibi bir makrom var. Daha önceden bu makro işimi görmüştü. Ama şimdi yeni koşula göre yaptığımda " Overflow " diye bir hata veriyor.
Sorum kısaca şudur. A sütununda bir veri dizesi var.(150000 satır) A302 hücresinden başlayarak her 300 satırda bir 20 satır ekleyecek.
Daha önce çalışan makro buydu.
Sub Üç_Satir_Ekle()
Dim a As Byte, sat As Byte
[A2].Select
a = 4: sat = 3
While ActiveCell.Value <> ""
ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
ActiveCell.Offset(a, 0).Select
Wend
a = Empty: sat = Empty
End Sub
Yardımlarınız için teşekkürler.
Ekteki gibi örnek bir dosyam var. Bu dosya içerisinde aşağıdaki gibi bir makrom var. Daha önceden bu makro işimi görmüştü. Ama şimdi yeni koşula göre yaptığımda " Overflow " diye bir hata veriyor.
Sorum kısaca şudur. A sütununda bir veri dizesi var.(150000 satır) A302 hücresinden başlayarak her 300 satırda bir 20 satır ekleyecek.
Daha önce çalışan makro buydu.
Sub Üç_Satir_Ekle()
Dim a As Byte, sat As Byte
[A2].Select
a = 4: sat = 3
While ActiveCell.Value <> ""
ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
ActiveCell.Offset(a, 0).Select
Wend
a = Empty: sat = Empty
End Sub
Yardımlarınız için teşekkürler.