veri deposu oluşturma

[whayri]

mrb arkadaşlar;
kafamda şöyle bir şey var:
öncelikle bir fatura şablonu hazırlamak istiyorum
sonra o fatura şablonuna girdiğim bilgileri (ad, soyad, miktar, tutar, kdv gibi) kaydettikten sonra başka bir yerde listelesin ve böylece bir veri deposu oluştursun istiyorum.
böyle bir şey mümkün mü?

 

[Ömer]

Merhaba,

Mümkündür. Örnek olması için küçük bir dosya hazırlayıp ekleyin ve gerekli açıklamaları dosya içinde yapınız.

 

[whayri]

açıklamam aşağıdaki çalışma dosyasındadır

 

[Emir Hüseyin Çoban]

. . .

Aktarma işlemi için kodlar şu şekilde olmalı.
Siz diğer kısımlar için devamını getirin.

Sub KOD()

Dim SF As Worksheet
Dim SSL As Worksheet
Set SF = Sheets("Fatura")
Set SSL = Sheets("SATIŞ LİSTESİ")

sonsatır = SSL.[A65536].End(3).Row + 1

SSL.Cells(sonsatır, "A") = SF.Range("M4")
SSL.Cells(sonsatır, "B") = SF.Range("M3")
SSL.Cells(sonsatır, "C") = SF.Range("D13")

End Sub

Temizle butonu için

Sub KOD_TEMİZLE()

Dim SF As Worksheet
Set SF = Sheets("Fatura")

SF.Range("M4")=""
SF.Range("M3")=""
SF.Range("D13")=""

End Sub

. . .

 

[ZorBey_]

Merhaba İyi Çalışmalar
Hüseyin Bey Çözümü Vermiş
Benimkide Boşa Gitmesin.

 

[whayri]

hüseyin bey cevabınız için teşekkürler. yalnız fatura şablonunda kaydet ve temizle butonu oluşmadı. bir de şablondaki hücreler temizlendiğinde tamamıyla temizleniyor. yani hücredeki biçimler, formüller de temizleniyor.

 

[Emir Hüseyin Çoban]

hüseyin bey cevabınız için teşekkürler. yalnız fatura şablonunda kaydet ve temizle butonu oluşmadı. bir de şablondaki hücreler temizlendiğinde tamamıyla temizleniyor. yani hücredeki biçimler, formüller de temizleniyor.

. . .

Butonları siz oluşturup. Kodları butona atamalısınız.
Yukarıdaki kodlarda biçimleri değiştirecek bir işlem yok.
Sy asr35 örnek dosya eklemiş inceleyiniz.

. . .

 

[whayri]

sayın asr35, cevabınız için teşekkürler. yalnız rar dosyasını açamadım.

 

[ZorBey_]

Açık Halde Gönderiyorum.