Egyszerűbben is megoldhatod. Csak egy címke legyen, Label1. Ennek a magassága (Height) 3, szélessége (Width) nulla.

Private Sub UserForm_Activate()
    For i = 2 To 100 Step 2
        For j = 1 To 1000000: Next
        DoEvents
        UserForm1.Caption = i & "% komplett"
        Label1.Width = i * 2
    Next
End Sub

Egy példa:

Sub StatuszSor()
    Dim sor As Integer
    For sor = 1 To 25
        Application.StatusBar = sor & ". sor összege:   " & Cells(sor, 1) + Cells(sor, 2)
        Application.Wait Now + TimeValue("00:00:01")
    Next
    Application.StatusBar = False
End Sub

A For i Next i ciklust lezártad, de a For j-t nem.

Szia!

Próbáld így:

Sub pttro_1()
    Dim ciklus As Integer, usor As Long, ciklusszam As Integer
    
    ciklusszam = Range("I1")
    
    For ciklus = 1 To ciklusszam
        usor = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown).Row
        Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(usor, ActiveCell.Column)).Copy _
            Cells(usor + 1, ActiveCell.Column)
        Cells(usor + 1, ActiveCell.Column).Activate
    Next
    Application.CutCopyMode = False
End Sub

Itt az I1 cella tartalmazza az ismétlések számát. Ha ebbe a cellába beírt érték 3, akkor 3-szor fut le a ciklus, vagyis az eredetivel együtt összesen 4-szer szerepelnek majd egymás alatt az adataid.
Ha csak a megadott számban szeretnéd látni az adatokat, a
ciklusszam = Range("I1")
helyett írj
ciklusszam = Range("I1")-1 -et.

Üdv,
Kati

Szia Feri!

A Module2-be írtam egy makrót, benne némi magyarázattal.

Üdv, Kati

Én vagyok a hibás, tényleg rosszul írtam. Helyesen =B2*100/B1

%=érték*100/összeg
érték=141, összeg=602+141 –> 18,97712

Ellenőrzés: (602+141)*18,97712%
Számológépen: 602 plusz_gomb 141 =_gomb *_gomb 18,97712 %_gomb

Szia!
A másik fórumon, ahol feltetted ugyanezt a témát, válaszoltam.

Szívesen. 🙂

Kiteszel a lapodra egy alakzatot (négyszög, kör, miegyéb). Elnevezed Udvozlet-nek. Ennek az alakzatnak a képpel történő feltöltését végzi a makró a pillanatnyi idő függvényében.
A képeket az utvonal változóban megadott mappában kell tárolnod.

Most nem érek rá a magyarázatra, de biztosan rájössz.

Szarvas hiba részemről! Úgy akartam egy cellára állni, hogy előtte nem aktiváltam a lapot.

Private Sub Workbook_Open()
    Dim WS As Worksheet, sor As Long, valasz
    
    Set WS = Sheets("AKCIÓK")
    
    valasz = MsgBox("Töröljem a lejárt érvényességű tételeket?", vbYesNo + vbQuestion, "Törlési kérdés")
    If valasz = vbNo Then GoTo Raall
    
    With WS
        sor = 5
        Do While .Cells(sor, 1) <> ""
            If .Cells(sor, 2) < Date Then
                .Range("A" & sor & ":C" & sor).Delete Shift:=xlUp
            Else: sor = sor + 1
            End If
        Loop
        
        sor = 5
        Do While .Cells(sor, 5) <> ""
            If .Cells(sor, 6) < Date Then
                .Range("E" & sor & ":G" & sor).Delete Shift:=xlUp
            Else: sor = sor + 1
            End If
        Loop
    End With
    
Raall:
    Sheets("NYÍTÓOLDAL").Select
    Range("H5").Select
End Sub

Makró nélkül is megoldhatod. Kijelölöd a diagramon a teljes kört, majd az egyik cikket. Jobb klikk, Adatpont formázása, a Kitöltés menüpontnál beállítod a színt.

Igazad van, ez a kézenfekvő megoldás nem jutott eszembe.

A feltétel (If .Cells(5, 2) > „” Then) sem kell, elég ez:

        .Range("CH3:CO4").Copy
        .Range("B7:I28").PasteSpecial xlPasteFormats
        Application.CutCopyMode = False

Figyeld meg, hogy a másolandó formátumba a CH4:CO4 tartományt is be kell venni, hogy az alacsony sorok fekete háttere is másolódjon.

Szia!

A leírásodból nem derült ki, hogy melyik oszlopok adatait akarod töröltetni. Úgy gondolom, hogy a B:I tartományban lévőket.
Célszerű a füzet megnyitásakor eltüntetni a lejárt idejű bejegyzéseket, ezért az Open eseménybe érdemes betenni, a ThisWorkbook laphoz kell rendelni a makrót.

Private Sub Workbook_Open()
    Dim sor As Long, usor As Long
    
    sor = 5
    Do While Cells(sor, 2) <> ""
        If Cells(sor, 2) < Date Then
            Range("B" & sor & ":I" & sor + 1).Delete Shift:=xlUp
        Else
            sor = sor + 2
        End If
    Loop
End Sub

A Do-Loop ciklussal megyünk végig a B oszlop dátumain, az 5. sortól kezdve.
A Shift:=xlUp határozza meg a törlés irányát. Ha volt törlés, az alatta lévő adatok a törölt sor helyére ugranak fel, nem változtatjuk a sor változó értékét, ha nem volt, növeljük a sor értékét kettővel.
A ciklus addig fut, míg a B oszlopban talál adatot.

Krizsák László készített 5 éve egy vezérlő nélküli naptár userformot, amit egy fórumon közkinccsé tett.

Csatolom a füzetet, amiből átmásolhatjátok a saját fájljaitokba a Naptar userformot, a cmdClass modult, és a Munka1 laphoz rendelt eseményvezérelt makrót. Az én részem csupán a szombatok és vasárnapok színezése.

Meg kell nézni, van-e x nevű lap az osszes.xlsx-ben. Ha nics, létre kell hozni a Sheets.Add utasítással.

`On Error Resume Next
Set a = Sheets(„x”)
If Err.Number <> 0 Then
MsgBox „Nincs ilyen”
End If
On Error Goto 0

Szia!

Ezzel az a baj, hogy a gyűjtő füzet lapjain mindig csak az utoljára bemásolt füzet adatai lesznek meg. A meglévő adatokat a

WSO.Range("A2:BA100000").Delete

sor törli.
Másoláskor be kellene vinni egy üres oszlopba annak a fájlnak a nevét, ahonnan másolsz, és az új másolás előtt csak ezeket a sorokat kellene törölni. A tartományt megkeresheted a Match függvénnyel.

Szívesen 🙂

Örülök, hogy sikerült, és különösen annak, hogy önállóan javítottad a hibát!

Az Immediate ablakban (VBE-ben Ctrl+g) a ?activeworkbook.Path megadja az aktív fájl útvonalát.

Még egy módszer: ThisWorkbook laphoz:

Private Sub Workbook_Open()
    Dim leir As String, leir1 As String
    leir = "Két egész számot összegez"
    leir1 = "Két egész számot összeszoroz"
    Application.MacroOptions macro:="összead", Description:=leir
    Application.MacroOptions macro:="szoroz", Description:=leir1
End Sub

Modulba:

Function összead(a As Long, b As Long)
    összead = a + b
End Function

Function szoroz(a As Long, b As Long)
    szoroz = a * b
End Function

Töröld a -1-eket a képletekből. Váltakozva hol a kék százalékot, hol a piros értéket akarod megjeleníteni.

Rögzíts egy makrót, aminek a neve legyen a készítendő UDF név, akár üres is lehet, nem kell bele semmi.
Alt + F8-cal megjeleníted a makrókat, az újat kiválasztod, az Egyebeknél a leírásnál beírod a súgó szöveget.
A makró Sub-ját átírod Funtion-ra, és befejezed.

A profil lap képletében az első HOL.VAN függvényed az adatlap_% lap B oszlopában keresett. Addig jó is volt ez, míg be nem szúrtál egy oszlopot a B elé.

Másik hiba is volt. Az adatlap_% lap B oszlopában a számított értékek – a megjelenítéstől eltérően – törtek, ezért a sort kereső HOL.VAN függvény nem találta meg a kerek számokat. A képleteket beágyaztam a KEREKÍTÉS függvénybe, így már egész számok között keres a profil lap függvénye.

Az adatlap_2 lapon módosítottam az összesítő oszlopok címsorát. Ha például a mindennapos tevékenységnél és a motoros ügyességnél is csak össz. pontszám szerepel, az INDEX(HOL.VAN) párossal a motorosnál is az első találat – mindennapos – értéket kapnánk. Az adatlap_% és a profil lap 2. sorában mindenhova hivatkozással vittem be a címeket.
Az adatlap!B5 és az adatlap!B8 cellákban is szerepel a 32-es érték, ez hibát okoz a profil lapon.

Egy kis leírás a függvényhez, ami a profil lap B3 cellájában van:
Az INDEX függvényben megadjuk a tartományt, amiben bizonyos cellák értékére van szükségünk. Ez a tartomány a mi esetünkben az ‘adatlap_%’!$A:$AI

A függvény második paramétere a sorszám, a tartománynak ebben a sorában lévő adatot keressük. A HOL.VAN függvénnyel keressük ki ezt a sort.
HOL.VAN($A3;'adatlap_%'!$B:$B;0)
Ez azt jelenti, hogy az A3 értéket (100-at) az adatlap_% B oszlopában keressük. Az utolsó paraméter, a nulla mondja meg a függvénynek, hogy pontos értéket keresünk. Lehetne még közelítő keresés is, de az most nem érdekes. A hol.van értéke itt 3, mert a másik lap 3. sorában találja meg a hol.van a 100-as értéket.

Az INDEX harmadik paramétere az oszlopszám. Itt határozzuk meg, hogy a tartomány melyik oszlopában szereplő értéket akarjuk megkapni. Ezt is a HOL.VAN függvénnyel határozzuk meg.
HOL.VAN(B$2;'adatlap_%'!$2:$2;0)
Itt az adatlap_% második sorában keressük meg a címsorban szereplő értéket (B$2). A fenti képlet a 4. oszlopot adja meg, mert ott találja meg a szobatisztaság szöveget. Nekünk viszont az előtte lévő oszlop adata kell, ezért a megtalált oszlopszámból levonunk 1-et.
HOL.VAN(B$2;'adatlap_%'!$2:$2;0)-1)

A profil lap A oszlopában most olyan számok is vannak, amik az adatlap_%-on még nem szerepelnek. Mivel ebben az esetben a HOL.VAN függvények #HIÁNYZIK értéket adnának, a teljes képletet beágyaztam a HAHIBA függvénybe. Ha hiba van az INDEX-HOL.VAN párosban, akkor a HAHIBA 2. paraméterében megadott „” (üres string) lesz az eredmény.

Még most is baj van a profil lap felépítési logikájával. A Mindennapos tevékenység csoportban az első megnevezés, a szobatisztaság előtt szerepel a %, a további 3 csoportban nem. Nem látom át a teljes feladatot. A részletesen leírt függvényt most már biztosan át tudod alakítani a saját igényeidhez.

A második, tarc-1-2.xlsx a jó.

• A hozzászólás módosításra került: 7 years, 4 months telt el-delila.
• A hozzászólás módosításra került: 7 years, 4 months telt el-delila.

Szia!

A névadás után az érvényesítésnél a Forrás mezőben állva F3 billentyűre megjelenik az elnevezett tartományok listája, ezekből választod ki a megfelelőt.

Szia!

Az INDEX, HOL.VAN párossal írathatod ki az értékeket.
A függvény szintaktikája: INDEX(tömb;sor_szám;oszlop_szám)
A tömb az adatlap_% A:AI tartománya, a sor- és oszlopszámot a HOL.VAN függvénnyel keresheted ki, szintén az adatlap_% lapon.

A profil lap B3 képlete

=INDEX('adatlap_%'!$A:$AI;HOL.VAN($A3;'adatlap_%'!$B:$B;0);HOL.VAN(B$2;'adatlap_%'!$2:$2;0))

lesz, amit le-, és jobbra másolva megkapod a szükséges adatokat a teljes lapon.

Figyeld meg a $ jelek alkalmazását, amikkel a keresendő sort, ill. az oszlopot rögzíted a másoláshoz.

Üdv, Kati

Szia Titok!

A Munka4 lapon már volt mindenféle adat, amik közül a hónapokat tartalmazót kibővítettem egy oszloppal.
Ez lehetővé tette a naptár lap C8 cellájába írt nagyon vidám (ha-ha-ha) függvényed kicserélését egy sima fkeres-re.

=FKERES($I$3;Munka4!$E$19:$F$30;2;0)*1

Szia!

Vidd fel a római számokat emelkedő sorrendben az egyéni listákhoz (Az Excel beállításai, Népszerű elemek, Alapvető beállítások az Excel használatához, Egyéni listák).

Állj be a rendezendő tartományba, Rendezés, Egyéni sorrend. A Sorrend legördülőjében az A-Z helyett az Egyéni listát választva kattints a felkínált római számokra.

Szerk.: többszöri próba esetén valamiért a IX. kerület a IV. után jelenik meg rendezéskor, nem tudni, miért. Utólag kijelölve a IX. kerületi adatokat a helyükre húzhatod, ha Nálad is előjön ez a furcsaság. A többivel nálam nincs gond.

• A hozzászólás módosításra került: 7 years, 4 months telt el-delila. Indok: Hiba a rendezésben

A D:E képleteket is elhagyhatod, ha a C2-ben ezt adod meg:

=INDEX(J:L;1;HOL.VAN(MAX(J2:L2);J2:L2;0))

• A hozzászólás módosításra került: 7 years, 5 months telt el-delila.

Szia!

A sorszám kikeresése nem szükséges. Az oszlopszámot felhasználva a C2 képlete

=INDEX(I:L;1;E2)

Szia!

Kiváló érzékkel tudod megtalálni a lehető legbonyolultabb megoldásokat.
Összeállítottam egy új füzetet a csatolmányod alapján.
A cellák összevonását lehetőleg el kell kerülni. Semmi szükség rá, hogy pl. 2 sorban (és több oszlopban) helyezd el a hónap nevét. A sorok magasságát növelheted, az oszlopok közötti középre helyezés megoldható a cellaformázásnál. Beírod az adatot az első oszlopba (J3), kijelölöd a tartományt, aminek a közepén szeretnéd látni (J3:O3), cellaformázás, igazítás, vízszintesen a kijelölés közepére. Ezt egyszer megcsinálod, majd a C9:D9 tartományt kijelölve az F4 ismétli a műveletet.

A Munka3 lapon elég a költségeket felvinni (táblázattá alakítva), a többi megoldható a naptár lapon. Nézd meg a képleteket, és a két léptető cellacsatolását. A P1 karakterének a színét feketére módosíthatod.

Az alsó sorba bevittem egy feltételes formázást, ami a következő hónap napjainak a színét módosítja.

A fájl mérete az eredeti 2/3-a lett.

Szia!

A csatolt képen láthatod a vezérlő beállításait. Nálam a 12 hónap neve az A1:A12 tartományban van, a csatolt cella a D3. Már csak be kell írnod egy cellába: =INDIREKT(„A” & D3), és ott megjelenik a kiválasztott hónap neve.

Szívesen. 🙂

Teszek fel egy fájlt. A mostani 3 lapon azonos helyen vannak a bevételek és kiadások. Minden kategóriában hagytam üres sorokat, ahova újakat adhatsz meg. Új megnevezés esetén kijelölöd az összes lapot, majd az éppen aktuális lapon a B oszlopba beírod az új megnevezést. MEGSZÜNTETED A LAPOK KÖZÖS KIJELÖLÉSÉT!
Hasonlóan jársz el új sor beszúrásakor. Fontos, hogy minden lapon azonos sorban legyenek az azonos megnevezések.

A többi hónaphoz: kijelölöd a január lapot, a Ctrl nyomva tartása mellett áthúzod a február lap mögé, majd átnevezed a lapot. Most az új (március) lapon a C oszlopban törlöd az adatokat, de az összesítéseket nem. Ezt az kiürített lapot másolod tovább.

A 2018 lapon folytathatod a B:C oszlopok képleteinek a másolását.

Figyeld meg a csoportosításokat. Jelenleg a 2018 lapon az egyes csoport látszik, a januáron a kettes, a februárin pedig a hármas. A táblák bal oldalán fent, valamint a + és – jelekre kattintva módosíthatod a csoportok láthatóságát.

• A hozzászólás módosításra került: 7 years, 5 months telt el-delila.

Szívesen.
A válaszadás nem kötelező, hanem önkéntes. Szóval semmi bocsánatkérés.

Nincs mit. 🙂

Szia Karesz!

Duplaklikk eseményhez rendelve

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(1, 1).Value, Cells(2, 1).Value).Select
End Sub

Örülök, hogy elnyerte a tetszésedet, szívesen.
Jöhet a makróbarátként mentés.

Szia!

Beírtam a makrókat. A lapok nevét úgy adtam meg, ahogy a 2018 lap 17. sorában vannak, mert ezekre hivatkozom a laphoz rendelt, eseményvezérelt makróban.

A 2018 és a január lapokon a csúf #ZÉRÓOSZTÓ eredményű képleteket átírtam.
2003-as Excelben a HAHIBA helyén _xlfn.IFERROR, az ÁTLAGHA helyén _xlfn.AVERAGEIF függvényt találsz.
Felteszem, hogy 2003-nál magasabb verzióban dolgozol, másképp nem tudtad volna megadni az említett függvényeket. Ebben az esetben az xls kiterjesztésű fájlt makróbarátként, xlsm kiterjesztéssel mentsd el.

Jól mutat a fekete alapon sárga előtér, de hosszabb ideig dolgozva fárasztja a szemet. Érdemes kevésbé elütő elő- és háttérszínt alkalmazni. Ez csak egy tanács, nem kötelező betartani.

Üdv,
Delila

Szia!

A csatolt képen láthatod a hivatkozás címzését.
Az Összesítő lap A1 cellájába vittem be a hivatkozást, ami a Január lap (az alsó kép) A3 cellájára mutat.

Nagyon szívesen, örülök hogy összejött.

Szia!

Próbáld így

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 Then
        Application.EnableEvents = False
        Target.Offset(0, -4) = Format(Date + Time, "yyyy.mm.dd. h:mm")
        Application.EnableEvents = True
    End If
End Sub

Delila

Szivi. 🙂

Miután elküldtem, észrevettem, hogy hiányzik a hónap első napja. Az AH oszlop elé szúrj be egy oszlopot. A Műszak lap C2 képlete legyen =INDEX(Naptár!$A$1:$AF$14;HOL.VAN($A$2;Naptár!$A:$A;0);OSZLOP()-1), ezt húzd jobbra az AG2-ig.

A lenti képletekben is kell javítani. Mégis elküldöm az újabb verziót.

• A hozzászólás módosításra került: 7 years, 7 months telt el-delila.

Szívesen.

Az alsó táblázatod eredeti, hosszú képleteiben a saját lap 1-1 tartományára hivatkozó részben nem kell beírni a lap nevét. Műszak!A1 helyett ezen a lapon elég az A1. Csak akkor kell beírni a lapnevet, ha másik lap A1-ére hivatkozol.

A Cells(2) a B1 cella címe. Nem lehet egy makrót ráhúzni egy másik feladatra. 🙂

Csatolom a füzetet. A 2. lap B11 és F11 celláinak a módosulására írja be a makró a megfelelő adatokat. Ha bővíteni akarod, másold az A:C oszlopokat, majd bővítsd ki a
If Target.Address = "$B$11" Or Target.Address = "$F$11" Then
sort az új címekkel.

Beszúrtam a Műszak lap tetejére egy sort, amit elrejthetsz. A képletek az N3:N8 tartományban vannak.

Nem azt akartad? Akkor ne írd át a képletben az A1-et. Jelöld ki a B1:AF1 cellákat, majd a Ctrl gomb nyomva tartása mellett húzd le a B20-ba.