Skip to main content

AccessTr.neT


yazdığım adet kadar çoğaltma

kadirdursun
kadirdursun
7
4383

yazdığım adet kadar çoğaltma

Çözüldü #1
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?
.rar adet kadar çoğaltma.rar (Dosya Boyutu: 3,83 KB | İndirme Sayısı: 10)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #2
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.
İlmiyle amel etmeyen hoca bülbül gibi ötse de kargayla bir tut.
Cevapla
Çözüldü #3
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...
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #4
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.
İlmiyle amel etmeyen hoca bülbül gibi ötse de kargayla bir tut.
Cevapla
Çözüldü #5
sayın aobendes;
bunu accessde de yapabilir miyiz dersiniz?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #6
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
.rar Adet_Kadar Cogaltma_Schworse.rar (Dosya Boyutu: 12,36 KB | İndirme Sayısı: 39)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task