Makro ile Hücre Değeri Kadar Satır Ekleme

[brhmsrn]

İyi günler, sitede çok aradım ancak bulamadım. Yapmış olduğumuz bir tabloya(örn: A10-I15 ) başka Bir hücrede yer alan sayısal değer kadar satır ekleme yapabilir miyiz? (Örn: A1’deki değere göre A10’a hücre ekleme)

Teşekkürler

 

[ByChilavert]

Merhaba

İsteğini karşılar mı bilmiyorum ama ilgili alanları seçip F4 dediğin zaman seçili alan kadar satır eklemesi lazım

 

[brhmsrn]

Merhaba

İsteğini karşılar mı bilmiyorum ama ilgili alanları seçip F4 dediğin zaman seçili alan kadar satır eklemesi lazım

O şekilde yapıyorum zaten ancak bana makrosu lazım. Sonradan form denetimine bağlayıp çalışma şablonu oluşturacağım

 

[Muzaffer Ali]

Aşağıdaki kod işinizi görür mü?

Sub SatirEkle()
    Dim SatirEkle As Integer
    If Not IsNumeric(Range("A1").Value) Then
        MsgBox "Lütfen 'A1' hücresine bir rakam giriniz."
        Exit Sub
    End If
    For SatirEkle = 1 To Range("A1").Value
        Rows(ActiveCell.Row).Insert
    Next
End Sub

 

[brhmsrn]

Aşağıdaki kod işinizi görür mü?

Sub SatirEkle()
    Dim SatirEkle As Integer
    If Not IsNumeric(Range("A1").Value) Then
        MsgBox "Lütfen 'A1' hücresine bir rakam giriniz."
        Exit Sub
    End If
    For SatirEkle = 1 To Range("A1").Value
        Rows(ActiveCell.Row).Insert
    Next
End Sub

Sağolasın hocam aradığım tam anlamıyla buydu