izbira vseh listov-kopy and paste

[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]

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

[luka_k]

najlepša hvala Matjaž,
lp

[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...

[admin]

list.UsedRange = list.UsedRange.AutoFit ne gre...

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

[sonofagun]

Odlično.

Še enkrat hvala.

Lp

[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]

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.

[sonofagun]

To je to!

Hvala.

Lep pozdrav

[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]

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

[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]

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...

[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]

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