[Yardım]  excel aktar ve yazdır konusunda yardıma ihtiyacım var.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

excel aktar ve yazdır konusunda yardıma ihtiyacım var.

İleti#1)  duwerin » 15 Ağu 2018 17:44

merhaba,
ekte ilettiğim çalışma alanında senet sayfasına kullandığımız yazılımdan rapor çekip uygun kısımlara yapıştırıyorum. daha sonrasında müşteri id numarasını form sayfasına yapıştırıp yazdırıyorum. burayla işim bittikten sonra işlem yapmadan aynı şekilde makbuz sayfasınıda 2 nüsha olarak yazdırıyorum. burada yapmak istediğim senet sayfasındaki verileri sırayla form ve makbuz sayfasına veri çekmek sonrasında yazdırmak. bu konuda yardımcı olursanız çok sevinirim.
örneğini bu konuda görmüştüm : viewtopic.php?f=4&t=3441
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
duwerin
 
Kayıt: 15 Ağu 2018 17:25
Meslek: bilgi işlem
Yaş: 27
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: malatya

Cevap: excel aktar ve yazdır konusunda yardıma ihtiyacım var

İleti#2)  metehan8001 » 17 Ağu 2018 03:49

Buyrun kodunuz. İstediğiniz taktirde dosyanızı da eklerim. İyi çalışmalar.
Kod: Tümünü seç
Sub yazdirma()
'www.exceldepo.com metehan8001@gmail.com
Dim senet As Worksheet
Dim makbuz As Worksheet
Dim form As Worksheet
Dim adres As Worksheet
Set senet = Sheets("Senet")
Set form = Sheets("Form")
Set makbuz = Sheets("MAKBUZ")
Set adres = Sheets("Adres")
For i = 2 To senet.Cells(Rows.Count, 4).End(xlUp).Row
'Forum Sayfası hazırlama
'form.Range("l19") = "" ' bilinmiyor
form.Cells(21, 12) = senet.Cells(i, 3) ' Tarih
form.Cells(23, 12) = senet.Cells(i, 7) ' Vade Tarih
form.Cells(30, 12) = senet.Cells(i, 6) ' Fat. Tutarı
form.Cells(1, 7) = senet.Cells(i, 8) ' plasiyer
form.Cells(23, 12) = senet.Cells(i, 7)
form.Cells(20, 8).FormulaR1C1 = "=ParaCevir(R[10]C[4])"
'form.Range("G44") = "" ' bilinmiyor
'form.Range("G40") = "" ' bilinmiyor MALATYA
form.Cells(22, 6) = senet.Cells(i, 4)  ' muşteri id
form.Cells(24, 6) = senet.Cells(i, 5)  ' muşteri adi
form.Cells(43, 4) = senet.Cells(i, 7) ' tarih
form.Cells(43, 2) = senet.Cells(i, 6) ' fatura
Set BUL = adres.Range("A1:A65536").Find(CLng(Cells(i, 4)))
If Not BUL Is Nothing Then
form.Cells(21, 4) = BUL.Offset(0, 2)  ' muşteri adresi
End If
form.Cells(29, 10) = senet.Cells(i, 7) ' tarih
form.PrintOut
'Forum sayfası sonu
'Makbuz sayfası hazırlama
makbuz.Cells(2, 9) = senet.Cells(i, 8) ' plasiyer
makbuz.Cells(3, 9) = senet.Cells(i, 4)  ' muşteri id
makbuz.Cells(5, 2) = senet.Cells(i, 5)  ' muşteri adi
makbuz.Cells(10, 6) = senet.Cells(i, 7) ' tarih
makbuz.Cells(10, 8) = senet.Cells(i, 6) ' Fat. Tutarı
makbuz.Cells(16, 8) = senet.Cells(i, 6) ' Fat. Tutarı
makbuz.PrintOut
'Makbuz sayfası sonu
Next i
End Sub
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: excel aktar ve yazdır konusunda yardıma ihtiya

İleti#3)  duwerin » 27 Ağu 2018 14:24

metehan8001 yazdı:Buyrun kodunuz. İstediğiniz taktirde dosyanızı da eklerim. İyi çalışmalar.
Kod: Tümünü seç
Sub yazdirma()
'www.exceldepo.com metehan8001@gmail.com
Dim senet As Worksheet
Dim makbuz As Worksheet
Dim form As Worksheet
Dim adres As Worksheet
Set senet = Sheets("Senet")
Set form = Sheets("Form")
Set makbuz = Sheets("MAKBUZ")
Set adres = Sheets("Adres")
For i = 2 To senet.Cells(Rows.Count, 4).End(xlUp).Row
'Forum Sayfası hazırlama
'form.Range("l19") = "" ' bilinmiyor
form.Cells(21, 12) = senet.Cells(i, 3) ' Tarih
form.Cells(23, 12) = senet.Cells(i, 7) ' Vade Tarih
form.Cells(30, 12) = senet.Cells(i, 6) ' Fat. Tutarı
form.Cells(1, 7) = senet.Cells(i, 8) ' plasiyer
form.Cells(23, 12) = senet.Cells(i, 7)
form.Cells(20, 8).FormulaR1C1 = "=ParaCevir(R[10]C[4])"
'form.Range("G44") = "" ' bilinmiyor
'form.Range("G40") = "" ' bilinmiyor MALATYA
form.Cells(22, 6) = senet.Cells(i, 4)  ' muşteri id
form.Cells(24, 6) = senet.Cells(i, 5)  ' muşteri adi
form.Cells(43, 4) = senet.Cells(i, 7) ' tarih
form.Cells(43, 2) = senet.Cells(i, 6) ' fatura
Set BUL = adres.Range("A1:A65536").Find(CLng(Cells(i, 4)))
If Not BUL Is Nothing Then
form.Cells(21, 4) = BUL.Offset(0, 2)  ' muşteri adresi
End If
form.Cells(29, 10) = senet.Cells(i, 7) ' tarih
form.PrintOut
'Forum sayfası sonu
'Makbuz sayfası hazırlama
makbuz.Cells(2, 9) = senet.Cells(i, 8) ' plasiyer
makbuz.Cells(3, 9) = senet.Cells(i, 4)  ' muşteri id
makbuz.Cells(5, 2) = senet.Cells(i, 5)  ' muşteri adi
makbuz.Cells(10, 6) = senet.Cells(i, 7) ' tarih
makbuz.Cells(10, 8) = senet.Cells(i, 6) ' Fat. Tutarı
makbuz.Cells(16, 8) = senet.Cells(i, 6) ' Fat. Tutarı
makbuz.PrintOut
'Makbuz sayfası sonu
Next i
End Sub



Merhaba çok teşekkür ederim ilginiz için dosyayıda gönderirseniz çok sevinirim butonlarda calıştıramadım bi türlü
Kullanıcı avatarı
duwerin
 
Kayıt: 15 Ağu 2018 17:25
Meslek: bilgi işlem
Yaş: 27
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: malatya

Cevap: excel aktar ve yazdır konusunda yardıma ihtiyacım var

İleti#4)  metehan8001 » 27 Ağu 2018 18:17

Dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: excel aktar ve yazdır konusunda yardıma ihtiyacım var

İleti#5)  duwerin » 18 Eyl 2018 15:48

çok teşekkür ederim ilginiz ve yardımınız için
Kullanıcı avatarı
duwerin
 
Kayıt: 15 Ağu 2018 17:25
Meslek: bilgi işlem
Yaş: 27
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: malatya

Cevap: Cevap: excel aktar ve yazdır konusunda yardıma ihtiya

İleti#6)  metehan8001 » 29 Eyl 2018 03:13

duwerin yazdı:çok teşekkür ederim ilginiz ve yardımınız için

--)(
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 5 misafir

Bumerang - Yazarkafe