Hücredeki sayıya göre satır açma...

[oak1969]

Selam arkadaşlar,

Forumda biraz aradım, ama derdime bir çare bulamadım.
Yapmak istediğim.

Excel tablosunda birçok satır var.
Her satırdaki bilgi için, o satırın ilk hücresindeki rakam kadar satır açıp komple o satırı kopyalamam gerekiyor.

Örneğin:

A5 hücresinde 43 değeri girilmiş, ben komple 5. satırı, yandaki sheet'e 43 satır açarak kopyalamam lazım.
A6 hücresinde 5 değeri var, yandaki sheet'e daha önce kopyaladığım yerin altına 5 satır açıp, 6. satırdaki herşeyi kopyalamak istiyorum. Liste bu şekilde devam ediyor...

Böyle birşey yapmak zor mudur acaba?


Örnek çalışma ektedir...


Teşekkürler

Olcay

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[cebir]

merhaba..
eki inceleyiniz.
"tablo" sayfasına gönderilecek veriler için
"data" sayfası "B" sütunu ("sayı"alanından) bir rakam üzerine çift tıklayın.

 

[Korhan Ayhan]

Selamlar,

Sn. cebir örneğinde döngü yöntemini kullanmıştır. Eğer bir satırı çok fazla miktarda kopyalayacaksanız döngü yavaş çalışacaktır. İşlem hızını arttırmak için alternatif olarak kodu aşağıdaki şekilde kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    Set S1 = Sheets("data")
    Set S2 = Sheets("tablo")
    Cancel = True
    Satır = S2.[A65536].End(3).Row + 1
    Range("A" & Target.Row & ":" & "F" & Target.Row).Copy S2.Range("A" & Satır & ":" & "F" & Satır + Target - 1)
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR."
End Sub

 

[mami68]

Güzel bi çalışma.Tebrikler

 

[oak1969]

Tam istediğim gibi olmuş, ilgilenen herkese teşekkürler

 

[cebir]

merhaba..
tşkr. form a