Tedİye Yapiminda Yardim

[essmaa]

ArkadaŞlar Ustalar Meraba Excel Sayfasinda Bİrİncİ Sayfaya YazdiĞim Verİlerİ İkİncİ Sayfada Tedİye Şeklİnde Hazirlamak İstİyorum Ama Bunu Yapamadim Yardimci Olursaniz Sevİnİrİm

100 KİŞİlİk Tedİye

Bİrİncİ Sayfaya YazdiĞimiz BÜtÜn Verİlerİ İkİncİ Sayfada GÖrmek Ve Bİr Defada Yazicidan Almak Gİbİ

Şİmdİden TŞk Ederİm

 

[muratnal03]

Yardimci Olan Olursa

Yardimci Olan Olursa Banada Atarmisiniz

 

[Ömer]

Merhaba,

1. sayfa derken, Maaş Dökümü Sayfasındaki verileri Tediye sayfasında seçtiğiniz numaraya göremi görmek istiyorsunuz..

 

[abdi]

Aşağıdaki şekilde işinizi görürmü

Sub tekrarlıyazdırma()

Set b = Sayfa1
Set c = Sayfa2
son = [b65536].End(3).Row

    For i = 1 To son
    
        c.Cells(7, 6) = b.Cells(i + 4, 3)
        c.Cells(8, 6) = b.Cells(i + 4, 4)
        c.Cells(9, 6) = b.Cells(i + 4, 5)
        c.Cells(10, 6) = b.Cells(i + 4, 6)
        c.Cells(11, 6) = b.Cells(i + 4, 7)
        c.Cells(12, 6) = b.Cells(i + 4, 8)
        c.Cells(13, 6) = b.Cells(i + 4, 9)
        c.Cells(14, 6) = b.Cells(i + 4, 10)
        c.Cells(15, 6) = b.Cells(i + 4, 11)
        c.Cells(16, 6) = b.Cells(i + 4, 12)
        c.Cells(18, 6) = UCase(b.Cells(i + 4, 2)) 'adı soyadı
        
        c.PrintOut Copies:=1, Collate:=True
                
        Next

Call MsgBox("işlem tamam", vbInformation)
End Sub

 

[essmaa]

eline sağlık çok saol ama burda bi formül yokki benim yaptığım sayfayı düzenleyip elle yazıp göndermişsiniz yinde elinize sağlık

konuyu tekrar söyleyeyim örnek esma yazdınız maaşını yazdınız tediyeye formülle attı ikinci kişiyi yazdığınızda tekrar aynı tediyeye değil başka bir tediyeye atmasını istiyorum altına tekrar tediye yapcak yada yapılmış ikinci tediyeye atacak

 

[Orion1]

Dosya üzerinde bir kaçtane elle girin.Ve açıklama yazın.
Öyle bakalım.

 

[abdi]

Bİrİncİ Sayfaya YazdiĞimiz BÜtÜn Verİlerİ İkİncİ Sayfada GÖrmek Ve Bİr Defada Yazicidan Almak Gİbİ
Şİmdİden TŞk Ederİm

Sub tekrarlıyazdırma()

Set b = Sayfa1
Set c = Sayfa2
son = [b65536].End(3).Row
k = 1
    For i = 5 To son
        k = Format(k, "000")
    
        c.Cells(7, 6) = b.Cells(i, 3)
        c.Cells(8, 6) = b.Cells(i, 4)
        c.Cells(9, 6) = b.Cells(i, 5)
        c.Cells(10, 6) = b.Cells(i, 6)
        c.Cells(11, 6) = b.Cells(i, 7)
        c.Cells(12, 6) = b.Cells(i, 8)
        c.Cells(13, 6) = b.Cells(i, 9)
        c.Cells(14, 6) = b.Cells(i, 10)
        c.Cells(15, 6) = b.Cells(i, 11)
        c.Cells(16, 6) = b.Cells(i, 12)
        
        c.Cells(1, 6) = b.Cells(i, 1) 'sicil no
        c.Cells(4, 6) = b.Cells(2, 2) & " - " & k 'tarihe göre makbuz no
        
        
        c.Cells(18, 6) = UCase(b.Cells(i, 2))  'adı soyadı
        
        
        c.PrintOut Copies:=1, Collate:=True
        k = k + 1
        Next

Call MsgBox("işlem tamam", vbInformation)
End Sub

Private Sub CommandButton1_Click()
Call tekrarlıyazdırma
End Sub

pardon Özür dilerim.
Ben kodları butona bağlamayı yapabilirsiniz sanıp kodları butona bağlamamıştım.

dosyanın şimdiki halisanırım daha iyi oldu güle güle kullanınız.

 

[essmaa]

abdi bey çok teşekkür ederim elinize emeğinize sağlık

 

[abdi]

Rica eder,
İyi çalışmalar dilerim.
işinize yaradığına sevindim.
güle güle kullanınız.

 

[essmaa]

teşekkür bu dosyaya tekrar bakarmısınız

yardımlarınız için çok teşekkür ederim sizden ricam

kağıt sarfiyatını azaltmak için iki kişiyi bi a4 e yapabilirmiyiz?
sayfayı yazdırmadan önce ön görüntüleme olabilirmi ?
son olarak yazdıracağımız kişileri seçim yapa bilirmiyiz

 

[meslan]

Sn. essmaa dosyanız ekte. Kolay gelsin.

 

[essmaa]

Sİze Zahmet Verdİm
Çok TeŞekkÜr Ederİm Elİnİze EmeĞİnİze SaĞlik

 

[Bymast]

Güzel

Yeni üye Oldum ama Bir sürü şey öğrendin burada ya

 

[Bymast]

Ya ben yeni üyeyimde ben neden dosyaları alamıyorum tıkladığımda yeni bir sekme açılıyo vede oda boş yani...

 

[dn1901]

çok teşekkürler

 

[cumle_alem]

Merhaba,
Ben bu tür makbuz örneklerini kullanmaktayım. Ancak sıra no kısmını belgeyi her açtığımda 1,2,3.. Şeklinde değişmesini istiyorum. Yardımcı olabilir misiniz?