Herkese hayırlı günler, iyi çalışmalar dilerim. Hocalarım uygunsa eğer bir yardımınızı rica edicem. Makrodan anlamıyorum, burdan ve netten araştırdığım kadarıyla bir makro oluşturmaya çalıştım. Amacım; çalışma dosyamın A sütununda tarihler var, A ve K hücreleri arasında değerler var. Aşağıya eklemiş olduğum makro ile A sütununda bulunan tarihler arasında ayın 5 inden sonra A:K arasında bir satır boşluk bıraksın. Aşağıdaki klemiş olduğum makro ile buna birazcık yaklaştım sanki. Fakat şöyle sorunlar çıktı, A1 hücresinden sonra sürekli boş satır ekliyor makro durmuyor, kısır bir döngüye girdi vede sadece 1 hücre boş ekliyor ben istiyorum ki A:K aralığı kadar boş satır eklesin. Yardımcı olabilirseniz çok sevinirim.
Sub bos_satir_eklemek()
Dim Excel As Range
Dim Makro As Integer
For Each Excel In Range("A2:A1000")
Excel.Value = Makro
Makro = 5 / 2 / 2018
If Makro = Excel Then
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
End If
Next Excel
End Sub
Sub bos_satir_eklemek()
Dim Excel As Range
Dim Makro As Integer
For Each Excel In Range("A2:A1000")
Excel.Value = Makro
Makro = 5 / 2 / 2018
If Makro = Excel Then
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
End If
Next Excel
End Sub