Veri aktarma (Yandaki Satıra)

[kontto]

Hayırlı Günler Arkadaşlar, Ekte gönderdiğim excel sayfasında yer alan C6:E6 satırları arasına yazdığım malzemenin E6 da yer alan bilgisayar sayısı miktarınca I6:J6 satırından başlayarak E6 da kaç adet yazılmışsa o kadar alt alta yazsın, aynı şekilde C7:E7 satırları arasına yazılan malzemelerde aynı şekilde E7 de kaç adet yazılmışsa o kadar alt alta yazılsın istiyorum. Bu Şekilde aşağıya doğru artabilir. Yani 10-20 kalem malzeme yazabilirim. Yardım ederseniz sevinirim. Şimdiden Teşekkür ederim.

 

[mustafaine1]

ekteki dosyayi inceleyiniz.

=INDEX($D$6:$D$8,MATCH(INDEX($F$6:$F$8,COUNTIF($F$6:$F$8,"<"&ROWS($J$6:$J6))+1),$F$6:$F$8,0))

 

[kontto]

Ellerinize sağlık Mustafa bey çok işime yaradı teşekkür ederim. Birde bunu makro olarak gönderebilirseniz çok makbule geçer inş. Ama böylede işime yarıyor.

 

[mustafaine1]

Merhaba sn. kontto,

tam size cevap hazirlayacaktim bir toplantiya katilmak zorunda kaldim,

asagidaki kodu dermisiniz.

Sub Macro1()
Dim i, k As Integer
Range("D6").Select

Do While ActiveCell.Value <> ""
k = ActiveCell.Offset(0, 1).Value
  
    For i = 0 To k - 1
    son_satir = Cells(Rows.Count, "J").End(xlUp).Row + 1
    Range("j" & son_satir) = ActiveCell.Value
    Next
ActiveCell.Offset(1, 0).Select
Loop

End Sub

 

[kontto]

Mustafa bey ilginizden dolayı teşekkür ederim. Göndermiş olduğunuz kodu denedim. Aktarım yapıyor. Ancak malzeme veya miktar değiştiği zaman aktardığı yeri silmiyor. Alt alta yazmaya devam ediyor.

 

[mustafaine1]

Merhaba kodunuza;

Range("D6").Select

kodundan once

Range("J6", [J6].End(xlDown)).ClearContents

kodunu eklerseniz silme islemini yapacaktir.

 

[kontto]

Mustafa bey çok teşekkür ederim ellerinize sağlık. Allah zihninizi açık etsin.

 

[mustafaine1]

Rica ederim, tesekkur ederim.