Belirlenen Aralığa Satır Eklemek

[mumunal]

Satır ekleme konusunda aradığımı malesef bulamadım;
Ekte bulunan dosyada açıklamaya çalıştığım şekilde satır ekleme makrosu arıyordum. Teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Satır_Ekle()
If MsgBox("[ " & Range("I1").Value & " ] Numaralı satırı eklemek istiyormusunuz?", vbYesNo + vbQuestion, "EKLEME") = vbNo Then Exit Sub
Rows(Range("I1").Value).Insert Shift:=xlDown
MsgBox "[ " & Range("I1").Value & " ] Nolu satır eklendi..!!", vbOKOnly + vbInformation, "EKLEME"
End Sub

Sub satir_sil()
If MsgBox("[ " & Range("I1").Value & " ] Nolu satırı silmek istiyormusunuz?", vbYesNo + vbQuestion, "SİLME") = vbNo Then Exit Sub
Rows(Range("I1").Value).Delete
MsgBox "[ " & Range("I1").Value & " ] Nolu satır silindi..!!", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[mumunal]

Teşekkür ederim çok iyi oldu.

 

[Orion1]

Teşekkür ederim çok iyi oldu.

Rica ederim.
İyi çalışmalar.

 

[mumunal]

Orion2 usta ; Tekrar merhaba
Kodların değerlerini değiştirerek satır ekleme işlemini istediğim aralığa uyarlayabileğimi düşünüyordum ama pek mümkün görünmüyor.

Örneğin eklemek istediğim satırı A ile C değilde A ile P arasına eklemek istediğimde hangi değeri değiştireceğim.

 

[Orion1]

benim yazdığım kodlarda tüm satır ekleniyor.Dolayısıyle sizin dediğiniz aralığada eklenmiş oluyor.

 

[mumunal]

Tüm satıra yeni satır eklenince sayfadaki diğer bilgilerin ayrılmasına yada silinmesine neden oluyor. Bu nedenle eklenecek satır aralığı önemli. Teşekür ederim.

 

[Orion1]

Orion2 usta ; Tekrar merhaba
Kodların değerlerini değiştirerek satır ekleme işlemini istediğim aralığa uyarlayabileğimi düşünüyordum ama pek mümkün görünmüyor.

Örneğin eklemek istediğim satırı A ile C değilde A ile P arasına eklemek istediğimde hangi değeri değiştireceğim.

Aşağıdaki kodlar A aralığını I1 hücresine yazdığınız satırı siler veya ekler .

Sub Satır_Ekle()
If MsgBox("[ " & Range("I1").Value & " ] Numaralı satırı eklemek istiyormusunuz?", vbYesNo + vbQuestion, "EKLEME") = vbNo Then Exit Sub
Range(Cells(Range("I1").Value, "A"), Cells(Range("I1").Value, "P")).Insert shift:=xlDown
MsgBox "[ " & Range("I1").Value & " ] Nolu satır eklendi..!!", vbOKOnly + vbInformation, "EKLEME"
End Sub

Sub satir_sil()
If MsgBox("[ " & Range("I1").Value & " ] Nolu satırı silmek istiyormusunuz?", vbYesNo + vbQuestion, "SİLME") = vbNo Then Exit Sub
Range(Cells(Range("I1").Value, "A"), Cells(Range("I1").Value, "P")).Delete (xlUp)
MsgBox "[ " & Range("I1").Value & " ] Nolu satır silindi..!!", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[mumunal]

Şimdi tamam; vakit ayırdığınız ve ilgilendiğiniz için teşekkürler.

 

[Orion1]

Şimdi tamam; vakit ayırdığınız ve ilgilendiğiniz için teşekkürler.

Rica ederim.
İyi çalışmalar.