izbira vseh listov-kopy and paste

Pomoč pri izdelavi makrov
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

izbira vseh listov-kopy and paste

Odgovor Napisal/-a luka_k »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a admin »

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
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a luka_k »

najlepša hvala Matjaž,
lp :)
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

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... :oops:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a admin »

sonofagun napisal/-a:list.UsedRange = list.UsedRange.AutoFit ne gre... :oops:
Poljubnega območja ne morete prilagoditi, prilagajate celotne kolone, zatorej...

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
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

Odlično.

Še enkrat hvala.

Lp
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

Pa še samo eno (malo) vprašanje: kako bi dopisal kodo, da bi v vsako celico (na vseh listih), kjer je vrednost "0", zapisal "/"?
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a admin »

To lahko rešite že z ustreznim formatom celic:

Koda: Izberi vse

#.##0,00;#.##0,00;"/"
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.
lp,
Matjaž Prtenjak
Administrator
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

To je to!

Hvala.

Lep pozdrav
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

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:

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
lep pozdrav
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a cedra »

Pošiljam vam vaš makro malce spremenjen in zdaj deluje:

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
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 Ž?
lp,

cedra
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

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 :) )
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a admin »

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... ;)
lp,
Matjaž Prtenjak
Administrator
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a sonofagun »

Zdravo.

Sem si še res pomagal z drugimi temami, pa še malo brskanja po neki literaturi, pa mi je vse uspelo uredit.

Hvala.
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: izbira vseh listov-kopy and paste

Odgovor Napisal/-a BJ »

Pozdravljeni!
Kako pa bi izgladal makro, da izbrane celice na aktivnem listu sprmenim v vrednosti brez formul?
Hvala!
LPB
Odgovori