Tahsilat makbuzu kayıt ve yazdırma

[drummers]

Dosyamda 2 sekme mevcut "makbuz" ve "veri"

sorum şudur:

Makbuz Yazdır' a tıkladığımda

"makbuz" sekmesindeki AC4 hücresini "veri" sekmesindeki A2 hücresine
"makbuz" sekmesindeki AC6 hücresini "veri" sekmesindeki B2 hücresine
"makbuz" sekmesindeki G23 hücresini "veri" sekmesindeki C2 hücresine
"makbuz" sekmesindeki G25 hücresini "veri" sekmesindeki D2 hücresine
"makbuz" sekmesindeki Y23 hücresini "veri" sekmesindeki E2 hücresine

- aktaracak ve AC4 hücresini 1 arttıracak ve yeni işlem yaptığımda veri sekmesinde bu verileri alt alta ekliyecek.

- Listbox tan firma seçtiğimde onu makbuz liztesindeki ilgili alanlarda gösterecek ve tekrardan tazdırmama izin verecek. Teşekkürler

 

[drummers]

yardım rica edebilirmiyim

 

[Orion1]

Dosyanız ektedir.
2'nci konuyu anlamdım.
Nerdeki firma ismini gösterecek?
Siz hazırlayın bir sütunu yapalım.
Niye yanıt alamadığınızı anladınız sanırım.
Eksik soruya veya anlaşılmayan soruya kimse cevap vermek istemiyor.

Sub makbuz_59()
Dim sh As Worksheet, sat As Long
Set sh = Sheets("veri")
Sheets("makbuz").Select
If Range("AC4").Value = "" Or Not IsNumeric(Range("AC4").Value) Then
    MsgBox "Seri No hatalı", vbCritical, "UYARI"
    Range("AC4").Select
    Exit Sub
End If
sat = sh.Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Veri sayfasında satır doldu." & vbLf & "Kayıt yapılmadı", vbCritical, "UYARI"
    Exit Sub
End If
sh.Cells(sat, "A").Value = Range("AC4").Value
sh.Cells(sat, "B").Value = Range("AC6").Value
sh.Cells(sat, "C").Value = Range("G23").Value
sh.Cells(sat, "D").Value = Range("G25").Value
sh.Cells(sat, "E").Value = Range("Y13").Value
MsgBox "Kayıt Aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[drummers]

seri no nun 1 artarak gitmesini sağlıyabilirmiyiz acaba evren bey

 

[drummers]

Detaylı açıklıyayım
1- "makbuzu yazdır" dediğimde AC4 hücresindeki sıra no 1 artarak gidecek yani 2,3,4...vs..vs..
2- Listbox "veri" sekmesindeli C2:C1000 aralığındaki ismi seçecek ve verileri "makbuz" sekmesine geri aktaracak. Aktaracak ki makbuzu yeniden yazdırmak gerekebilir gibisinden düşündüm.

teşekkürler

 

[drummers]

Deneme yanılma yöntemi ile çözdüm olayı evren bey. Teşekkürler

 

[duransahan]

pardon ama bu makbuzu yazdır butonunu nasıl aktif hale getirebiliriz. yardımcı olursanız çok sevinirim

 

[halil_ibo]

sayın drummers yada diğer arkadaşlar ac4 hücresindeki seri numarasını kayıt ettikten sonra otomatik artmasını istiyorum ama bu işten anlamadığım için yardımınıza ihtiyacım var...bu konuda bana yardımcı olursanız çok sevinirim. Birde makroların ve formüllerin bozulmaması için rakamın yazıyla çeviren kısmına dokunulmazlık verebilirmiyiz...çok teşekkür ederim ilgi ve alakalarınıza

 

[Emir Hüseyin Çoban]

sayın drummers yada diğer arkadaşlar ac4 hücresindeki seri numarasını kayıt ettikten sonra otomatik artmasını istiyorum ama bu işten anlamadığım için yardımınıza ihtiyacım var...bu konuda bana yardımcı olursanız çok sevinirim. Birde makroların ve formüllerin bozulmaması için rakamın yazıyla çeviren kısmına dokunulmazlık verebilirmiyiz...çok teşekkür ederim ilgi ve alakalarınıza

. . .

Merhaba.
Bu arttırma işlemini neyle çalıştırmak istiyorsunuz ?
Buton ile, sayfayı yazdırdığınızda vb. ?

. . .

 

[halil_ibo]

yazdır butonuna tıkladıgımda otomatik kayıt yapsın veri tarafına ve akabinde yazdırılsın mı dıye sorsun 2 nüsha halinde yazdırmak kaydıyla daha sonrada sayfayı yenıleyıp numarayı otomatik artırsın...

 

[halil_ibo]

. . .

Merhaba.
Bu arttırma işlemini neyle çalıştırmak istiyorsunuz ?
Buton ile, sayfayı yazdırdığınızda vb. ?

. . .

yazdır butonuna tıkladıgımda veri tarafına otomatik kayıt yapsın ve akabinde yazdırılsın mı dıye sorsun (2 nüsha halinde yazdırmak kaydıyla) daha sonrada sayfayı yenıleyıp numarayı otomatik artırsın...

 

[Emir Hüseyin Çoban]

. . .

Sub KOD_BİR()
Dim sm As Worksheet
Dim sv As Worksheet
Set sm = Sheets("makbuz")
Set sv = Sheets("veri")
h = sv.[a65536].End(3).Row + 1

sv.Cells(h, "a") = sm.Range("ac4")
sv.Cells(h, "b") = sm.Range("ac6")
sv.Cells(h, "c") = sm.Range("g23")
sv.Cells(h, "d") = sm.Range("g25")
sv.Cells(h, "e") = sm.Range("y13")

hsyn = MsgBox("Yazdırmak İster misin?", vbYesNo, "Print")
If hsyn = vbYes Then
sm.Range("a1:ak26").PrintOut Copies:=2
Else
End If
sm.Range("ac4") = sm.Range("ac4") + 1
sm.Range("ac6") = Date
sm.Range("g23") = ""
sm.Range("g25") = ""
sm.Range("y13") = 0

End Sub

. . .

 

[halil_ibo]

teşekkür ederim sayın hüseyin çoban....

 

[Emir Hüseyin Çoban]

sn hüseyin çoban butonlada olabilir sayfayı yazdır dediğimizde de olabilir farketmez ....

. . .

Buton ile yapabileceğiniz kodlar, bir önceki mesajımda mevcut.

. . .

 

[jakal]

teşekkürler arkdaşım güzel paylaşım

 

[kaharli]

Konudaki sorun başlığı aynı ama dosya farklı

verideki bilgileri sayfa bir deki makbuz şeklinde tek print alarak çıkarmak istiyorum bu mümkün mü acaba

 

[climb1]

bu altın üyelik olayı nedir, anlayamadım?

 

[YUSUF44]

bu altın üyelik olayı nedir, anlayamadım?

Aşağıdaki konuyu inceleyebilirsiniz:

Altın Üyelik

Değerli Üyemiz, Forumda DOSYA EKLEME ile DOSYA İNDİRME işlemleri için ve yayınlanan Video Dersleri izleyebilmek için ALTIN ÜYELİK gerekmektedir. ALTIN ÜYELİK ONLİNE SİPARİŞ İÇİN TIKLAYIN ALTIN ÜYELİK fiyatlar ; 1 Yıl = 150 TL KDV Dahil 2 Yıl = 250 TL KDV Dahil 5 Yıl = 500 TL KDV Dahil...

www.excel.web.tr

En kısa haliyle siteye dosya yükleyebilmek ve doğrudan siteye yüklenmiş dosyaları indirebilmek için site sahibinin gerekli gördüğü bir uygulama.