Forum » Programiranje » VBA vrednosti sheet-ov v nov excel file
VBA vrednosti sheet-ov v nov excel file
borzon ::
Pozdravljeni,
Pisem en majhen VBA projektv in glede na to da sem zelo "zelen" v temu vas naprosam za pomoc.
Zanima me, če kdo od tukaj prisotnih ve oziroma pozna kako bi lahko z VBA kodo, shranil vse Sheet-e (razen dveh) v Excel datoteki Računi v novo excel datoteko Novi Računi kot vrednosti z oblikovanjem. Torej da bi oblikovanje ostalo pobrisale bi pa se vse povezave in formule v ozadju (osranejo le vrednosti).
Prekopirat bi se morali vsi sheeti razen sheet1 in sheet3.
Za vsakrsnokoli konstruktivno pomoc in namige se že v naprej zahvaljujem.
Pisem en majhen VBA projektv in glede na to da sem zelo "zelen" v temu vas naprosam za pomoc.
Zanima me, če kdo od tukaj prisotnih ve oziroma pozna kako bi lahko z VBA kodo, shranil vse Sheet-e (razen dveh) v Excel datoteki Računi v novo excel datoteko Novi Računi kot vrednosti z oblikovanjem. Torej da bi oblikovanje ostalo pobrisale bi pa se vse povezave in formule v ozadju (osranejo le vrednosti).
Prekopirat bi se morali vsi sheeti razen sheet1 in sheet3.
Za vsakrsnokoli konstruktivno pomoc in namige se že v naprej zahvaljujem.
prtenjam ::
Sub PremakniListe()
Dim currentWB As Workbook: Set currentWB = ActiveWorkbook
Dim newWB As Workbook: Set newWB = Workbooks.Add
Dim ws As Worksheet
For Each ws In currentWB.Worksheets
If (ws.Name <> "sheet1" And ws.Name <> "sheet3") Then
ws.Copy Before:=newWB.Sheets(1)
End If
Next
End Sub
Matjaž Prtenjak
https://mnet.si
https://mnet.si
borzon ::
@prtenjam
Zahvaljujem se ti za pomoč toda sama koda ne deluje ravno tako kot sem želel.
Želel bi, da se ob kopiranju NE ohranijo formule temveč samo vrednosti celic.
Po domače rečeno, da tisti, ki prejme Excel ne ve kako so je vrednost celice izračunana.
hvala za pomoč
l.p
Zahvaljujem se ti za pomoč toda sama koda ne deluje ravno tako kot sem želel.
Želel bi, da se ob kopiranju NE ohranijo formule temveč samo vrednosti celic.
Po domače rečeno, da tisti, ki prejme Excel ne ve kako so je vrednost celice izračunana.
hvala za pomoč
l.p
prtenjam ::
Ah, da, to sem spregledal:
Sub PremakniListe()
Dim currentWB As Workbook: Set currentWB = ActiveWorkbook
Dim newWB As Workbook: Set newWB = Workbooks.Add
Dim ws As Worksheet
For Each ws In currentWB.Worksheets
If (ws.Name <> "sheet1" And ws.Name <> "sheet3") Then
ws.Copy Before:=newWB.Sheets(1)
End If
Next
For Each ws In newWB.Worksheets
With ws.UsedRange
.Value = .Value
End With
Next
End Sub Matjaž Prtenjak
https://mnet.si
https://mnet.si
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | [Excel]Kako izvleči vrednost?Oddelek: Programiranje | 4009 (3732) | Mobidick |
| » | [VBA Excel]Oddelek: Programiranje | 1248 (1182) | Muzo |
| » | Prosim za pomoč pri VBAOddelek: Programiranje | 2247 (2050) | apachee |
| » | [Visual studio .NET] Rabim pomočOddelek: Programiranje | 1714 (1556) | darkolord |
| » | Visual Basic in ExcelOddelek: Programiranje | 2905 (2471) | Vesoljc |