[Delila]

chris77

Egy rövid kis makró megoldja.

Sub Otszorozes()
    Dim sor As Long
    
    sor = Range("A" & Rows.Count).End(xlUp).Row
    Do
        Rows(sor & ":" & sor + 3).Insert Shift:=xlDown
        Rows(sor + 4 & ":" & sor + 4).Copy Range("A" & sor & ":A" & sor + 3)
        sor = sor - 1
    Loop While sor > 1
    Cells(1).Select
End Sub

[chris77]

Idézet: Delila - Dátum: 2014. 10. 17. 19:42

chris77

Egy rövid kis makró megoldja.

Sub Otszorozes()
    Dim sor As Long
    
    sor = Range("A" & Rows.Count).End(xlUp).Row
    Do
        Rows(sor & ":" & sor + 3).Insert Shift:=xlDown
        Rows(sor + 4 & ":" & sor + 4).Copy Range("A" & sor & ":A" & sor + 3)
        sor = sor - 1
    Loop While sor > 1
    Cells(1).Select
End Sub

Ufff... Köszi
Azt hittem megúszom makró nélkül, de látom sajna az kell hozzá..

Rápróbálok holnap akkor..

[chris77]

Nem bírtam kivárni...

Kipróbáltam és működik.

Nagyon szépen köszönöm..

[Delila]

Idézet: chris77 - Dátum: 2014. 10. 17. 20:04

Nem bírtam kivárni...

Kipróbáltam és működik.

Nagyon szépen köszönöm..

Örülök neki, szívesen.

[hkpk]

Ahoj!

Hogyan lehet a kijelölés első sorát meghatározni makróban? Van erre egyáltalán valami egyszerű mód? (Azon kívül, hogy egy for each ciklussal minden sor számán végigmegyek, és a legkisebb lesz az első)

[Delila]

Idézet: hkpk - Dátum: 2014. 11. 08. 17:32

Ahoj!

Hogyan lehet a kijelölés első sorát meghatározni makróban? Van erre egyáltalán valami egyszerű mód? (Azon kívül, hogy egy for each ciklussal minden sor számán végigmegyek, és a legkisebb lesz az első)

MsgBox Selection(1).Row

A Selection(1) a bal felső cellára mutat. A C5:H20 tartománynál a Selection(2) a D5 cella. A számozás balról jobbra, majd fentről le következik.

Szerkesztette: Delila 2014. 11. 08. 19:40 -kor

[hkpk]

Idézet: Delila - Dátum: 2014. 11. 08. 19:12

MsgBox Selection(1).Row

A Selection(1) a bal felső cellára mutat. A C5:H20 tartománynál a Selection(2) a D5 cella. A számozás balról jobbra, majd fentről le következik.

Wow! nagyon szépen köszönöm!

[Delila]

Idézet: hkpk - Dátum: 2014. 11. 08. 23:02

Wow! nagyon szépen köszönöm!

Szívesen.

[chemeng]

Sziasztok!
Makróhoz szeretném kérni a segítségeteket, mert hiába láttam sok jó megoldást hasonló problémára, de nekem nem ment...
Adva van a következő mappastruktúra: 12 könyvtár a hónapoknak megfelelően és mindegyik hónapnál minden egyes nap egy külön alkönyvtár, ezekben vannak azonos xls file-ok (némelyik napnál nincs).
Egy olyan makróra lenne szükségem, amelyik minden egyes alkönyvtárból megnyitja egyesével az ott lévő 0-n db xls file-t, kitörli az L1 cella tartalmát, majd elmenti.
Segítségeteket előre is köszönöm!
Üdv.

[Delila]

chemeng

Nyiss egy új füzetet. Az első lapon A1-től lefelé vidd be a könyvtárak nevét így:
C:\Valami\január\01\
C:\Valami\január\02\ ...
C:\Valami\január\31\
C:\Valami\február\01\ ...
C:\Valami\december\31\
Természetesen a saját mappáid neve szerepeljen mindenhol, és a végén ott legyen a \.
Nem írtad, az egyes füzeteknek melyik lapjáról kell törölni az L1 cella értékét. Én az első laphoz írtam – Sheets(1).

Ebbe a füzetbe másold be a makrót.

Sub Torles()
    Dim utvonal As String, sor As Integer, usor As Integer, FN As String
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    Application.DisplayAlerts = False
    
    For sor = 1 To usor
        utvonal = Cells(sor, "A")
        ChDir utvonal
        FN = Dir(utvonal)
        Do While FN <> ""
            If FN <> "." And FN <> ".." Then
                Workbooks.Open Filename:=utvonal & FN
                Sheets(1).Range("L1") = ""
                ActiveWindow.Close True
                FN = Dir()
            End If
        Loop
    Next
    Application.DisplayAlerts = True
End Sub

Szerkesztette: Delila 2014. 11. 20. 07:37 -kor

[chemeng]

Köszönöm szépen!

[Delila]

Idézet: chemeng - Dátum: 2014. 11. 20. 08:49

Köszönöm szépen!

Szívesen.

[hkpk]

Sokcsokit!

Már egyre többször fordul elő (és egyik gépen permanens a dolog), hogy a Dir Excel függvény nem adja vissza a fájlok listáját egy adott mappából. Van erre másik mód, ami jobban működik?

[Delila]

hkpk

Ki akarod listázni a fájljaid nevét egy mappából?

Sub MappaLista()
    Dim utvonal As String, sor As Long, FN
    utvonal = "C:\Mappa\Almappa\Al_almappa\"
    ChDir utvonal
    FN = Dir(utvonal)
    sor = 1
    Do While FN <> ""
        Cells(sor, 1) = FN
        sor = sor + 1
        FN = Dir()
    Loop
End Sub

[hkpk]

Idézet: Delila - Dátum: 2014. 12. 06. 14:55

hkpk

Ki akarod listázni a fájljaid nevét egy mappából?

Sub MappaLista()
    Dim utvonal As String, sor As Long, FN
    utvonal = "C:\Mappa\Almappa\Al_almappa\"
    ChDir utvonal
    FN = Dir(utvonal)
    sor = 1
    Do While FN <> ""
        Cells(sor, 1) = FN
        sor = sor + 1
        FN = Dir()
    Loop
End Sub

Dehát pont az a bajom, hogy a Dir(utvonal) nem ad vissza semmit, pedig lenne mit.

[Delila]

Idézet: hkpk - Dátum: 2014. 12. 06. 20:51

Dehát pont az a bajom, hogy a Dir(utvonal) nem ad vissza semmit, pedig lenne mit.

Esetleg ezzel?

Sub Fajlvalasztas()
    Dim FN As Variant
    FN = Application.GetOpenFilename
    If FN = False Then
        MsgBox "Tényleg? Mégse? Hát jó, akkor becsukom."
    Else
        MsgBox "A kiválasztott fájl: " & FN
        Workbooks.Open FN
    End If
End Sub

[JamesHolden]

Sziasztok,
Létezik Office-ban (legyen az Word vagy Excel) olyan beállítás, hogy a tálca vagy bezár gombbal nem a tálcára teszi le az adott dokumentumot hanem az óra melletti területre? És onnan is lehessen 1 kattintással megnyitni?
Köszi

[gazdi]

Idézet: JamesHolden - Dátum: 2015. 01. 12. 20:17

Sziasztok,
Létezik Office-ban (legyen az Word vagy Excel) olyan beállítás, hogy a tálca vagy bezár gombbal nem a tálcára teszi le az adott dokumentumot hanem az óra melletti területre? És onnan is lehessen 1 kattintással megnyitni?
Köszi

Ez esetleg?
http://www.officetoo...ystem_tray.html
Nem probaltam.

[dzsonmclean]

Sziasztok!

Egy kérdés:Excel 2007 verzio: időt,hogy lehet növelni cellánként ?
Egy folyamat indításhoz próbálnék segítséget készíteni,és a START időhöz kell hozzáadni hol 15,hol 30 percet.
Úgy szeretném megcsinálni,hogy csak a start időpontját lehessen beírni,a többi időt pedig az excel írja ki.
Pl: indulás 22:30
következő sorban 22:45 jelenjen meg
alatta 23:00
és így tovább....
Ez megoldható valahogy ?

Köszönettel:dzsonmclean

[gazdi]

Idézet: dzsonmclean - Dátum: 2015. 02. 23. 23:56

Sziasztok!

Egy kérdés:Excel 2007 verzio: időt,hogy lehet növelni cellánként ?
Egy folyamat indításhoz próbálnék segítséget készíteni,és a START időhöz kell hozzáadni hol 15,hol 30 percet.
Úgy szeretném megcsinálni,hogy csak a start időpontját lehessen beírni,a többi időt pedig az excel írja ki.
Pl: indulás 22:30
következő sorban 22:45 jelenjen meg
alatta 23:00
és így tovább....
Ez megoldható valahogy ?

Köszönettel:dzsonmclean

1.
Az elso cellaba beirod, hogy '22:30' (aposztrofok nelkul). Az alatta levobe beirod, hogy '22:45' (aposztrofok nelkul). Az Excel hh:mm idopontkent ismeri fel a 22:30-at es a kesobbi cellakhoz is eleg az automatikus formazas.
Kijelolod ezt a ket cellat. A kijeloles jobb also sarkan lesz egy pici fekete negyzet. Ezt a negyzetet eger bal gombjava megfogod es huzod lefele addig, amig kell. Erre az Excel kitolti az ujabb es ujabb cellakat 15 percenkent novekvo idokkel.
Ugyanez mukodik barmilyen sorozattal.

2.
A start idoponthoz beirod az indulas idopontjat. Az alatta levo cellaba beirod, hogy '=INDIRECT("R[-1]",FALSE)' (aposztrofok nelkul). Ez utobbi formulat bemasolod annyi cellaba egymas ala, amennyire szukseged van. Ennel a megoldasnal a cellakat kezzel kell hh:mm formatumra allitanod.

Szerkesztette: gazdi 2015. 02. 25. 10:59 -kor