Aktif satıra ve katlarına satır eklemek..

[EKREM1661]

Değerli üstadlarım..!
Sayfanın belli satırları üzerinden 5 satır birden eklemek istiyorum. Şöyleki; Seçilen aktif satırın altına veya üstüne 5 satır ekleyecek.. Fakat bunu yaparken 5.nci satır ve katlarından biri seçilmiş ise, satır açacak, değilse uyarı verecek..

Örneğin, 5,10,15,20,25...katları satırlarından birisi seçilirse 5 satır ekleyecek, değilse uyarı verecek.. (Çünkü satırlar 5'erli grup halinde olduğu için grubu bozmak istemiyorum) Böyle bir şey yapılabilir mi?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub Kod()
If Selection.Rows.Count = 1 And Selection.Row Mod 5 = 0 Then
    For a = 1 To 5
        Rows(Selection.Row + 1).Insert
    Next
Else
    MsgBox "Uyarı"
End If
End Sub

 

[EKREM1661]

Sn.mucit77 üstadım, çok teşekkür ediyorum..İstediğim buydu..

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...