Szia Ákos!

Tudja a szorzatösszeg, ha megmondod neki.
=SZORZATÖSSZEG(KEREKÍTÉS(B2:B5;0);KEREKÍTÉS(C2:C5;0))

Kati

Nagyszerű!
Eddig nem vettem észre a MAXHA függvényt.

Szia Imi!

Valóban a kérdezőnek dinamikus képletre van szüksége.
Azért nem bánom, hogy feltettem ide a lapok egyes celláinak összegzését, mert nem sokan ismerik ezt a megoldást. Ha ide nem is stimmel, máshol (pl. 1 évhez 12 lap, majd ehhez egy összegző lap) alkalmazható.

Kati

Szia!

Örülök, hogy összejött.

Szia!

Nézd meg a csatolt képet!

Delila

Horváth Imi szavával: örülünk.

Szia!

3 lépésben át lehet alakítani mindet 26 karakteresre. Valószínű, hogy a képleteket össze lehet vonni, csak lusta vagyok hozzá.

Delila

Ha tartalmaz makrót, zip-be tömörítve tudod ide feltölteni.

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

Ciklus nélkül is meg lehet oldani. Az F2 képlete látszik a szerkesztőlécen. Ezt a makró írta be, addig, ameddig az A oszlopban van adat.

Sub Szumha()
    Dim usor As Long
    usor = Range("A" & Rows.Count).End(xlUp).Row
    Range("F2:F" & usor) = "=SUMIF(D:D,D2,E:E)"
End Sub

Szia!

Egy egyszerű feltételes formázással megoldható, mint a csatolt képen láthatod. A sárgával kiemelt részben az A1 helyett azt a cellát add meg, ahol a kijelölésed kezdődik.

Üdv,
Delila

Bevallom, még most sem értem, honnan veszed a 100, 202, 1, 196, stb. értékeket.
Transzponáltam a 2. sorba ezeket, a D3 képletét pedig másoltam jobbra és le.
Fogalmam sincs, hogy jó-e így.

Szia!

Nem saját készítésű, Krizsák László követte el évekkel ezelőtt.
Kipróbáltam, tudja a 10M-t.

Function Szam_kiiras(szam As Long) As String
    Dim j1, j10, j10a, j100
    j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
    j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
    j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
    j100 = Array("száz", "", "ezer", "millió", "milliárd")
    betu = ""
    If szam = 0 Then
        Szam_kiiras = "Nulla"
        Exit Function
    End If
    s = Format(szam, "0")
    j = 1
    While s <> ""
        i = Len(s) - 2
        If i < 1 Then i = 1
        s2 = Mid(s, i, 3)
        s = Left(s, i - 1)
        s3 = ""
        If Len(s2) = 3 Then
            s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
            If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
            s2 = Right(s2, Len(s2) - 1)
        End If
        If Len(s2) = 2 Then
            If Mid(s2, 2, 1) = "0" Then
                s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
            Else
                s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
            End If
            s2 = Right(s2, Len(s2) - 1)
        End If
        s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
        If s3 <> "" Then s3 = s3 + j100(j)
        If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
        betu = s3 + kot + betu
        j = j + 1
    Wend
    betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
    Szam_kiiras = betu
End Function

Delila

Igen. Az eredményekben az április is szerepel, pedig csak márciusig kellene.

Bocsi, csak most vettem észre.
https://forum.index.hu/Article/showArticle?la=148718083&t=9009340
Ezen a fórumon eléggé nehézkes a keresés,a 35466-os hsz-t kell nézni.

Szia!

Egy nem látható karakter, pl. szóköz lehet benne. A KÓD függvény visszaadja a hivatkozott cella első karakterének a ASCII kódját, ami szóköz esetén 32.
A HOSSZ függvényt is alkalmazhatod.

Delila

Szia!
A remek Villámkitöltés funkcióval oldanám meg.
A1-ben van a Julcsás szöveged. B1-be beírod a nevet. B2-re állva Kezdőlap, Szerkesztés, Kitöltés, Villámkitöltés.
Ennyi.

Delila

Látom, új kérdésként is feltetted, ott válaszoltam rá.

Szia!

Próbáld így:

Sub Masol_Torol()
    Dim ide As Long
    
    ide = Sheets("osszefuz").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("C").Range("b2:J11").Copy
    Sheets("osszefuz").Range("A" & ide).PasteSpecial xlPasteValues
    
    Sheets("betolto").Range("D1,J1,C4:D8,G4:H8").ClearContents
End Sub

Delila

Szia Attila!

Most csak 2007-es verzióm van egy „katasztrófa” miatt, Ebben a RANDBETWEEN függvényben adhatod meg a két szélső értéket a véletlenszámoknál.
Magasabb verziókban a VÉLETLEN.KÖZÖTT adja, de nem vagyok benne biztos.

Delila

Szia!
Tömbök, területek változóba tétele nélkül is meg lehet oldani.
2 makrót írtam, mert nem derült ki, hogy a másik lapon egymás mellé, vagy alá akarod másolni az adatokat.

Sub Masol_Munka1_re()   'egymás alá
    Dim oszlop As Integer, usor As Long, uoszlop As Integer, ide As Long
    usor = ActiveSheet.UsedRange.Rows.Count
    uoszlop = ActiveSheet.UsedRange.Columns.Count
    ide = 2
    For oszlop = 2 To uoszlop - 1 Step 2
        Range(Cells(2, oszlop), Cells(4, oszlop)).Copy Sheets("Munka1").Cells(ide, 1)
        Range(Cells(3, oszlop + 1), Cells(usor, oszlop + 1)).Copy Sheets("Munka1").Cells(ide + 1, 2)
        ide = Sheets("Munka1").Range("B" & Rows.Count).End(xlUp).Row + 1
    Next
End Sub

Sub Masol_Munka2_re()   'egymás mellé
    Dim oszlop As Integer, usor As Integer, uoszlop As Integer
    usor = ActiveSheet.UsedRange.Rows.Count
    uoszlop = ActiveSheet.UsedRange.Columns.Count
    For oszlop = 2 To uoszlop - 1 Step 2
        Range(Cells(2, oszlop), Cells(4, oszlop)).Copy Sheets("Munka2").Cells(2, oszlop - 1)
        Range(Cells(3, oszlop + 1), Cells(usor, oszlop + 1)).Copy Sheets("Munka2").Cells(3, oszlop)
    Next
End Sub

Delila

Van egy régi makróm, ami tartalomjegyzéket készít a lapokról, ahol a lapnevek linkek, a megfelelő lap A1 cellájára ugranak.
Mód van rá, hogy egyúttal minden lapra tegyen egy linket, amivel a tartalomjegyzék lapjára ugrorhatsz vissza.

Magyarázatokkal együtt küldöm a makrót.

Sub Tartalomjegyzek()
    'A makró egy tetszőleges nevű munkalapot szúr be a meglévőek elé.
    'Erre a munkalapra egy tartalomjegyzéket készít a többi munkalapot listázva,
    'hivatkozást is elhelyezve, amik az egyes munkalapok egy megadott cellájára mutatnak.
    'A lapokra vissza logikájú linket helyez el kérésre, egy megadott cellába.
    
    Dim TartalomLapnev As String, VisszaSzovege As String, VisszaHelye As String
    Dim aktiv As Integer, Vissza As Integer
    
    'Megkérdezi a felhasználótól, mi legyen a tartalomjegyzék munkalapjának a neve
    TartalomLapnev = InputBox("Mi legyen a tartalomjegyzék munkalapjának neve?", "Tartalomjegyzék munkalapjának neve")
    
    'Megkérdezi, szeretnénk-e vissza gombot elhelyezni a munkalapokon?
    Vissza = MsgBox("Legyen-e egy vissza logikájú link a munkalapokon?", 4, "Vissza logikájú link")
    
    'Ha igen, kérdezze meg, mi legyen a szöveg? pl. Alt+0171:«
    'és hol legyen az egyes lapokon
    If Vissza = 6 Then
        VisszaHelye = InputBox("Hova kerüljön a vissza logikájú link a lapokon?" & vbLf & "Pl.: A1", "Vissza logikájú link helye")
        VisszaSzovege = InputBox("Mi legyen a vissza logikájú link felirata?" & vbLf & "Pl. « (bal Alt+0171)", "Vissza logikájú link felirata")
    End If
    
    'Szúrjon be egy új munkalapot a meglévők elé a legelső helyre.
    ActiveWorkbook.Sheets.Add Before:=Worksheets(1)
    
    'Adja az új munkalapnak a felhasználó által megadott nevet
    Worksheets(1).Name = TartalomLapnev
    
    'Menjen végig a munkalapokon ...
    For aktiv = 2 To ActiveWorkbook.Sheets.Count
        '... és írja ezeknek a nevét sorszámmal ellátva az újonnan létrehozott lapra.
        Worksheets(1).Cells(aktiv, 1).Value = aktiv - 1 'sorszám
        Worksheets(1).Cells(aktiv, 2).Value = Worksheets(aktiv).Name    'lapnév
     
        'A munkalapok neveit tegye linkké
        With Worksheets(1)  'itt adhatjuk meg, hogy az egyes lapokon melyik cellára mutasson a link
            .Hyperlinks.Add Anchor:=.Cells(aktiv, 2), Address:="", _
                SubAddress:="'" & Worksheets(aktiv).Name & "'!A1", TextToDisplay:=Worksheets(aktiv).Name
        End With
        
        'Ha kértünk Vissza linket, hozza létre a vissza logikájú linket a megadott cellába
        If Vissza = 6 Then
            Worksheets(aktiv).Range(VisszaHelye).Value = VisszaSzovege
            With Worksheets(aktiv) 'itt adhatjuk meg, hogy a Vissza link melyik cellára álljon az első lapon
                .Hyperlinks.Add Anchor:=.Range(VisszaHelye), Address:="", _
                    SubAddress:="'" & TartalomLapnev & "'!B2", TextToDisplay:=VisszaSzovege
                .Range(VisszaHelye).Font.Bold = True
            End With
        End If
    Next aktiv
End Sub

:((

Szia Norbi!

A csatolt fájl nem egészen olyan, mint amit kértél, de talán ez is megteszi, míg nem kapsz másikat.
A cikkszámoknak emelkedő sorrendben kell lenniük, ahogy most is vannak.
A két HOL.VAN függvényt, és a névkezelőt nézd meg, azok alapján kapsz érvényesítési listát az I2 cellában.

Üdv,
Kati

Szia verax!

Először csak szövegesen írtam le a szerintem jó megoldást, még 19-én, 6:28-kor, amit a kérdező, kopisb
11:27-kor megköszönt, jónak minősített.
Másnap jöttél Te a kopisb.xlsx, majd a kopisb-1.xlsx fájlokkal. Az utóbbi harmadik lapja után szúrtam be a Munka4 lapot, és ezt az egyetlen Excel fájlt tettem fel kopisb-2.xlsx néven. Ott az E oszlop képletében a pontszámokat a B oszlopból veszem, ahol egész számok szerepelnek
=INDEX($A$1:$D$15;HOL.VAN(D2;A:A;0);2)
nem a formázás láttatja egészeknek.
Ezután már csak képeket linkeltem be ebből a fájlból, mert nem láttam értelmét újra és újra elküldeni a teljes fájlt.

Ennyit a fjordokról. Üdv,
Kati

A képleteket elég 2-től 7 sorig lemásolni.
Látod, nálam az E oszlopban egész számok szerepelnek.

Szerk.: beteszek egy újabb képet. A pontszámok feltehetően jobban eltérnek majd, mint a példában, nem lesz sok azonos helyezés.

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

Szia Péter!

A képlet (24,27-int(24,27))*400. Természetesen nem közvetlenül a számokat kell beírnod, hanem a megfelelő cellákra kell hivatkoznod.

Üdv,
Delila

A Munka4 lapra felvittem a fentebb javasolt megoldást, működik pontazonosság esetén is.

Szia!

Egy segédoszlopban az EA értékeihez adj hozzá egy nagyon kicsi értéket, ami a sorszámtól függ.
=EA3+SOR()*0,0001. Ez a harmadik sorban 0,0003-mal, az ötödikben 0,0005-tel növeli az értéket. A NAGY függvény erre az oszlopra hivatkozzon.
Nem tudom, mekkora értékeid vannak az EA oszlopban. A szorzót úgy kell meghatároznod, hogy sokkal kisebb legyen, mint az eredeti érték.

Üdv,
Delila

Hurrá!

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

Szia Imre!

Itt a kép.

Megint figyelmetlenül olvastam. :((

Már megköszönted…
További jó munkát!

Szia!

A Daily lap táblázatát értékként beillesztettem a Munka1 lapra – a T oszlop kivételével, mert ott minden sor #HIÁNYZIK-kal jelent meg nálam a hivatkozások miatt.
Nézd meg a feltételes formázást az $F$3:$S$481, és a $B$3:$B$481 tartományban. Most már csak a B oszlopot kell színre szűrnöd.
A F2:S2 képletét és cellaformáját, feltételes formázását is nézd meg.

Üdv,
Kati

Nem tudtam, hogy egy meglévő táblázat egy részére akarsz hivatkozni.
Imre 11:12 válaszát nézd meg!

Szia Zsófi!

Összeállítottam az érvényesítéseket úgy, ahogy 2 napja javasoltam.
Nézelődj a névkezelőben!

Üdv,
Kati

Örülök, hogy tudod használni, szívesen.

Szívesen.
Csak azt kell ellenőrizned, hogy valóban megegyeznek-e a tartozékok az egyes típusokhoz.

Nem néztem át az összes adatot, de úgy látom, a két Durst alkatrészei megegyeznek, ugyanúgy egyformák a Vutek tartozékai, valamint a Mutoh-é is. Elég lenne ezt a 3 nevet megjeleníteni az első érvényesítésben, és csak 3 választható listád lenne a fenti elnevezésekkel.

Szia!

Nézz el ide: https://www.contextures.com/xlDataVal15.html
Úgy emlékszem, Horváth Imi egyszer tett fel egy videót ebben a témában.

Üdv,
Kati

Hihetetlen hibát követtem el. Egy régi képet csatoltam az új helyett.

Nagyon szívesen. 🙂

Az Index, Indirekt, és a Hol.van függvényeket nézd meg a súgóban, azokat alkalmaztam. Remélem, rájössz lépésenként a hosszú képlet alkalmazására, mert nem tudok jól magyarázni – legalábbis írásban nem, inkább élőszóban.

Az utolsó oszlop szorzását átteheted a hosszú képlet végére, akkor megszüntetheted az ucsót. Az ellenőrzés könnyebbé tétele miatt írtam kettőbe.

A minta arról szólt, hogyan lehet kikeresni egy összetett táblázatból egy adatot több feltétel alapján. Ha ez megvan, fel lehet szorozni a lakás méretével.

Több dolgot kell rendezni a füzetedben.
Azt írod, „alul a táblázatban a 2. piaci fülön és a munka 3. ban vannak a lakások”.
3 lapod van: Munka2, Piaci, és Munka3. Ezek közül az elsőn vannak az új árak. Próbálom, de sikertelenül összehozni a lakások adatait az árakat tartalmazóval.
A lakásoknál megadod a teherhordót (Blokkos, Hagyományos falazott, Panelos, Vázas vagy öntött). Ezek nem szerepelnek az áras lapon.
Gondolom, a PIACI lapon az áras lap PIACI kategóriában megadott értékekkel kell számolni, a Munka3 lapon pedig a KÖLTSÉGELVŰ kategóriával. Bár az is lehet, hogy egyik lapon az iparosított, a másikon a hagyományos lakások szerepelnek.
A lakások lapjain nincs megadva, hogy felújított, vagy nem – az áraknál viszont igen, fontos szempont.
Szóval elég nagy a bizonytalansági tényező.
Az már csak technikai kérdés, hogy az Övezet név_1 oszlopban (L) csak számoknak kellene szerepelniük, nem pl. 1. övezet-nek. A Piaci lapon 9 sorban C öv. is szerepel.

Amíg nem olyan adatok szerepelnek a lakások lapjain, mint az árason, csak találgatni lehet.
Ha sikerül összhangba hozni a megadott adatokat a kétféle lapon, szívesen összehozom a képletet.

Szia!

Az összegző cella formátuma legyen n” nap + „óó:pp

Kati

A feltételes formázás helyett a képleteivel be lehetne írni egy oszlopba, hogy pihenőnap, munkanap.

Szia!

A Mentés másként ablak alsó sorában találod az Eszközök gombot. Erre kattintva Beállítások, majd jelszót adsz a módosításhoz, amit nem osztasz meg a többiekkel.

Üdv,
Kati

Szia Attila!

Lemaradt a csatolás, de nem baj.
Két makrót írtam. Az elsőt a Munka1 laphoz kell rendelned (lapfülön jobb klikk, Kód megjelenítése. Ezzel beléptél a VB szerkesztőbe. Bal oldalon látod a füzeted nevét, azon belül a Munka1 lapot. A jobb oldalon lévő üres területre kell bemásolnod a lenti kódot):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ide As Long

    If Target.Column = 1 Then
        Cells(Target.Row, 1).Copy Sheets("Munka2").Cells(1)
        ugras
    End If
End Sub

A másik makró modulba kerül. A VB szerkesztőben a füzeteden állva Insert menü, Module. Erre kapsz egy Module1 nevű modult, jobb oldalra másold a makrót:

Sub ugras()
    Sheets("Munka2").Select
    Cells(1).Select
End Sub

Ezután visszatérve a füzetedbe, a Munka1 lap A oszlopában bármelyik cellán duplakikk, a Munka2 A1 cellájában megjelenik a kiválasztott cikkszám, a Munka2 lesz aktív, ott is az A1 cella.
_________________________________________________________________________________________________________________________________________

Előfordulhat, hogy a kiválasztott cikkszámokat a Munka2 lapon egymás alá szeretnéd átvinni, mindig az első üres sorba. Ebben az esetben a laphoz ez jön:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ide As Long

    If Target.Column = 1 Then
        ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
        Cells(Target.Row, 1).Copy Sheets("Munka2").Cells(ide, 1)
        ugras ide
    End If
End Sub

… a modulba pedig:

Sub ugras(ide)
    Sheets("Munka2").Select
    Cells(ide,1).Select
End Sub

Vagy az egyik, vagy a másik párost másold be a Vb szerkesztőbe.

Üdv,
Kati

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