izbira vseh listov-kopy and paste
izbira vseh listov-kopy and paste
pozdravljeni,
imam težavo, ki ji ne pridem do konca
pa bom kar povedal;
v zvezku imam kar nekaj listov, v katerih je polno formul.
naredil bi rad sledeče:
-izbral bi vse liste v zvezku
-Cells.Select
-kopiranje
Cells.Select
-posebno lepljenje-podatki
Upam da ste razumeli, kaj bi želel z makrom doseči, vse liste v zvezku
bi rad spremenil v liste brez formul-torej samo s podatki.
za vašo pomoč se zahvaljujem.
lp
imam težavo, ki ji ne pridem do konca
pa bom kar povedal;
v zvezku imam kar nekaj listov, v katerih je polno formul.
naredil bi rad sledeče:
-izbral bi vse liste v zvezku
-Cells.Select
-kopiranje
Cells.Select
-posebno lepljenje-podatki
Upam da ste razumeli, kaj bi želel z makrom doseči, vse liste v zvezku
bi rad spremenil v liste brez formul-torej samo s podatki.
za vašo pomoč se zahvaljujem.
lp
Re: izbira vseh listov-kopy and paste
Rešitev ne sledi ravno vašemu algoritmu, ker bi bila prepočasna... rezultat pa je isti:
Koda: Izberi vse
'
' www.matjazev.net
' september 2010
'
Sub FormuleVVrednosti()
Dim list
For Each list In Worksheets
list.UsedRange = list.UsedRange.Value
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: izbira vseh listov-kopy and paste
najlepša hvala Matjaž,
lp
lp
Re: izbira vseh listov-kopy and paste
Pozdravljeni.
Potreboval bi podobno rešitev (urejanje vseh listov oz. celic na vseh listih), vendar bi želel da bi se širina stolpcev prilagodila vsebini (AutoFit).
list.UsedRange = list.UsedRange.AutoFit ne gre...
Potreboval bi podobno rešitev (urejanje vseh listov oz. celic na vseh listih), vendar bi želel da bi se širina stolpcev prilagodila vsebini (AutoFit).
list.UsedRange = list.UsedRange.AutoFit ne gre...
Re: izbira vseh listov-kopy and paste
Poljubnega območja ne morete prilagoditi, prilagajate celotne kolone, zatorej...sonofagun napisal/-a:list.UsedRange = list.UsedRange.AutoFit ne gre...
Koda: Izberi vse
list.UsedRange.Columns.AutoFit
' oz. celotna koda
'
' www.matjazev.net
' november 2010
'
Sub PrilagodiVseListe()
Dim list
For Each list In Worksheets
list.UsedRange.Columns.AutoFit
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: izbira vseh listov-kopy and paste
Odlično.
Še enkrat hvala.
Lp
Še enkrat hvala.
Lp
Re: izbira vseh listov-kopy and paste
Pa še samo eno (malo) vprašanje: kako bi dopisal kodo, da bi v vsako celico (na vseh listih), kjer je vrednost "0", zapisal "/"?
Re: izbira vseh listov-kopy and paste
To lahko rešite že z ustreznim formatom celic:
Torej celicam na listih določite ta format in vse bo tako kot mora biti. Vsem celicam naenkrat lahko format določite preprosto tako, da izberete vse liste naenkrat in izberete format celic.
Koda: Izberi vse
#.##0,00;#.##0,00;"/"
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: izbira vseh listov-kopy and paste
To je to!
Hvala.
Lep pozdrav
Hvala.
Lep pozdrav
Re: izbira vseh listov-kopy and paste
Podoben problem: cilj je združiti vse prve liste excelovih datotek, ki se nahajajo v isti mapi kot "glavna datoteka" (kamor se shranjujejo delovni listi).
Kaj je narobe s to kodo:
lep pozdrav
Kaj je narobe s to kodo:
Koda: Izberi vse
Sub zdruzi()
Fpath = ThisWorkbook.path & "\" ' mapa trenutne (glavne) datoteke
Fname = Dir(FilePth & "*.xls") ' ime datotek v mapi
MyName = ThisWorkbook.Name ' ime glavne datoteke
Do While Fname <> "MyName()"
Workbooks.Open Fpath & Fname
Sheets(1).Copy After:=Workbooks(MyName).Sheets(Workbooks(MyName).Sheets.Count)
Workbooks(Fname).Close SaveChanges:=False
Fname = Dir
Loop
End Sub
Re: izbira vseh listov-kopy and paste
Pošiljam vam vaš makro malce spremenjen in zdaj deluje:
Sem pa opazil, da makro dela tako, da odpira zvezke po abecedi in če je ime zvezka iz katerega poženete makro, recimo bolj na začetku abecede, vam bo odprl samo zvezke, ki so po abecedi pred vašim zvezkom. To sem rešil enostavno tako, da sem zvezek poimenoval npr. "Zz zvezek". Vem, da rešitev ni ravno ne vem kaj, ampak dokler ni boljše...
Ne vem tudi kako je z odpiranjem in kopiranjem lista zvezkov, ki so na naše črke Č, Š in Ž?
Koda: Izberi vse
Sub zdruzi()
FPath = ThisWorkbook.Path & "\" ' mapa trenutne (glavne) datoteke
Fname = Dir(FPath & "*.xls") ' ime datotek v mapi
MyName = ThisWorkbook.Name ' ime glavne datoteke
Do While Fname <> MyName
Workbooks.Open FPath & Fname
Sheets(1).Copy After:=Workbooks(MyName).Sheets(Workbooks(MyName).Sheets.Count)
Workbooks(Fname).Close SaveChanges:=False
Fname = Dir
Loop
End Sub
Ne vem tudi kako je z odpiranjem in kopiranjem lista zvezkov, ki so na naše črke Č, Š in Ž?
lp,
cedra
cedra
Re: izbira vseh listov-kopy and paste
Imate prav. Oba "pomisleka" (abecedni vrstni red in datoteke, ki se začnejo s šumniki) predstavljata problem... Bom še poskusil kaj zgruntati, ampak trenutno ne vem točno kaj narediti...
Hvala za odgovor (in opozorilo )
Hvala za odgovor (in opozorilo )
Re: izbira vseh listov-kopy and paste
In zakaj ne uporabite ene izmed rešitev ki jih je na našem forumu kar nekaj?
Npr. v tejle tematiki imate boljši način iskanja Excelovih datotek po mapi...
Npr. v tejle tematiki imate boljši način iskanja Excelovih datotek po mapi...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: izbira vseh listov-kopy and paste
Zdravo.
Sem si še res pomagal z drugimi temami, pa še malo brskanja po neki literaturi, pa mi je vse uspelo uredit.
Hvala.
Sem si še res pomagal z drugimi temami, pa še malo brskanja po neki literaturi, pa mi je vse uspelo uredit.
Hvala.
Re: izbira vseh listov-kopy and paste
Pozdravljeni!
Kako pa bi izgladal makro, da izbrane celice na aktivnem listu sprmenim v vrednosti brez formul?
Hvala!
LPB
Kako pa bi izgladal makro, da izbrane celice na aktivnem listu sprmenim v vrednosti brez formul?
Hvala!
LPB