Soru SATIR EKLEME

[bursacem]

Detayları tabloda paylaştım

 

[ÖmerFaruk]

1. Tablonuzun ham hali A1:A10 renksiz olan alan mı?
2. Yeşil olan bölgeye mi yazacağız? Yoksa onun da altına mı?
3. Tablonun satır sayısı değişken mi? Şu an beyazlar 10, bu bazen daha fazla olabilir mi?
4. Fonksiyonlar kısmında sormuşsunuz ancak sanırım kodla çok daha pratik olacaktir. Size uyar mı?

 

[bursacem]

1. Tablonuzun ham hali A1:A10 renksiz olan alan mı?
2. Yeşil olan bölgeye mi yazacağız? Yoksa onun da altına mı?
3. Tablonun satır sayısı değişken mi? Şu an beyazlar 10, bu bazen daha fazla olabilir mi?
4. Fonksiyonlar kısmında sormuşsunuz ancak sanırım kodla çok daha pratik olacaktir. Size uyar mı?

1. Evet A1:10 arası
2. Evet yeşil olan bölgeye
3. Evet tablo satır sayısı değişken çok daha uzun
4. tabiki

 

[ÖmerFaruk]

Module içine ekleyip sayfa üzerinden bir butona atayabilrisiniz

Sub YeniMakro1()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("D" & i) > 1 Then
        Son = Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & Son + 1, "A" & Son + Range("D" & i)) = Range("A" & i)
        Range("B" & Son + 1, "B" & Son + Range("D" & i)) = Range("B" & i)
        Range("C" & Son + 1, "C" & Son + Range("D" & i)) = Range("C" & i)
    End If
Next i
End Sub