Çözüldü Hücre İçerisindeki Değer Kadar Satır Ekleme

Merhaba;

Bir hücre içerisindeki değer kadar satır eklemek için nasıl bir makro yazmak gerekir.

Örneğin B2 hücresinde yazan değer 300 (300 adet satır eklemek istiyorum A2 hücresindeki bilgiyide yanına yazmasını istiyorum.)

Örnek Dökümanı ekte gönderiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Merhaba hoş geldiniz.

Bu kodları kullanabilirsiniz..

Admin' Alıntı:

Merhaba hoş geldiniz.

Bu kodları kullanabilirsiniz..

PHP:Panoya kopyala

Sub ExcelTurkey()
    Dim i%
    i = 2
    While Cells(i, 2) <> ""
        If Cells(i, 2) <> 1 Then
            Rows(i + 1 & ":" & Cells(i, 2).Value + i - 1).Insert
            Range("A" & i & ":B" & i).AutoFill _
            Range("A" & i & ":B" & Cells(i, 2).Value + i - 1), Type:=xlFillCopy
            i = i + Cells(i, 2).Value
                Else
            i = i + 1
        End If
    Wend
    i = Empty
End Sub

Genişletmek için tıkla ...

Teşekkür Ederim. İhtiyacımı karşıladı.

Emeğinize ve Bilginize Sağlık.

Sağ olun, iyi günler.