- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
...
....
W = Range("$G$2").Row
Q = Range("$CI$" & sh).Column
ActiveSheet.Cells(x, y).AutoFilter Field:=1, Criteria1:="<>"
Range("A:F,M:Q,U:U,W:W,Y:Z,AB:AB,AE:AF,AH:AI,AU:CH,CJ:KL").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ?????????
soru işaretli yere w q aralığını nasıl yazmalıyım ki yazdırma alanını seçsin.
....
W = Range("$G$2").Row
Q = Range("$CI$" & sh).Column
ActiveSheet.Cells(x, y).AutoFilter Field:=1, Criteria1:="<>"
Range("A:F,M:Q,U:U,W:W,Y:Z,AB:AB,AE:AF,AH:AI,AU:CH,CJ:KL").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ?????????
soru işaretli yere w q aralığını nasıl yazmalıyım ki yazdırma alanını seçsin.
