seçimli yazdırma!!

[qrrxz]

slm arkadaşlar,

öncelikle hepinize iyi çalışmalar diliyorum. ben sizlerden bir şey rica edeceğim.

bir excel çalışma kitabı yapacağım. bu kitap içinde üç adet çalışma sayfam olacak. birinci safya içinde koymuş olduğum bir resme makro atamak istiyorum. yalnız bu atadığım makro ikinci sayfa içinde girmiş olduğum verileri cinsine göre üçüncü sayfamda sütunlara ve satırlara eğer formülü ile yerleştiriyor. fakat isteğim değer yok ise eğer formülü boş geçiyor o hücreyi. bu şekilde oluşmuş olan 3. sayfamda "A" sütunu tamamıyle dolu olup "B" ve "I" dahil olmak üzere eğer formülleri ile duruma göre boş veya dolu olarak görünüyor.

ben bu sayfada "B" ve "I" sütunlarım girdiğim verilerin bitmesi ile bir yerden itibaren boş görünecektir. şimdi ben buraya öyle bir makro atamak istiyorum ki bu boş olan yere kadar olan tüm sayfaları yazdırayım. ve en altında birde toplam satırı olsun. bunu gelebileceğim sınır kısmına bir toplam satırı ekleyip, arada kalan boş yerleri gizlemesi sağlayıp yazdırmasını mı atamamız gerekli acaba.

bana bu konuda yardımcı olusanız, çok sevinirim. hepinize şimdiden vereceğiniz kodlar için teşekkür ediyorum..

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[qrrxz]

Bir örnek dosya eklermisiniz.

örnek dosya ekliyorum. bu dosya içinde baloncuklar halinde istediğimi belittim. yalnız bir kaç şey daha istedim. bunlar içinde yardımcı olursanız sevinirim.

iyi çalışmalar..

 

[qrrxz]

ekli dosyam buradadır.

 

[qrrxz]

bu konu hakkında fikirleri olan yok mu?:yardim: :yardim: :yardim:

 

[qrrxz]

güncel .

 

[AS3434]

Sn qrrxz

Gönderdiğiniz dosyada Sayfa 3 de 12. satırda veri bitmiş görünüyor demişsiniz. Yani I sütununda 1254 olan satır. Ama 13. satırda dolu. Baz alınacak satır B sütunu mu, I sütunu mu? Çünkü B ve G sütunlarınızın 13. satırlarında veri var.

 

[qrrxz]

Sn qrrxz

Gönderdiğiniz dosyada Sayfa 3 de 12. satırda veri bitmiş görünüyor demişsiniz. Yani I sütununda 1254 olan satır. Ama 13. satırda dolu. Baz alınacak satır B sütunu mu, I sütunu mu? Çünkü B ve G sütunlarınızın 13. satırlarında veri var.

aslında en alttaki toplama kadar eğer formülü ile veri var. ama bunlar sayfa 2'den aldığı için orada boş ise sayfa üçe birşey yazmıyor dikkat ettiyseniz. benim sorunumda budur. ve sayfa 2'de tüm sütunlara veri giriliyor. yani bir satırda boş veri olmayacak. sayfa 2'de de belirtmiştim zaten eğer boş bırakılırsa alt satıra geçiş yapılmasını engellesin diye. tekrar oraya bakıp bana cvp verebilir misin?

 

[Levent Menteşoğlu]

Sayfa3 ü yazdırmak için aşağıdaki kodu print butonuna bağlayın.

Sub yazdir()
Set s1 = Sheets("sayfa3")
ilksat = WorksheetFunction.Match("", s1.[c:c], 0) - 1
sonsat = s1.[c65536].End(3).Row
s1.Rows(ilksat & ":" & sonsat).Hidden = True
s1.PrintOut
s1.Rows(ilksat & ":" & sonsat).Hidden = False
End Sub

Diğer sorularınız içinde aşağıdaki kodu sayfa2 nin kod sayfasına kopyalayın, kod B:F sütunlarına veri girdiğinizde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:f]) Is Nothing Then Exit Sub
If Target.Column < 6 Then
Target.Next.Select
Else
Target.Offset(1, -4).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "aaa", "bbb", "ccc", "ddd", "eee")
For a = 0 To 8
If deg(a) = Target Then Exit Sub
Next
MsgBox "hatalı veri"
Target.Select
End If
End Sub

 

[qrrxz]

öncelikle ilginiz için çok teşekkür ederim. yalnız bazı problemler var.

Sayfa3 ü yazdırmak için aşağıdaki kodu print butonuna bağlayın.

Sub yazdir()
Set s1 = Sheets("sayfa3")
ilksat = WorksheetFunction.Match("", s1.[c:c], 0) - 1
sonsat = s1.[c65536].End(3).Row
s1.Rows(ilksat & ":" & sonsat).Hidden = True
s1.PrintOut
s1.Rows(ilksat & ":" & sonsat).Hidden = False
End Sub

[/CODE]

makrosu sadece başlık ve toplam kısmını alıyor ve girilen verileri görmüyor bu satıları standart olarak seçiyor ve eski haline geri getirmiyor..

Diğer sorularınız içinde aşağıdaki kodu sayfa2 nin kod sayfasına kopyalayın, kod B:F sütunlarına veri girdiğinizde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:f]) Is Nothing Then Exit Sub
If Target.Column < 6 Then
Target.Next.Select
Else
Target.Offset(1, -4).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "aaa", "bbb", "ccc", "ddd", "eee")
For a = 0 To 8
If deg(a) = Target Then Exit Sub
Next
MsgBox "hatal&#305; veri"
Target.Select
End If
End Sub

makrosuna da ek olarak bişey daha isteyebilir miyim?

- "A" sütununa hiç giriş yapılamasın ve "B" sütunundan başlayalım.

- Sadece "B", "C", "D", "E" ve "F" sutünları arasında veri girişi yapabilelim. aynı zamanda bir alt satıra geçerken kesinlikle boş bırakma yapamayalım. ("B", "C", "D", "E" ve "F" sutünları ile "2" ila "3001" satırları dışına çıkamayalım..)

- "C" sütununa da sadece en fazla 6 karakterli rakam girebilelim, metin girişine izin vermesin.

iyi çalışmalar diliyorum. tekrar teşekkür ediyorum.

 

[Levent Menteşoğlu]

makrosu sadece başlık ve toplam kısmını alıyor ve girilen verileri görmüyor bu satıları standart olarak seçiyor ve eski haline geri getirmiyor..

Bizzat sizin dosyanızda deneyerek kodu oluşturdum. Sadece sayfa3 teki yazdırma alanını temizleyin ve tekrar deneyin. Diğer sorularınızada müsait olunca bakarım.

 

[qrrxz]

Bizzat sizin dosyanızda deneyerek kodu oluşturdum. Sadece sayfa3 teki yazdırma alanını temizleyin ve tekrar deneyin. Diğer sorularınızada müsait olunca bakarım.

ben yazdırma alanı belirlememiş ondan hata vermiş. yalnız bir satır eksik alıyor.

 

[qrrxz]

deg = Array(1, 2, 3, 4, 5, "aaa", "bbb", "ccc", "ddd", "eee")
[/CODE]

birde ben burayı çeşitlendirmek istedim. ve burada değer artışı oldu. örneğin "aaa"dan sonra "fcvd" gibi toplam 12 kelime verdim sadece bir tanesi için çalışıyor diğerlerinide görmüyor.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Gerekli açıklamalar dosya içinde ve VB editöründe kodların altında yapılmıştır.