• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tahsilat makbuzu kayıt ve yazdırma

D

drummers

Katılım
13 Kasım 2007
Mesajlar
309
Excel Vers. ve Dili
2007
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
 

Ekli dosyalar

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

Ekli dosyalar

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
 
pardon ama bu makbuzu yazdır butonunu nasıl aktif hale getirebiliriz. yardımcı olursanız çok sevinirim
 
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
 
halil_ibo' Alıntı:
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
Genişletmek için tıkla ...
. . .

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 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...
 
Hüseyin Çoban' Alıntı:
. . .

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

. . .
Genişletmek için tıkla ...

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...
 
. . .

Kod: 
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

. . .
 
teşekkür ederim sayın hüseyin çoban....
 
Son düzenleme:
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
 

Ekli dosyalar

climb1' Alıntı:
bu altın üyelik olayı nedir, anlayamadım?
Genişletmek için tıkla ...
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 = 500 TL KDV Dahil 2 Yıl = 800 TL KDV Dahil DİKKAT : Forumun temel amacı...
www.excel.web.tr 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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst