• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Yazdırma sorunu

acebeci

Altın Üye
Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
273
Beğeniler
0
Excel Vers. ve Dili
ofis excel 2007 türkçe
#1
Değeri büyüklerim daha önce OFİS 2007 Kullanıyordum şimdi 2010'a geçtim. Bir çalışma kitabında LİSTE diye bir sayfam vardı orada müşteri isimleri ve borçları var. borcu sıfır olanları listeden çıkartıp yazdırmak için aşağıdaki kodu kullanıyordum.Sıkıntı şurada ki yazdır dedikten sonra tekrar bir ekran çıkıyordu yazdırmaya devam edip etmeyeceğimi soruyordu.Artık o ekran gelmiyor ben listeden 0 değerleri çıkarmak istediğimde yada eklemek istediğimde yazıcı çıktısı almak istemesem bile yazdırıyor.Bu durumu nasıl düzeltebilirim acaba? yani sıfır değerleri çıkartsa ya da eklese ama yazıp yazmamayı bana sorsa bu mümkün mü acaba? Şimdiden çok teşekkür ederim

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "LİSTE" Then
cevap = MsgBox("0 değerler yazdırılsın mı?", vbYesNo, "0 DEĞERLER")
If cevap = vbNo Then
For i = 2 To Cells(1, 3).End(xlDown).Row
If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
Rows(i).Hidden = True
End If
Next i
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
b = 1
For a = 3 To [C65536].End(xlUp).Row
If Rows(a).Hidden = False Then
Cells(a, 1) = b
b = b + 1
End If
Next a
End If
End Sub
 

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,142
Beğeniler
20
Excel Vers. ve Dili
2007 Türkçe
#2
Merhaba,
Sayfa ismiyle alakalı bir durum zannedersem. Koddaki sayfa ismiyle dosyanızdakinin aynı olduğundan emin olunuz.
If ActiveSheet.Name = "LİSTE" Then
 

acebeci

Altın Üye
Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
273
Beğeniler
0
Excel Vers. ve Dili
ofis excel 2007 türkçe
#3
Ömer Bey yok sayfa ismi değil Ofis 2010 ile alakalı bir durum yazdırma ile attığım ekteki resim Excel 2007 ye ait onda sıfır değerleri çıkardıktan sonra bu ekran geliyor yazdırmak istiyorsan bu ekranda tamam diyorum yada iptal efiyorum 2010 da böyle bir ekran gelmeden Sıfırları listeden çıkartarak direk yazdırıyor.Yani işin özeti şu listedeki sıfır sonuçları ekleyip gizleme, ekledikten yada gizledikten sonra listeyi yazdırıp yazdırmayacağımı sorması
Hakkatten hakkınızı helal edin konuyu baya karmaşıklaştırdım
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,142
Beğeniler
20
Excel Vers. ve Dili
2007 Türkçe
#4
O bahsettiğiniz ekran yerine kod içerisine şöyle bir ilave yapılabilir. İşinizi görürse...
Rich (BB code):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "LİSTE" Then
    cevap = MsgBox("0 değerler yazdırılsın mı?", vbYesNo, "0 DEĞERLER")
    If cevap = vbNo Then
        For i = 2 To Cells(1, 3).End(xlDown).Row
            If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
                Rows(i).Hidden = True
            End If
        Next i
    Else
        ActiveSheet.UsedRange.EntireRow.Hidden = False
    End If
    b = 1
    For a = 3 To [C65536].End(xlUp).Row
        If Rows(a).Hidden = False Then
            Cells(a, 1) = b
            b = b + 1
            End If
    Next a
    onay = MsgBox("Sayfa yazdırılsın mı?", vbOKCancel)
    If onay <> vbOK Then Cancel = True
End If
End Sub
 

acebeci

Altın Üye
Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
273
Beğeniler
0
Excel Vers. ve Dili
ofis excel 2007 türkçe
#5
Ömer Bey valla helal olsun her ne kadar ben derdimi doğru düzgün anlatamasamda hedefi tam 12 den vurmuşsunuz tamda istediğim buydu çok ama çok teşekkür ederim Allah razı olsun
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,142
Beğeniler
20
Excel Vers. ve Dili
2007 Türkçe
#6
Rica ederim, Allah hepimizden razı olsun. İşinizi gördüyse ne mutlu.
İyi çalışmalar...
 
Üst