acebeci
Altın Üye
- Katılım
- 25 Ağustos 2007
- Mesajlar
- 326
- Excel Vers. ve Dili
- ofis excel 2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 03-11-2026
Değerli arkadaşlar bir excell çalışma kitabım var her bir cariye ayrı çalışma sayfası açıyorum ayrıca açtığım bu cariler isimleri borç alacak takibini daha kolay yapabilmek için LİSTE sayfasında listeleniyor. Listeyi yazdıracağım zaman Aşağı eklemiş olduğum Kod ile borcu -0- olanları listede gizleyip öyle yazdırıyorum. Liste de 30-40 kişi olursa bi sıkıntı olmuyor ama liste kalabalıklaştıkça tahminlerime göre 100 ü falan geçince Listedeki bazı isimleri kalıcı olarak siliyor tekrarda geri gelmiyor bu çok ciddi bir sorun oluşturuyor acaba konu hakkında yapılabilecek bir şey var mıdır? Şimdiden ilgi ve alakanız için 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
onay = MsgBox("Sayfa yazdırılsın mı?", vbOKCancel)
If onay <> vbOK Then Cancel = True
End If
End Sub
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
