yazılan adet kadar kişi adı üretme

[kanarya_83]

Merhaba,

bir veri alanında isimler
bir veri alanında toplam adet

Toplam adet kişi sayısına bölünecek. Yuvarlama durumu rastgele olabilir.

Kişi başı düşen adet kadar isimler a sutununa yazılacak.

Örnek:
a1
emre
emre
emre
ali
ali
ali

Yardımlarınız için çok teşekkür ederim.

 

[ÖmerFaruk]

Örneğinizi excel dosyasına işleyerek paylaşır mısınız?
Çünkü veri alanınızdan kastınız neresidir az çok bilmek lazım.
Ayrıca yuvalama rastgele olsun diyorsunuz da neyi rastgele olacak?
Aşağı mı yukarı mı, virgülden sonra 3 mü beş mi? Biraz daha net söylemelisiniz.

 

[kanarya_83]

merhaba,
öncelikle yardımınız için çok teşekkür ederim. örnek bir dosya ekledim. umarım yapabilmişimdir.
dosya

 

[kanarya_83]

Örneğinizi excel dosyasına işleyerek paylaşır mısınız?
Çünkü veri alanınızdan kastınız neresidir az çok bilmek lazım.
Ayrıca yuvalama rastgele olsun diyorsunuz da neyi rastgele olacak?
Aşağı mı yukarı mı, virgülden sonra 3 mü beş mi? Biraz daha net söylemelisiniz.

yukarıda ekledim. Kusura bakmayın terslik oldu.

dosya

 

[Asri]

Makrolu çözüm. Adet sayısı gibi veri kontrolleri eklenmedi.

Sub isimyaz()
  sonsatir = Cells(Rows.Count, "G").End(3).Row
  liste = Range("G2:I" & sonsatir).Value
  satir = 0
  For i = 1 To UBound(liste)
    isim = liste(i, 1)
    adet = liste(i, 3)
    For j = 1 To adet
       satir = satir + 1
       Cells(satir, "A").Value = isim
    Next
  Next
End Sub

 

[kanarya_83]

Çok teşekkür ederim. Elinize sağlık.

Makrolu çözüm. Adet sayısı gibi veri kontrolleri eklenmedi.

Sub isimyaz()
  sonsatir = Cells(Rows.Count, "G").End(3).Row
  liste = Range("G2:I" & sonsatir).Value
  satir = 0
  For i = 1 To UBound(liste)
    isim = liste(i, 1)
    adet = liste(i, 3)
    For j = 1 To adet
       satir = satir + 1
       Cells(satir, "A").Value = isim
    Next
  Next
End Sub

çok teşekkür ederim. elinize sağlık.