MS Excel

Téma: Kopie stranek

Zaslal/a Tom 23.10.2011 21:05

Zdravím, měl bych dotaz ohledně excelu 2007. Ma vytvorenou f-ci která mi po zadaní parametru zkopiruje urcite hodnoty k ni prirazene... Vyuzivam to v 31 listech(dnu v mesici) a potreboval bych vysledne hodnoty hromadne zkopirovat, aby v nich nebyly zadne vzorce ale pouze vysledky... V 1 listu to neni problem , ale jak to udelat hromadne ve vsech??? predem dik za pomoc.

Zaslat odpověď >

AL(24.10.2011 0:25)#006241

Nie je úplne jasné, čo zamýšľaš. Predpokladám, že na 31 listoch chceš všetky vzorce nahradiť hodnotami, potom by malo stačiť nasledovné:

Pozor! Zmena je nevratná, takže výsledok musíš uložiť ako nový zošit, inak o vzorce v pôvodnom zošite prídeš. Pokiaľ chceš niečo iné, tak to budeš musieť asi lepšie popísať.citovat

AL(24.10.2011 0:25)#006242

Option Explicit
Sub Hodnoty()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
With Worksheets(i)
.Cells.Copy
.Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Next i
For i = 1 To Worksheets.Count
Worksheets(i).Select
Range("a1").Select
Next i
Worksheets(1).Activate
Application.ScreenUpdating = True
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.