Szia Imi!

Egyszerre írtunk, és megadtad a 3. megoldást. 🙂

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

Erre gondolsz, ami a csatolt képen látszik?

• A hozzászólás módosításra került: 6 years, 12 months telt el-delila. Indok: A képre kattintva látszik a szerkesztőlécen az E2 cella képlete

Az ÁTLAGHATÖBB függvénnyel megoldható.

Nálam a tartomány A1:E25.
=ÁTLAGHATÖBB(A1:E25;A1:E25;”>” & MIN(A1:E25);A1:E25;”<” & MAX(A1:E25))

Szia!

Az autoszűrő összefüggő táblázatban működik.

A Munka1 lapon a 4. sor üres (egyik oszlopodban sincs adat), ezért a szűrő csak az A1:B3 területet tudja figyelembe venni.

A Munka2 lapon a képleteid 0 értéket adnak ott, ahol a Munka1 lap B oszlopában üres cellákra hivatkoznak, ezzel feltöltik az A1:C13 tartományt, hatásos a szűrés.

Csatolom a fájlt.

Elnézést, pár napig nem jutottam internethez.
Az Új adatok lap A2 cellájának a képlete =’Régi adatok’!B2, a D2-é pedig =’Régi adatok’!C2 & ” ” & BAL(‘Régi adatok’!D2;6)*1

Mivel a település neve nem szerepel sehol, azt nem lehet képlettel behozni, így az irányítószámát sem.

Szívesen. 🙂

A D17 cella képlete legyen
=HA(F17>C17;F17-C17;”-” & SZÖVEG(C17-F17;”[ó]:pp”))

Ha egy mód van rá, kerüld a cellák összevonását, mint itt a D17 és E17-ét. Megengedi az Excel, de sok esetben nem tudja 100%-osan kezelni.
Beírod a D17-be amit akarsz, kijelölöd a D17:E17 tartományt, majd a cellaformázás vízszintes elrendezésénél A kijelölés közepére opciót választod.

A jelzett sort így írd át:
szoveg = szoveg & Left(Range(„F2”), 2) & „-” ‘F

Szólj, ha még egyebet is kell módosítani.

Nem egészen tiszta nekem a feladat. Most a 3. sorban képletek vannak. Ezek helyett a B, C, és E oszlopba tehetünk érvényesítést. A D oszlopba olyan adat kerül, ami „BRA-” szövegből, és egy számból tevődik össze? Hasonlóan az F oszlop „00-” és egy szám? Ha a G3:J3 tartományt töröljük, elvesznek a mostani képletek belőlük.

Kérlek, írd le, mi legyen a 3. sorban ahhoz, hogy a B6-ba (majd a következő, 3. sorba újonnan bevitt adatok után a B7-be) az kerüljön, amit mintaként beírtál.

Szia!

Az A1-ben a formázott szám, B1-ben a szöveg, amivel össze kell fűzni.
A képlet =ÖSSZEFŰZ(SZÖVEG(A1;”000#”);” „;B1)
ahol egy szóközt tettem az A1 és B1 tartalma közé.

Üdv,
Delila

Szia!

Összedobtam egy makrót. Az A2:E2 tartományban érvényesítéssel adhatod meg az adatokat. Mikor mindegyik cella ki van töltve, a laphoz rendelt makró beírja az értékeket a lenti utolsó sor alá, és kiüríti a 2. sorban lévő A:E cellákat.

Nézd meg a névkezelőt!

Üdv,
Delila

Örülök, hogy segíthettem, szívesen. 🙂

Szia!

Beszúrtam 3 oszlopot. Csatolom a füzetet.

Így oldanám meg (Horvimiétől kicsit eltérő módon):

Sub Beszuras()
    Dim sor As Long, kezd As Long, f As Boolean
    
    sor = 1: f = False
    Do While Cells(sor, 1) > ""
        If Not f Then
            kezd = sor: f = True
        End If
        If Cells(sor + 1, 1) <> Cells(sor, 1) Then
            Rows(sor + 1).EntireRow.Insert
            Cells(sor + 1, 1) = "Összesen:"
            Cells(sor + 1, 2) = "=sum(B" & kezd & ":B" & sor & ")"
            Range(Cells(sor + 1, 1), Cells(sor + 1, 2)).Font.Bold = True
            sor = sor + 2
            f = False
        Else
            sor = sor + 1
        End If
    Loop
End Sub

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

Már eleve a hahiba(fkeres(…);1) képletet kellene „makrórögzíteded”.
🙂

Tudod használni?

Letelt a szerkesztési idő, nem tudtam javítani.
Egyik oszlopban a “*petr*kru*”-ra keress rá, másikban a “*kru*petr*”-re.

Az előző hsz-ben csúnyán mellényúltam a billentyűzeten, „ru” helyett „rg”-írtam, ami a “petrelyezsmes burgonya” kifejezés sorát határozza meg. 🙁

A “*petr*kru*” megtalálja a petrezselymes krumplit, de ha előbb szerepel az oszlopban a “Iván fia, Petruska a krupié”, annak a sorszámát adja vissza a HOL.VAN függvény.

Gondolj bele, hogy a * karakter több betűt helyettesíthet. A keresett szöveg meghatározatlan számú, bármilyen karakterekkel kezdődhet, majd folytatódik a “petr” szövegrésszel, ismét meghatározatlan számú bármilyen karakter után szerepelnie kell a “kru” szövegrésznek, ami után megint lehetnek egyéb karakterek, változó darabszámmal.

Összefoglalva: ha a keresési tartományban nincs olyan kifejezés, ami a “*kru*petr*” feltételnek megfelel, hibára fut a függvény, az eredmény ”nincs” lesz. Ehhez a fordított sorrendhez “*kru*petr*” feltételt kell megadnod.

Szia Titok!

Rég láttam ilyen hasznos függvényt, de sajnos hibás. A Then után új sorba kell írni a Béget = “Remélem ennyi elég lesz: ” & Béget részt.

😀

Üdv,
Kati

Végül ez is szöveggé alakítja, de utána teszi az idézőjeleket, amikre nincs szükség. Tehát értelmesen csak képletben lehet használni.

Szöveggé alakíthatod könnyen a számjegyeket tartalmazó oszlopot.
Vegyük, hogy az A oszlopban vannak. Egy üres oszlop első cellája legyen
=A1 & „”
Ezt lemásolva minden számod szöveges érték lesz. Az új oszlopot értékként beilleszted az eredeti helyére.

Most már a HOL.VAN függvény működik: =HOL.VAN(„*” & 81 & „*”;A1:A20;0)

Tényleg lemaradt a feltöltés.
Meghagytam az oszlopokra hivatkozást, és mellé tettem a táblázatra mutató képleteket.

Köszönöm. Csak délután tudom megnézni.

Szívesen. 🙂

A 2. oldalon lévő táblázat egyes oszlopaira hivatkozik a B11 cella képlete,.
Ha tudnám, miért nem működik, megírnám. 🙁

Az eredeti A1:E9 tartományt – vagy ha közben bővítetted, akkor azt – a Beszúrás menüben alakítsd táblázattá. A táblázat bármelyik pontján állva készíts róla kimutatást.

Szívesen.
Köszönöm az előléptetést, de akkor már inkább királynő. :))

A kimutatás lap J4029 celláját megjelenítheted idő formátumban.

=HA(J4029>0;SZÖVEG(J4029;”[ó]:pp:mm”);”-” & SZÖVEG(ABS(J4029);”[ó]:pp:mm”))

Szia!

Nem tudom, lehet-e a táblázatkezeléshez készült Excelt pdf fájlok másolására használni.
Annyit mindenesetre egyszerűsítenék a táblázatodban, hogy a kötjeleket és a pontokat tartalmazó oszlopokat törölném. Ezzel az F oszlopba kerülne a fájlnév összefűzése: =A2&”-„&B2&”-„&C2&”-„&D2&”.”&E2

A checkboxok létrehozásánál a With-End With-ben nevet is adnék, pl.: .Name = „ChBx” & cell, másképp minden egyes létrehozásnál új számokat kapnak, és nem tudsz egyértelműen rájuk hivatkozni.

Üdv,
delila

Igaz, megkaptad a jó választ, azért írok egy másikat.

A laphoz kell rendelned a makrót. A lapra lépéskor figyeli, hogy az A1 cellában van-e adat. Ha nincs, másodpercenként változtatja a háttér színét. Mindenképp jobbnak tartom horvimi változatát.

Private Sub Timer()
    If Range("A1") <> "" Then
        Range("A1").Interior.ColorIndex = -4142
        Exit Sub
    End If
    
    With Range("A1")
        If .Interior.Color = vbYellow Then
           .Interior.Color = vbRed
        Else
           .Interior.Color = vbYellow
        End If
        Application.Wait Now() + TimeValue("00:00:01")
        DoEvents
        Timer
    End With
End Sub

Private Sub Worksheet_Activate()
    Timer
End Sub