• DİKKAT

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

excelde adet girdiğim satırın ayrı bir sayfada ve ya bir butonla a4 yazdırma

N

nightscreen

Katılım
17 Nisan 2012
Mesajlar
15
Excel Vers. ve Dili
excel 2007
merhabalar..excele yeni başlayanlardanım.amatör olarak hazırladığım hesap programında adet girdiğim satırın başka bir sayfada ve ya bir buton yardımıyla a4 sayfaya çıktısını almak. yardımlarınız için teşekkürler..
 

Ekli dosyalar

. . .

Merhaba.
Çıktı almak istediğiniz sayfanın görüntüsünü örnek olarak bir kaç satırlık oluşturun.
Ona göre bir çalışma yapalım.

. . .
 
nightscreen' Alıntı:
merhabalar..excele yeni başlayanlardanım.amatör olarak hazırladığım hesap programında adet girdiğim satırın başka bir sayfada ve ya bir buton yardımıyla a4 sayfaya çıktısını almak. yardımlarınız için teşekkürler..
Genişletmek için tıkla ...

Ekteki örneği inceleyin, bir çıktı sayfası örneği olmadığı için benim hazırladığım sayfayı kendinize göre ayrlarsınız.
Kolay Gelsin
 

Ekli dosyalar

arkadaşlar yapmak istediğimi kısaca anlatmaya çalışıtm

ekte yapmak istediğimi kısaca anlatmaya çalıştım.yardımlarınız için çok teşekkür ediyorum.
 

Ekli dosyalar

İlk mesajınızda sadece bir satırı bir başka sayfada print etmek istediğinizi yazmışsınız. Şimdiki örnekte yanında adet yazanları alt tarafta listeleyip print etmek ile ilgili bir örnek var. Ben bu isteğinize göre ekteki dosyayı oluşturdum, ancak Fiyat Teklifi listenizi ayrı bir sayfada yapmanız daha doğru olur. Siz formülleri uyarlamayı deneyin olmazsa yine yardımcı olurum.

Kolay Gelsin
 

Ekli dosyalar

. . .

Kodlar ile yapmak isterseniz.
Kodlar ve örnek dosya ektedir.

Kod: 
Sub KOD_BİR()
Application.ScreenUpdating = False
'
Dim s3 As Worksheet
Dim s1 As Worksheet
Set s1 = Sheets("sayfa1")
Set s3 = Sheets("sayfa3")
aa = s1.[b65536].End(3).Row - 3
ab = 3
iki = s3.[d65536].End(3).Row + 1
'
s3.Range("a3:d" & iki).ClearContents
s3.Range("a3:d" & iki).Font.Bold = False
s3.Range("a3:d" & iki).Borders.LineStyle = xlNone
'
For i = 3 To aa
If s1.Cells(i, 3) <> "" Then
s3.Cells(ab, 1) = s1.Cells(i, 1)
s3.Cells(ab, 2) = s1.Cells(i, 2)
s3.Cells(ab, 3) = s1.Cells(i, 3)
s3.Cells(ab, 4) = s1.Cells(i, 4)
ab = ab + 1
Else
End If
Next i
'
ac = s1.[b65536].End(3).Row
ad = s3.[b65536].End(3).Row + 1
dd = s3.[d65536].End(3).Row
'
s3.Cells(ad, 2) = s1.Cells(ac - 2, 2)
s3.Cells(ad, 4) = s1.Cells(ac - 2, 4)
s3.Cells(ad + 1, 2) = s1.Cells(ac - 1, 2)
s3.Cells(ad + 1, 3) = s1.Cells(ac - 1, 3)
s3.Cells(ad + 1, 4) = s1.Cells(ac - 1, 4)
s3.Cells(ad + 2, 2) = s1.Cells(ac, 2)
s3.Cells(ad + 2, 4) = s1.Cells(ac, 4)
'
s3.Range("b" & ad & ":b" & ad + 2).Font.Bold = True
s3.Range("d" & ad & ":d" & ad + 2).Font.Bold = True
s3.Range("b" & ad & ":b" & ad + 2).Borders.Weight = xlThin
s3.Range("d" & ad & ":d" & ad + 2).Borders.Weight = xlThin
s3.Range("a3:" & "d" & dd).Borders.Weight = xlThin
'
s3.Range("a1:d" & ad + 2).PrintOut
'
Application.ScreenUpdating = True
End Sub

. . .
 
Son düzenleme:
huseyincoban' Alıntı:
. . .

Kodlar ile yapmak isterseniz.
Kodlar ve örnek dosya ektedir.

Kod: 
Sub KOD_BİR()
Application.ScreenUpdating = False
'
Dim s3 As Worksheet
Dim s1 As Worksheet
Set s1 = Sheets("sayfa1")
Set s3 = Sheets("sayfa3")
aa = s1.[b65536].End(3).Row - 3
ab = 3
iki = s3.[d65536].End(3).Row + 1
'
s3.Range("a3:d" & iki).ClearContents
s3.Range("a3:d" & iki).Font.Bold = False
s3.Range("a3:d" & iki).Borders.LineStyle = xlNone
'
For i = 3 To aa
If s1.Cells(i, 3) <> "" Then
s3.Cells(ab, 1) = s1.Cells(i, 1)
s3.Cells(ab, 2) = s1.Cells(i, 2)
s3.Cells(ab, 3) = s1.Cells(i, 3)
s3.Cells(ab, 4) = s1.Cells(i, 4)
ab = ab + 1
Else
End If
Next i
'
ac = s1.[b65536].End(3).Row
ad = s3.[b65536].End(3).Row + 1
dd = s3.[d65536].End(3).Row
'
s3.Cells(ad, 2) = s1.Cells(ac - 2, 2)
s3.Cells(ad, 4) = s1.Cells(ac - 2, 4)
s3.Cells(ad + 1, 2) = s1.Cells(ac - 1, 2)
s3.Cells(ad + 1, 3) = s1.Cells(ac - 1, 3)
s3.Cells(ad + 1, 4) = s1.Cells(ac - 1, 4)
s3.Cells(ad + 2, 2) = s1.Cells(ac, 2)
s3.Cells(ad + 2, 4) = s1.Cells(ac, 4)
'
s3.Range("b" & ad & ":b" & ad + 2).Font.Bold = True
s3.Range("d" & ad & ":d" & ad + 2).Font.Bold = True
s3.Range("b" & ad & ":b" & ad + 2).Borders.Weight = xlThin
s3.Range("d" & ad & ":d" & ad + 2).Borders.Weight = xlThin
s3.Range("a3:" & "d" & dd).Borders.Weight = xlThin
'
s3.Range("a1:d" & ad + 2).PrintOut
'
Application.ScreenUpdating = True
End Sub

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

hüseyin bey ne yapmak istediğimi çok iyi anlamşıssınız.ben verdiğiniz örneğe göre örnek bir listeleme oluşturdum.program tam istediğim gibi olmuş.tek bir eksiğim kaldı sayfa 1 de müşteri bilgileri kısmı oluşturup 3. sayfanın en başında çıkması.sanırım anlatabilmişimdir.yardımlarınız için hepinize çok teşekkür ediyorum...
 

Ekli dosyalar

. . .

Merhaba.

Müşteri bilgilerini nereye girmek istediğini siz belirtin. Ona göre bir çalışma yapalım.

Bence malzemeler ve müşteri bilgileri ayrı sayfalarda olmalı. Yani sayfa2 ye müşteri bilgilerini girelim.

Son olarakta, teklif formunda müşteri bilgilerinin nerede görünmesini istiyorsanız belirtin. Daha sonra çift emek harcamış olmayalım.

. . .
 
huseyincoban' Alıntı:
. . .

Merhaba.

Müşteri bilgilerini nereye girmek istediğini siz belirtin. Ona göre bir çalışma yapalım.

Bence malzemeler ve müşteri bilgileri ayrı sayfalarda olmalı. Yani sayfa2 ye müşteri bilgilerini girelim.

Son olarakta, teklif formunda müşteri bilgilerinin nerede görünmesini istiyorsanız belirtin. Daha sonra çift emek harcamış olmayalım.

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

müşteri bilgilerini dediğiniz gibi ayrı bir sayfaya girelim.müşteri bilgilerini 2. sayfaya girebiliriz.teklif formundada sayfanın en başında gözüksün.ad soyad,adres,tlf bilgileri v.s.
 
. . .

Teklif formunu sizin hazırlamanızdaki ısrarımın nedeni.
Bu form iş hayatınızda önemli olacak. Müşteriye ilk bakışta görselliği ile firmanızı yansıtacak.

O yüzden aklınızdaki formu tasarlayıp gönderin. Örneğin logonuz varsa, bence formda olması gerekiyor.

. . .
 
huseyincoban' Alıntı:
. . .

Teklif formunu sizin hazırlamanızdaki ısrarımın nedeni.
Bu form iş hayatınızda önemli olacak. Müşteriye ilk bakışta görselliği ile firmanızı yansıtacak.

O yüzden aklınızdaki formu tasarlayıp gönderin. Örneğin logonuz varsa, bence formda olması gerekiyor.

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

sayfa 2 de müşteri bilgileri tablosunu oluşturdum.sayfa 3 deki fiyat teklifinin en üst kısmında yer almasını istiyorum.
 

Ekli dosyalar

. . .

Ekteki dosyayı inceleyiniz.

. . .
 
Son düzenleme:
huseyincoban' Alıntı:
. . .

Ekteki dosyayı inceleyiniz.

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

hn bey çok teşekkürler...forumdan birçok yeni bilgiler ediniyorum...listeme en son şeklini verdim...sadece birkaç yeni eklentiler düşündüm..size görede uygunsa bu son hali değerlendirebilirmiyiz...sayfa 1 deki butonu kaldırıp sayfa 2 ye taşısak(buton 1).buton 2 yide sadece malzeme adı ve adedi olarak yazıcıdan çıktı alsak.yani b-d sütunlarını yok sayıp sayfa4 olarak çıktı almak...
 

Ekli dosyalar

. . .

Eki inceleyiniz.

. . .
 
Son düzenleme:
nightscreen' Alıntı:
hüseyin bey yardımlarınızdan dolayı çok teşekkür ederim..ellerinize yüreğinize sağlık...çalışmalarınızda başarılar dilerim...
Genişletmek için tıkla ...

hüseyin bey merhabalar..programı kullandıkça bazı hataların olduğunu gördüm...ornek dosyada iki adet dosya var (fiyat yazdır ve adet yazdır)...kısaca anlatmaya çalışayım...fiyat yazdır dediğimiz zaman 3. sayfada 1 den 7 ye kadar olan adetler alt alta sıralanıyor ve herhangi bir problem olmuyor...adet yazdır dediğimiz zaman 1 den 7 ye kadar olan adetlerde ise 7 hariç 6 ya kadar yazdırılıyor...yani adet yazdır dosyasındaki 3. sayfada c12 satırı boş kalıyor...yardımlarınızı bekliyorum...
 

Ekli dosyalar

Hüseyin Çoban' Alıntı:
. . .

Kodlardaki


satırına bir ilave yapalım.


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

eklentiyi yaptım ve şöyle bir durum ortaya çıktı...iskonto oranı (c310) kısmı boş kalırsa program düzgün bir şekilde çalışıyor.fakat iskonto oranı girip adet yazdır dediğimiz zaman iskonto oranı(sayfa 3. c13 hücresi) da yazdırılıyor.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst