Mükerrer yazdırmak

[sathaner]

Öncelikle Selamlar.

Diyelim bir A sutununda sayılar var:
9174758
9175487
9175978


B de ise:
3
5
6


gibi sayılar var, C'ye ise mesela a1 de olan sayıdan b1 deki kadar, a2 de olan sayıyı b2 deki kadar yazdırmamız için hangi formülü kullanmam gerek?
yani C söyle olacak:

9174758
9174758
9174758
9175487
9175487
9175487
9175487
9175978
9175978
9175978
9175978
9175978
9175978


umarım anlatabildim.

 

[conari]

=yinele(a1;b1)

pardon yanlış anlamışım..

 

[sathaner]

bu formülle aynı hücrede yazıyor, alt alt farklı hücrelerde istemiştim.,
yine de sağol.

 

[mehmett]

Fonksiyonla olacağını sanmıyorum, ancak makro ile yapılabilir.
Aşağıdaki kod işinizi görür sanırım. Ekteki dosyada kodları görmek için Alt+F11 tuşlayınız.

Sub mukerrer()
For i = 2 To [A65536].End(3).Row
son = [C65536].End(3).Row
adet = Cells(i, 2)
For j = 1 To adet
Cells(son + j, 3) = Cells(i, 1)
Next
Next
End Sub

 

[sathaner]

Fonksiyonla olacağını sanmıyorum, ancak makro ile yapılabilir.
Aşağıdaki kod işinizi görür sanırım. Ekteki dosyada kodları görmek için Alt+F11 tuşlayınız.

Sub mukerrer()
For i = 2 To [A65536].End(3).Row
son = [C65536].End(3).Row
adet = Cells(i, 2)
For j = 1 To adet
Cells(son + j, 3) = Cells(i, 1)
Next
Next
End Sub

Tamam bu oldu, çok teşekkür ederim.

 

[enderturk]

Formülle olanı

Merhaba
Eğer değer aralığı ilk üç satırla sınırlıysa formüllü bir alternatifim var.
Yok değerler a ve b sütunlarında daha fazlaysa topla formülünden yararlanılabilir ama baya bir uğraşmak gerek.

herkese kolay gelsin

 

[Ali]

Fonksiyonla olacağını sanmıyorum, ancak makro ile yapılabilir.

Fonksiyonlada olur ama uzun bir yol olmuş olur.

Yerleşik fonksiyonla yapılmış örnek dosya ektedir.

 

[sathaner]

fonksiyonla gerçekten zor oluyormuş, ki benim asıl tablom yüzlerce satır içeriyor, makro daha kullanışlı.