Citat:
...s obzirom da u zaglavlju stoji naziv kluba da se kolona gde se nalazi naziv kluba ne pojavljuje ( sakrije )
Ako sam razumeo, dovoljno je da selektuješ i sakriješ (Hide) kolonu E, nikakva izmene u programu nije potrebna. Ako želiš da potpuno izbaciš tu kolonu morao bi da se menja način filtriranja - ne može samo copy iz postojeće tabele
Citat:
DA NA DNU IZVEŠTAJA STOJI LINIJA IZA POSLEDNJEG LICA.......................
Što se linije tiče, ako si hteo da dodaš donju ivicu tabele, to može lako da se ubaci u postojeći kod
Code:
Private Sub DodajRbr()
Dim rwEnd As Long
' Ostaje postojeći kod
'...
' Dodaj liniju ispod
With sh.Cells(rwEnd, 2).Resize(ColumnSize:=8).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Pošto, prilikom filtiranja brišeš prethodne redove, time će se izbirsati i donja linija, pa ovo dodavanje svaki put nakon filtiranja trebalo bi da bude dovoljno. Verovatno bi moglo i sa ulsovnim formatiranjem - bez dodavanja koda
Nije to loše Rembrante, samo što ne bi dodao još malo boje?