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: 5 years, 1 month telt el-delila. Indok: Javítás
• A hozzászólás módosításra került: 5 years, 1 month telt el-delila.

Szívesen.

Figyelted, hogy a változók deklarálását kiegészítettem? Egyrészt nem szerepelt mindegyik a Dim sorban, másrészt a
Dim i, j As Long
sor az i változónak variantként foglal helyet a memóriában, aminek nagyobb a helyszükséglete, mint a Long-é. Mindegyiknél külön meg kell határozni a típust.
Érdemes a VBE-ben megadni, hogy tegye kötelezővé a változók deklarálását. A Tools | Option | Editor fülön jelöld be a Require Variable Declaration opciót. Ennek hatására minden újonnan megnyitott mudul tetején megjelenik az Option Explicit szöveg. Ha a modulban le nem foglalt változót használsz, a makró az indításakor jelez, és megáll. Így elkerülhető, hogy egy elírt karakter hatására fals eredményt kapj, aminek az okát keresgélheted.

Például a makródban van két sor:

Xsum = WorksheetFunction.Sum(Arraytest)
Cells(lRow + 2, j).Value = Xsum

Ha a 2. sorban véletlenül Xszum-ot íratsz be a megadott helyre, csodálkozhatsz, hogy minden esetben 0 értéket kapsz.

Jó reggelt!

Mit szólsz a következő, pórias eljáráshoz?
A Ctrl-t nyomva tartod, közben a Bevitel fület jobbra húzod. Ez másolatot készít a lapról, aminek a Bevitel(2) nevet adja. Most már csak át kell nevezned az új lapot, és elrejtened az A oszlopot.

Üdv, Kati

Szia!

Így elég nehéz segíteni. Tegyél fel egy füzetet mintaként, minden lapon pár sor adattal, amik lehetnek hamisak. Az viszont lényeges, hogy az egyes oszlopok a valódi füzetedben lévő típusokkal egyezzenek meg. Ott legyen a mintában dátum, szöveg, számérték, ahol az eredetiben.

Kati

Szívesen. 🙂

Szia Móni!

Hol maradt a csatolt fájl?

üdv,
Kati

Ctrl+
A megjelenő párbeszéd ablakban 4 választási lehetőséget találsz. A Ctrl- -ra cellák törlésére van lehetőséged.

Az Excelben makró segítségével kétfelé választod a szöveget. A két részt viszed át a Wordbe egymás mellé, és ott formázod a mezőt félkövérre, ill. dőltre.
A példában a szövegek az A oszlopban vannak, ezeket teszi át a makró a stílus alapján a B és C oszlopba.

Sub Felkover_Dolt()
    Dim sor As Long, betu As Integer, usor As Long, szoveg As String
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = 2 To usor
        szoveg = Range("A" & sor)
        For betu = 1 To Len(szoveg)
            If Range("A" & sor).Characters(Start:=betu, Length:=1).Font.FontStyle = "Dőlt" Then
                Range("B" & sor) = Left(szoveg, betu - 1)
                Range("C" & sor) = Mid(szoveg, betu, 100)
                Exit For
            End If
        Next
    Next
End Sub

Szia!

Épp a napokban készítettem egy ilyen célú táblázatot. Csatolom.

Üdv,
Kati

A1-ben van a szöveged?
Lehet, hogy eltérő verziókat használunk. Nézz szét a függvényeid között, ott is a Szöveg kategóriában.

Az átírást megelőző képletet másolhatod lefelé.
Az első sorban az A1:J1 tartományt figyeli, a másodikban az A2:J2-t.

Szívesen. 🙂

Szia!

Vegyük, hogy a számok az A oszlopban vannak, A1-től kezdve. A B1 képlete: =HA(INT(A1)=A1;A1;A1*1000)
Ezt lemásolod végig a számok mellé, és már összegezheted is.

Üdv, Delila

Szívesen.
Villámgyors vagy!

Valamikor régen kaptam a lenti makrót, amit ha a füzeted ThisWorkbook lapjához rendelsz, a füzeted minden lapján célkeresztbe teszi a kiválasztott cellát. 1 lap moduljába bemásolva csak azon a lapon működik.
Próbáld ki egy üres füzetben, és ha megfelel, alkalmazhatod a „cél” füzetben.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target
        With .EntireRow
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlTop)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                .Interior.ColorIndex = 20
            End With
        End With
        With .EntireColumn
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlRight)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                    .Interior.ColorIndex = 20
                End With
        End With

        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="1"
        .FormatConditions(1).Interior.ColorIndex = 36
    End With
End Sub

Szia!

Mivel egy cellából kell kiolvasni a dátumot, a cella címét kell megadnod forrásként.
A dátumokat az Excel egész számokként értelmezi. A mai dátumot – 2020.02.04-et – 43865-ként tárolja. Ahhoz, hogy a fájlnévben dátum formában jelenjen meg, meg kell adnod a megjelenítendő formátumot.

Sub Mentes_pdf()
    Dim Ajanlat As String
    With ActiveSheet
        Ajanlat = ActiveWorkbook.Path & "\" & .Name & "_" & Format(Range("A2"), "yyyy-mm-dd") & ".pdf"
        
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajanlat, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Kati

Egyszerű és nagyszerű!

Egyszerűsítettem a feltételes formázásokon, nincs szükség az összefűzésekre. Kapcsos zárójellel jeleztem az egyes táblázatokat, amikre azonos formázást adtam. A harmadik tábla két felének formázása önálló, nem az első kettő szerint színeztem.
Az egyes táblákba beállva a Kezdőlap | Stílusok | Feltételes formázás | Szabályok kezelése menüpontban látszanak a megadott formátumok, mindegyik tartományhoz kettőt adtam meg. Mivel nem látszanak a teljes képletek, az egyiket kiválasztod, majd a Szabály szerkesztése gombbal láthatóvá teszed a teljes képletet.

Az összefűzés a két első táblázat feltételes formázásához kellett. Később a 3. táblázatnál másképp oldottam meg, amit be lehet vezetni az első kettőnél is.
A 3. táblázat adatait behivatkoztam az első kettőből. Az L4 cellára állva láthatod.

Kijelöltem az L4:N21 tartományt, és a feltételes formázásnál megadtam az egyik képletet, színeztem, majd ugyanerre a tartományra megadtam a 2. feltételt, és formáztam.
Az O4:Q21 tartománynál szintén kétféle formázást adtam meg, szintén képletekkel.

Szia!

Nem kell színezgetni, egyszerűbb megoldás is van. Nézd meg a csatolmányt.

A két szélső érték legyen 0 és 54.

Private Sub SpinButton1_Change()
    If SpinButton1.Value = 0 Then SpinButton1.Value = 53
    If SpinButton1.Value = 54 Then SpinButton1.Value = 1
End Sub

Szívesen.

Szia!
Nézd a mellékelt képet!
Üdv,
Kati

Szívesen.

Sajnos nem azonos mennyiség van az egyes típusokból, így nem lehet azonos képletet írni rájuk.
Írtam viszont egy makrót, ami megoldja a problémádat.
Az első lapról készítettem egy másolatot, ahol a Rendezés gombra kattintva elkészül az általad kívánt forma.
Tömörítem a fájlt, mert makrót tartalmazót másképp nem fogad el a fórummotor.

Szia!

Ha a címet középre akarod tenni, érdemes az A oszlopba írni, majd az A1:D1 tartományt kijelölve Cellaformázás, Igazítás fül, Vízszintesen A kijelölés közepére.
Nézd meg az A2 képletét, amit lemásoltam A4-ig. Az A6-ban változik a hivatkozás, majd az A10-ben ismét

Más nyelven beszélnek az Exceleink. Vessző az angolban kell, ott viszont az FKERES helyett a VLOOKUP használandó. Nem tudom, hogy jött össze nálad a kétféle nyelv.

Esetleg áthelyezted az A1:B4 cellák tartalmát?

Meg lehet oldani egymásba ágyazott ciklusokkal, de nem érdemes. Kevés az előállítandó szám, sok időbe kerül, míg mind az 5 szám eltérő lesz.

Ott választásról volt szó, nem sorsolásról

Mekkora számok kellenek, és mi az elrendezés?
A nevek esetleg külön-külön lapon vannak, vagy mindegyik egymás alatt valamelyik oszlopban 1 lapon? A kigyűjtés 1 lapra, vagy esetleg mindenkinek a saját lapjára történjen?