Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).Copy
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).SpecialCells(xlCellTypeVisible).Copy
Yada önceki kodda currentregion kullandık bundada kullanmış olalım ve son satır olayından felan kurtulmuş olunur.
Ben pek kullanmıyorı-um ama çalışıyor.
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).Copy
Kod:
ws.Range(bul.Address).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy