sütundaki değerli belirli sayıda çoğaltmak

[vbesalix]

A sütunu: 5-7-10 gibi değerler sahip ve tekrar sayısını belirtiyor.
B sütunu: tekrarlanacak değeri belirtir.

örneğin A1:5, B1: 250 C1den G1ye (5 tekrar sayısı olduğu için) kadar 250 değerini girilmesini istiyorum.

 

[Muzaffer Ali]

Merhaba.

Fonksiyon ile istediğiniz pratikte olmayacak bir şey.
Ama isterseniz kod ile olur.
Aşağıdaki kodu bir modue kopyalayın ve çalıştırın.

Sub Test()
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Range("C" & Bak & ":" & Cells(Bak, 2 + Cells(Bak, "A")).Address) = Cells(Bak, "B")
    Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

Sub cogalt()

Range("C1", Cells(1, Range("A1") + 2)) = Range("B1").Value

End Sub

 

[vbesalix]

çok fonksiyon olarak olmuyor sanırım. Kod için çok tşk ederim. Başarılı.

 

[Levent Menteşoğlu]

çok fonksiyon olarak olmuyor sanırım. Kod için çok tşk ederim. Başarılı.

Fonksiyon ile ancak her hücreye hazır bekleyen bir fonksiyon yazarak yapılabilir. Eğer tekrar sayınız çok fazla olmayacaksa bu denenebilir. Yada Excel 365 versiyonunuz olsaydı resimdeki gibi SIRALI gibi dinamik dizi fonksiyonlarıyla kolaylıkla çözülebilirdi.

Not: Eski versiyonlarda da dizi fonksiyonu ile çözülebilir sanıyorum.

 

[ÖmerFaruk]

Formülle çözüm olarak.
C1 hücresine aşağıdakini yapıştırın. Sağa doğru arzu ettiğiniz kadar çoğaltabilirsiniz.
=EĞER(SÜTUN()-3<$A1;$B1;"")