[Excel] Kopiranje formata i vrijednosti

[ Sudarica @ 03.11.2008. 18:54 ] @

Molim vas pomoć

Moram kopirati tabele sa formatima (zadržati širinu stupaca,širinu redova, boju, mrežu u tabeli),a iznosi moraju biti vrijednost (Values). Tabele imaju skrivene redove i kolone i kod kopiranja oni se nesmiju prenjeti. ( npr.kopiranje tabela sa subtotalima). Radna knjiga ima četiri radna lista od kojih uvijek kopiram dva ista radana lista ("dućan" i "rekapitulacija". Kopiram ih zajedno u drugu radnu knjigu koja se zove napr. "Ukupno 2008".

naznam koliko sam uspjela objasniti.

Pozdrav

[ Jpeca @ 03.11.2008. 20:46 ] @

Kopiranje bez skrivenih redova kolona možeš da obaviš tako što nakon selektovanja celog opsega koji se kopira, pritsak na taster F5, pa izabereš Special, Visible cells only. Nakon toga sa Paste kopiraće se opseg bez skrivenih redova kolona.

Što se tiče kopiranja formata, širiine kolona i vrednost, ne znam da li može sve od jednom, ali može pojedinačno.

1- Na opisani način gore označiš opseg (samo vidljive ćelije), pa Copy. Kad se postaviš na mesto gde treba da kopiraš, izabereš Paste. Na ovaj način iskopiran je format ćelija i formule
2- Označi kolone u izvornom opsegu, pa Copy i na odredištu izaberi Paste Special - opciju Column widths. Na ovaj način iskopirana je širina kolona
3- Na već opisani način selektuj vidljive ćelije i kopiraj ih na odredište, preko postojećeg, ali sada samo vrednosti Paste Special, Values

Nadam se da je to to.
Ako ovo često radiš možeš da probaš da napraviš makro koji bi ti to odradio npr

Code:
Sub CopySpec()
'
' Kopiranje opsega po vrednosti
' uz ocuvanje izvornih formata i širine kolona
'
Dim rngSource As Range, rngDest As Range
'
    Set rngSource = Application.InputBox(Prompt:="Selktuj izvornu tabelu", _
                    Title:="SPECIFY SOURCE", Type:=8)
    rngSource.SpecialCells(xlCellTypeVisible).Copy
    Set rngDest = Application.InputBox(Prompt:="Izaberi odredišnu celiju", _
                    Title:="SPECIFY DESTINATION", Type:=8)
    rngDest.Worksheet.Activate
    rngSource.SpecialCells(xlCellTypeVisible).Copy
    rngDest.Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
    Selection.PasteSpecial Paste:=xlPasteValues

End Sub

_{[Ovu poruku je menjao Jpeca dana 04.11.2008. u 09:05 GMT+1]}

[ Sudarica @ 04.11.2008. 18:02 ] @

Godinama kopiram i i muke mučim sa subtotalima ( kopirala sam ih pomoću Ctrl+C i onda iz međuspremnika (Clipboarda) ljepila tabelu, samo čiste vrijednosti i onda sam morala raditi ponovno formate).

Hvala na uputi ali ipak ću koristiti makro jer je pomoću njega puno brže i jednostavnije, ali ne znam zašto ne kopira iznose samo format vjerojatno je nekakva sitnica i ja je ne mogu otkriti.

Hvala na pomoći

Pozdrav

_{[Ovu poruku je menjao Sudarica dana 04.11.2008. u 19:39 GMT+1]}