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