yazdığım adet kadar çoğaltma

arkadaşlar;
ekteki belgede yazdığım gibi; e sutununa yazdığım değerlerin f sutunundaki kadar a sutununa yazılmasını istiyorum. nasıl yaparız?

Değerleri f sütununa mı gireceksin? Böylelikle a sütununda otomatik değişiklik mi istiyorsun? açıkçası tam anlamadım sorunuzu.. Anladığım gibi ise örneğin A3 hücresine =F3 yazarak sorunu halledebilirsin ve istediğin alt satırlara da uygulayabilirsin.

e sutununa parasal değerleri gireceğim, f sutununada bu parasal değerden kaç adet olacağını gireceğim. a sutununda ise e sutununa yazdığım parasal değeri f sutununa yazdığım adet kadar olmasını istiyorum. a sutununu 40 satırla sınırlayalım. f sutununa yazacağım adetlerin toplamı 40 olacak, fazlası olmayacak. örnek olarak e sutununa yanlızca 5 tl ve f sutununada 40 yazmışsam a sutnundaki 40 satırda 5 yazılacak, e2 sutununda 5 tl f2 sutununda 20 ve e3 sutununda 10 tl f3 sutununda 20 değeri olursada a sutunundaki ilk 20 satırda 5 sonraki 20 satırda 10 yazacak...

Biraz karışık iş. Sanırım bu iş döngü ile çözülmeli gibi. Ustalar bi el atsın bakalım bana da ilginç geldi.

sayın aobendes;
bunu accessde de yapabilir miyiz dersiniz?

Merhaba;

Kontrol edebilirmisiniz.

Sub Dagitim()



Dim Satir_ilk1, Satir_Son1, Satir_ilk2, Satir_Son2, Adet, Deger



Satir_Son1 = WorksheetFunction.CountA(Columns("E"))



Satir_ilk1 = 2

Satir_ilk2 = 2



Range("F2").Select

Adet = ActiveCell.Value



Satir_Son2 = Adet



For Satir1 = Satir_ilk1 To Satir_Son1



Range("F" & Satir1).Select

Adet = ActiveCell.Value



Range("E" & Satir1).Select

Deger = ActiveCell.Value



Satir_Son2 = Satir_ilk2 + Adet

                  

    For Satir2 = Satir_ilk2 To Satir_Son2

    

    Range("A" & Satir2).Select

    ActiveCell.Value = Deger

    

        

    Next



Satir_ilk2 = Satir_Son2

Range("G" & Satir1) = "Tamam."



Next

Dim ss

ss = WorksheetFunction.CountA(Columns("A"))

Range("A" & ss).Select

ActiveCell.Value = ""

Range("D1").Select



End Sub