Új hozzászólás Aktív témák

• #47435 Delila_1 veterán Lasersailing #47434

  Új Válasz 2021-09-24 12:55:22 #47435

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #47434 üzenetére

  Újra megnyitáskor kell lépésenként futtatnod.

• #47433 Delila_1 veterán Lasersailing #47432

  Új Válasz 2021-09-24 12:44:52 #47433

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #47432 üzenetére

  Lépésenként futtatva (F8) a hibát okozó sort sárgával kijelölve láthatod.

• #47427 Delila_1 veterán andreas49 #47425

  Új Válasz 2021-09-23 14:31:06 #47427

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47425 üzenetére

  Lappy válaszán kívül 2 változat:

  1. Kijelölöd a módosítható tartományt, és a cellaformázás védelem fülén kiveszed a pipát a zárolás elől, majd lapvédelmet adsz.
  2. Alt+F11-gyel belépsz a makró szerkesztőbe. Bal oldalon kiválasztod a lapodat, majd a Properties ablakban (ha nem látszik, F4-gyel láthatóvá teszed) beállítod a ScrollArea (szerkeszthető) területet a kép szerint. Ennél makróbarátként kell mentened a fájlt.

  

  A ThisWorkbook laphoz pedig ez a makró kell:
  Private Sub Workbook_Open()
    Sheets(1).ScrollArea = "$A$1:$H$20"
End Sub

• #47412 Delila_1 veterán Chrisluke #47411

  Új Válasz 2021-09-21 15:11:56 #47412

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Chrisluke #47411 üzenetére

  A HAHIBA függvény utolsó paramétere "" (üres string)? Hiba esetén ez látszik, szóval nem látszik semmi. Probléma akkor van, ha olyan sorban is előfordul, ahol a HAHIBA függvény nem fut hibára.

• #47401 Delila_1 veterán Chrisluke #47400

  Új Válasz 2021-09-17 17:07:49 #47401

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Chrisluke #47400 üzenetére

  Esetleg a cellaformázás – feltételes formázás – teszi a karakterek színét egyenlővé a háttérével?

• #47394 Delila_1 veterán csongi #47392

  Új Válasz 2021-09-17 09:57:39 #47394

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz csongi #47392 üzenetére

  G61-be: =HA(E61=111;F61;E61)

• #47386 Delila_1 veterán user112 #47385

  Új Válasz 2021-09-15 11:58:20 #47386

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz user112 #47385 üzenetére

  Cellaformázás, Igazítás fülön Lekicsinyítve, hogy beférjen.

• #47367 Delila_1 veterán Fferi50 #47364

  Új Válasz 2021-09-13 15:30:01 #47367

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #47364 üzenetére

  Igen.

• #47363 Delila_1 veterán Fferi50 #47362

  Új Válasz 2021-09-13 15:02:32 #47363

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #47362 üzenetére

  Ehelyett jöhet itt is a villámkitöltés.

• #47333 Delila_1 veterán andreas49 #47332

  Új Válasz 2021-09-09 06:40:22 #47333

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47332 üzenetére

  Ha nem számként vitted be eleve az adatokat, akkor nem lenne probléma. Azzal, hogy szöveg formátumúra alakítottad a cellákat, még számok maradtak.
  Beszúrunk egy sort, ami egyenként szöveggé konvertálja a számokat, így már működni fog.

  Sub FelsoIndex_1()
    Dim CV As Object, koztes
    For Each CV In Range("E4:AL169")
        CV = CV & ""
        If Len(CV) = 2 Then CV.Characters(Start:=2, Length:=1).Font.Superscript = True
        If Len(CV) = 3 Then CV.Characters(Start:=2, Length:=2).Font.Superscript = True
    Next
End Sub

• #47331 Delila_1 veterán andreas49 #47330

  Új Válasz 2021-09-08 18:57:29 #47331

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47330 üzenetére

  Óhajod parancs.

  Sub FelsoIndex_1()
    Dim CV As Object
    For Each CV In Range("E5:AL169")
        If Len(CV) = 2 Then CV.Characters(Start:=2, Length:=1).Font.Superscript = True
        If Len(CV) = 3 Then CV.Characters(Start:=2, Length:=2).Font.Superscript = True
    Next
End Sub

• #47329 Delila_1 veterán andreas49 #47327

  Új Válasz 2021-09-08 14:40:45 #47329

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47327 üzenetére

  Több tételnél ez a makró az utolsó karaktert felső indexbe teszi.
  Ebben az esetben az A1:A10 tartományban működik.

  Sub FelsoIndex()
    Dim kezd As Integer, sor As Integer
    For sor = 1 To 10
        If Len(Cells(sor, 1)) > 1 Then
            kezd = Len(Range("A" & sor))
            Cells(sor, 1).Characters(Start:=kezd, Length:=1).Font.Superscript = True
        End If
    Next
End Sub

• #47328 Delila_1 veterán Sprite75 #47326

  Új Válasz 2021-09-08 14:16:06 #47328

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sprite75 #47326 üzenetére

  Nem vettem észre az utóbbi hozzászólásokat, mert az előző makrón egyszerűsítettem. Privátban elküldtem a módosított, javított változatot.

• #47324 Delila_1 veterán andreas49 #47323

  Új Válasz 2021-09-08 13:07:53 #47324

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47323 üzenetére

  Szövegként vidd be. A szerkesztőlécen kijelölöd a 4-et, jobb klikk, cellaformázás, felső index.

• #47322 Delila_1 veterán Sprite75 #47320

  Új Válasz 2021-09-08 12:33:43 #47322

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sprite75 #47320 üzenetére

  [link]
  Makróval megoldható az átlós szegély, és körlevél sem kell hozzá.
  Kitöltöd a Nevek lapot – amit körlevél esetén is kitöltenél –, a Jelenlét lapon pedig indítod a makrót.

• #47321 Delila_1 veterán Sprite75 #47320

  Új Válasz 2021-09-08 08:51:36 #47321

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sprite75 #47320 üzenetére

  Mivel feltételes formázással nem lehet átlós szegélyeket bevinni, szürke hátteret adtam a megfelelő cellákban.
  

  M1-be beírod az évet, M2-ben kiválasztod a hónapot az érvényesítésből.
  Meg lehet oldani, hogy az ünnepnapok háttere is eltérjen a munkanapokétól.
  A C3 képlete: =M1&". "&M2&" hónap"

  Szerk.: természetesen a Q oszlopban decemberig vidd a hónapokat, és az Fkeres-nél is javítanod kell a tartományt.

• #47296 Delila_1 veterán szami777 #47295

  Új Válasz 2021-08-28 14:41:56 #47296

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz szami777 #47295 üzenetére

  A cellaformázásnál vedd le a védelmet (zárolást) minden olyan celláról, amit használhatnak a felhasználók. Az útmutatót tartalmazó sorok maradjanak zároltak.
  Adj lapvédelmet, ahol a Zárolt cellák kijelölése elől vedd ki a pipát. Ezután ezekre a cellákra nem tudnak ráállni, a sorokat sem tudják törölni a felhasználók.

• #47281 Delila_1 veterán MostaPista #47279

  Új Válasz 2021-08-25 06:37:00 #47281

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #47279 üzenetére

  Semmi gond.
  A pár nap, míg nem néztél a fórumra, 36.

• #47275 Delila_1 veterán daninet #47274

  Új Válasz 2021-08-19 14:13:57 #47275

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz daninet #47274 üzenetére

  Ez az utolsó nem üres cellában lévő értéket adja. A kérdés így szólt: "az utolsó nem üres cellát keresem". Az én képletem az utolsó nem üres cella oszlopszámát adja.

• #47273 Delila_1 veterán Delila_1 #47272

  Új Válasz 2021-08-19 07:04:28 #47273

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Delila_1 #47272 üzenetére

  Helyesen
  =HOL.VAN(INDEX(A90:BG90;HOL.VAN(9999999;A90:BG90;1));A90:BG90;0)
  a képlet.

• #47272 Delila_1 veterán daninet #47267

  Új Válasz 2021-08-19 06:40:27 #47272

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz daninet #47267 üzenetére

  = HOL.VAN(INDEX(D90:BG90;HOL.VAN(9999999;D90:BG90;1));D90:BG90;0)

• #47271 Delila_1 veterán arsenal1980 #47261

  Új Válasz 2021-08-19 06:19:29 #47271

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz arsenal1980 #47261 üzenetére

  Nem kell sorba rakni.

  Nem írtad, hogy azonos lapon van-e a két táblát.
  Vegyük, hogy az egyik a Munka1, a Másik a Munka2 lapon van, és mindkét lapon az A oszlopban vannak a cikkszámok. A Munka1 lapon egy oszlopba beírod az
  =HA(DARABTELI(Munka2!A:A;A1)>0;"van";"nincs")
  képletet. A van és nincs helyére írhatsz 1-et és 0-t.

  Ha azonos lapon vannak a táblák, kijelölöd a két oszlopot. Feltételes formázás, Csak az egyedi, vagy az ismétlődő értékek formázása, Ismétlődő, és megadsz egy formátumot.

• #47260 Delila_1 veterán Fferi50 #47259

  Új Válasz 2021-08-18 13:14:41 #47260

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #47259 üzenetére

  Én is egyben másolom be. A program részt csak az esetleges magyarázó szöveg bevitele után formázom programkódként, így csak ahhoz tartozik majd csúszka, a makróhoz nem.

• #47257 Delila_1 veterán Fferi50 #47256

  Új Válasz 2021-08-18 07:20:13 #47257

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #47256 üzenetére

  

  Hogy van az, hogy Nálad nem "szabdalja" fel soronként a kódot a motor?

• #47255 Delila_1 veterán zsolti_20 #47251

  Új Válasz 2021-08-18 06:44:25 #47255

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz zsolti_20 #47251 üzenetére

  Egy saját függvénnyel megoldható.

  Function Fordit(cella As Range)
    Dim x As Integer, ford As String
    For x = Len(cella) To 1 Step -1
        ford = ford & Mid(cella, x, 1)
    Next
    Fordit = ford
End Function

  Képlettel hivatkozol a megfordítandó szöveg cellájára: =Fordit(A1)
  A füzetet makróbarátként kell elmentened.

  Van egy egyszerűbb, makrómentes módszer. Az első név mellé billentyűzetről beviszed a fordított szöveget, majd Kezdőlap, Szerkesztés, Kitöltés, Villámkitöltés.

• #47249 Delila_1 veterán gepesz13 #47248

  Új Válasz 2021-08-17 16:52:33 #47249

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gepesz13 #47248 üzenetére

  Kijelölöd a nagybetűs oszlopot, másolod (Ctrl+c), marad a kijelölés, jobb klikk, irányított beillesztés, értéket.
  Ezután törölheted a kisbetűs oszlopot, mert a képletek (hivatkozások) értékekké alakultak.

• #47232 Delila_1 veterán gepesz13 #47231

  Új Válasz 2021-08-16 08:51:06 #47232

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gepesz13 #47231 üzenetére

  Egy üres oszlopba: =NAGYBETŰS(D1)

  Ennyi. Ezt az Excel súgójában is megtalálod.

• #47224 Delila_1 veterán andreas49 #47223

  Új Válasz 2021-08-14 13:23:45 #47224

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47223 üzenetére

  Szívesen. Örülök, hogy elnyerte a tetszésedet.

• #47222 Delila_1 veterán andreas49 #47212

  Új Válasz 2021-08-14 12:34:51 #47222

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47212 üzenetére

  =HA(INDIREKT("'"&A1&"'!$Y$162")>INDIREKT("'"&A1&"'!$Y$163");INDIREKT("'"&A1&"'!$S$162");INDIREKT("'"&A1&"'!$S$163"))

  A1-ben van a lap neve, azt folytathatod lefelé.
  Az volt a bibi, hogy a lapnevet aposztrófok közé kell tenni. '2021'! plusz cellacím.
  A képletnél úgy látszik, mintha az idézőjelek és aposztrófok között szóköz lenne, de nincs.

  Csatolok egy képet.
  

• #47199 Delila_1 veterán z123456789 #47197

  Új Válasz 2021-08-11 06:15:02 #47199

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz z123456789 #47197 üzenetére

  Az egyesítések nélkül már tudsz másolni.

• #47190 Delila_1 veterán Sweetraver #47189

  Új Válasz 2021-08-09 16:50:41 #47190

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sweetraver #47189 üzenetére

  Sub dupla()
    Dim lapszam As Integer
    lapszam = Sheets.Count
    Sheets.Add.Name = "Munka" & lapszam + 1
    Range("A1").Formula = "=Munka" & lapszam & "!A1"
    Range("B1").Formula = "=Munka" & lapszam & "!B1"
End Sub

  Ez a kis makró új lapot szúr be. Az eddigi utolsó lapnév számát növeli 1-gyel (Munka1 után Munka2, azután Munka3 lesz az új lapnév), majd beírja a képleteket.

• #47188 Delila_1 veterán z123456789 #47187

  Új Válasz 2021-08-05 13:44:04 #47188

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz z123456789 #47187 üzenetére

  Ha egy mód van rá, kerüld a cellák egyesítését. Megszünteted az egyesítést, majd kijelölöd a 2 cellát, cellaformázás, az Igazítás fülön a vízszintes elrendezés legyen A kijelölés közepére. Ezt mindegyik párosnál ismételd meg.

• #47173 Delila_1 veterán andreas49 #47172

  Új Válasz 2021-07-27 18:35:19 #47173

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47172 üzenetére

  Másik módszer, hogy a szomszédos oszlop első, nevet tartalmazó sorába beírod a nevet, felcserélve a vezeték-, és keresztnevet. A villámkitöltés azonnal kicseréli az összes nevet ebben az új oszlopban, és már jöhet is a rendezés.

• #47137 Delila_1 veterán teptep #47134

  Új Válasz 2021-07-20 14:55:15 #47137

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz teptep #47134 üzenetére

  Nincs más hátra, engedd be a macskát!

• #47131 Delila_1 veterán teptep #47128

  Új Válasz 2021-07-19 15:15:11 #47131

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz teptep #47128 üzenetére

  Tettem fel egy fájlt, nézd meg, hátha tetszik. Az egyes gombokra kattintva az aktív cella háttere felveszi a gomb színét.
  [link]

• #47126 Delila_1 veterán teptep #47120

  Új Válasz 2021-07-19 09:23:20 #47126

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz teptep #47120 üzenetére

  Nem írtad, melyik verziót használod.
  Régiekben (pl. 2003-as) legördíted a színválasztót, és a képen megjelölt résznél fogva lehúzod az adataid közé.
  

• #47125 Delila_1 veterán MostaPista #47121

  Új Válasz 2021-07-19 09:09:49 #47125

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #47121 üzenetére

  Írtam hozzá egy makrót.
  Két lap kell a füzetedben. Legyen Eredeti a lap neve, ahol az eredeti táblád van, és legyen egy új lap Konvertált névvel.

  Sub Konverzio()
    Dim usor As Long, sor As Long, idoIn As String, idoOut
    
    Sheets("Konvertált").Select
    Cells = ""
    Sheets("Eredeti").Range("A:J").Copy Sheets("Konvertált").Cells(1)
    Columns("A:A").Delete
    
     
    Range("A2:I2").Cut Destination:=Range("J1")
    Range("E1") = "Tim In 1"
    Range("F1") = "Tim In 2"
    Range("N1") = "Tim Out 1"
    Range("O1") = "Tim Out 2"
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = usor To 3 Step -2
        Range("A" & sor & ":I" & sor).Cut Destination:=Range("J" & sor - 1)
        Cells(sor, 1) = Cells(sor, 1) & ""
        idoIn = Cells(sor - 1, 5): idoOut = Cells(sor - 1, 14)
        Cells(sor - 1, "E") = Left(idoIn, InStr(idoIn, " ") - 1)
        Cells(sor - 1, "F") = Mid(idoIn, InStr(idoIn, " ") + 1, Len(idoIn))
        Cells(sor - 1, "N") = Left(idoOut, InStr(idoOut, " ") - 1)
        Cells(sor - 1, "O") = Mid(idoOut, InStr(idoOut, " ") + 1, Len(idoOut))
            
        Rows(sor).Delete Shift:=xlUp
    Next
    Rows(2).Delete Shift:=xlUp
    Range("B:B,D:D,G:H,K:K,M:M,Q:Q").Delete Shift:=xlToLeft
    Columns("A:K").EntireColumn.AutoFit
End Sub

• #47073 Delila_1 veterán Pakliman #47072

  Új Válasz 2021-07-02 14:10:37 #47073

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Pakliman #47072 üzenetére

  A lenti sor 1 lépésben megoldja az engedélyezést és a tiltást a makró elején.

  ActiveSheet.Protect Password:="JujjDeTitkosJelszó", UserInterfaceOnly:=True

  Ez a sor csak makróból enged a zárolt cellákba írni.

• #47067 Delila_1 veterán szricsi_0917 #47066

  Új Válasz 2021-07-01 16:25:33 #47067

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz szricsi_0917 #47066 üzenetére

  Annyit még egyszerűsíthetsz rajta, hogy beteszel egy For-Next ciklust 1-tól 4-ig, és egy Select Case utasításban adod meg a változó lapneveket, az oszlop ciklusok kezdetét és végét, miegyebeket.

• #47055 Delila_1 veterán norbika84 #47054

  Új Válasz 2021-06-30 15:11:15 #47055

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz norbika84 #47054 üzenetére

  Speciális szűrést írtam, ami nem azonos az autoszűréssel.

• #47053 Delila_1 veterán norbika84 #47052

  Új Válasz 2021-06-30 14:50:36 #47053

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz norbika84 #47052 üzenetére

  Mostanában több szó esett a speciális szűrésről, ami a barátod lesz. Keress rá ezekre.

• #47046 Delila_1 veterán andreas49 #47044

  Új Válasz 2021-06-29 10:39:24 #47046

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47044 üzenetére

  Azt nem tudom, de a képletet kicsit módosítva a 3 tagból álló nevek is megjelennek a kigyűjtésben.

  =HAHIBA(FKERES("*"&KÖZÉP(D2;3;HOSSZ(D2)-3)&"*";A:A;1;0);"")

• #47045 Delila_1 veterán szricsi_0917 #47039

  Új Válasz 2021-06-29 10:18:24 #47045

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz szricsi_0917 #47039 üzenetére

  A másik fórumon, ahol feldobtad ugyanezt a kérdést, megadtam a választ: speciális szűrés.

• #47043 Delila_1 veterán andreas49 #47042

  Új Válasz 2021-06-29 06:23:03 #47043

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47042 üzenetére

  Szívesen.

• #47041 Delila_1 veterán andreas49 #47040

  Új Válasz 2021-06-28 17:45:00 #47041

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz andreas49 #47040 üzenetére

  Az F2 cella képlete legyen
  =HAHIBA(FKERES("*"&KÖZÉP(D2;3;20);A:A;1;0);"Nem szerepel az A oszlopban")
  Azokat a neveket nem találja meg, amikben idegen karakterek szerepelnek, ezért tettem be a HAHIBA függvényt.

• #47034 Delila_1 veterán EroSennin79 #47033

  Új Válasz 2021-06-27 19:01:51 #47034

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz EroSennin79 #47033 üzenetére

  =IFERROR(=Statistic!W41/Statistic!Z41,"")
  A magyar HAHIBA függvény angol megfelelője.

• #47029 Delila_1 veterán user112 #47028

  Új Válasz 2021-06-25 06:42:32 #47029

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz user112 #47028 üzenetére

  A DARABTELI függvényt javaslom.

• #47011 Delila_1 veterán MostaPista #47010

  Új Válasz 2021-06-19 05:55:08 #47011

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #47010 üzenetére

  Sajnos...

• #47006 Delila_1 veterán Nixon18 #47004

  Új Válasz 2021-06-18 05:28:20 #47006

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Nixon18 #47004 üzenetére

  [link]
  A szűrőtartomány >=4 legyen.

• #47001 Delila_1 veterán Fferi50 #47000

  Új Válasz 2021-06-17 18:36:34 #47001

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #47000 üzenetére

  

• #46998 Delila_1 veterán zsolti_20 #46997

  Új Válasz 2021-06-17 13:38:35 #46998

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz zsolti_20 #46997 üzenetére

  A1-től másoltam a lehetséges értékeket, lefelé. A makró a B oszlopba írja az eredményeket.
  Szöveg formátumú legyen a B oszlop.
  Sub Atalakitas()
    Dim sor As Integer, usor As Integer, b As Integer, szoveg As String
    Dim valtozo As String, split0 As String, split1 As String, eredmeny As String
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = 1 To usor
        split0 = "": split1 = "": valtozo = ""
        szoveg = Cells(sor, 1)
        For b = 1 To Len(szoveg)
            If Mid(szoveg, b, 1) = "." Or Mid(szoveg, b, 1) = "," Then
              szoveg = Left(szoveg, b - 1) & " " & Mid(szoveg, b + 1)
            End If
        Next
        
        For b = Len(szoveg) To 1 Step -1
            If Mid(szoveg, b, 1) = " " Then
              valtozo = "." & Mid(szoveg, b + 1) & ""
                szoveg = Left(szoveg, b - 1)
                Exit For
            End If
        Next
        
        On Error Resume Next
        split0 = Left(szoveg, InStr(szoveg, " ") - 1)
      split1 = Mid(szoveg, InStr(szoveg, " ") + 1)
        eredmeny = split0 & split1 & valtozo
        Cells(sor, 2) = eredmeny
    Next
End Sub

• #46981 Delila_1 veterán DVDHooligan #46973

  Új Válasz 2021-06-14 13:05:58 #46981

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz DVDHooligan #46973 üzenetére

  "A dolgozó teljesítményét egy adott napon több sor írja le"
  Az egyes dolgozók minden sorában szerepeljen a dolgozó neve, akkor a kimutatás dolgozónként összegez.

• #46961 Delila_1 veterán Fferi50 #46960

  Új Válasz 2021-06-13 16:02:29 #46961

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #46960 üzenetére

  Lusta vagyok visszalapozni, de úgy rémlik, hogy 365-öse van.

• #46958 Delila_1 veterán Fferi50 #46955

  Új Válasz 2021-06-13 13:49:51 #46958

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #46955 üzenetére

  =hahiba(fkeres(...);"")
  

• #46945 Delila_1 veterán S.J. #46943

  Új Válasz 2021-06-12 05:46:12 #46945

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz S.J. #46943 üzenetére

  Pár kattintással kimutatást hozol létre. Sorokhoz az Address, értékekhez a Total kerül.

• #46938 Delila_1 veterán lappy #46937

  Új Válasz 2021-06-11 10:24:57 #46938

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lappy #46937 üzenetére

  Valószínűleg azért nem tudom követni a példádat, mert nem látszanak a sor-, és oszlopazonosítók a képen.

• #46936 Delila_1 veterán lappy #46935

  Új Válasz 2021-06-11 09:05:51 #46936

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lappy #46935 üzenetére

  Szerintem
  

• #46932 Delila_1 veterán csferke #46930

  Új Válasz 2021-06-11 07:27:00 #46932

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz csferke #46930 üzenetére

  Az A5 cellába tettem a kereső függvényt.
  

  A feltételes formázás képlete a Munka1 lap I5 cellájában =NEM(HIBÁS(A5)), ezt kell angolul megadnod.

• #46928 Delila_1 veterán Apollo17hu #46923

  Új Válasz 2021-06-10 17:49:24 #46928

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Apollo17hu #46923 üzenetére

  FFeri ötlete után a tengely, majd a feliratok formázása.
  
  Ekkor az értékeket is milliós nagyságrendben hozza. Ott megadhatod a tizedes jegyek számát, de a szöveges részt nem fogadja el.
  

• #46927 Delila_1 veterán MostaPista #46921

  Új Válasz 2021-06-10 17:29:29 #46927

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #46921 üzenetére

  Próbáltam úgy megadni a kritérium tartományt, hogy a 3 meg nem jelenítendő oszlophoz <>"" értéket adtam (nem üres string), de úgy nem jött össze, minden sort betett a szűrésbe. Ezért összefűztem a 3 oszlop adatait. Mivel szöveg lesz ebben az új oszlopban, így már meg tudtam adni, hogy a tartalom nagyobb, mint "a".

• #46913 Delila_1 veterán MostaPista #46912

  Új Válasz 2021-06-09 16:24:08 #46913

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #46912 üzenetére

  A Munka2 lap első sorába bemásolod a megjelenítendő oszlopok címét (datum, megnevezes, leiras). Legjobb, ha másolod az első lapról, hogy biztosan egyformák legyenek a címek.
  Vegyél fel a táblázatod mellé egy új oszlopot, legyen a címe összefűzés. Ennek a képlete
  =c2&d2&e2
  Az új oszlop címét másold a Munka2 lapra, 1-2 oszloppal jobbra az előző címektől. A cím alá írd be: >"a"
  Jelöld ki az A1: C2 tartományt, irányított szűrő menüpont. Ijesztget, de adj okét.
  Add meg a tartományokat, ahogy az előző hozzászólásomban láttad.

• #46911 Delila_1 veterán PistiSan #46904

  Új Válasz 2021-06-09 14:41:28 #46911

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz PistiSan #46904 üzenetére

  Nézz el ide!
  Nálad a LE helyett a FEL nyilat kell megnyomnod, mivel a fent lévő szöveget akarod bevinni az alatta lévő üres cellákba. Ne maradjon ki az értékek beillesztése, másképp egy rendezésnél bekavarnak a hivatkozások.

• #46901 Delila_1 veterán [w] #46895

  Új Válasz 2021-06-09 05:49:55 #46901

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46895 üzenetére

  Nem őrizgetem a fájlokat, amikben segítséget adok. Arra gondolok, hogy megadom a választ, és kész. Ahányszor új kérésed van, újra létre kell hoznom a szükséges adatokat.
  Valóban elnéztem a cserélendő részt, de még mindig nem világos, mit akarsz. Az a bizonyos "cég/sorszám/más" azonos az egyes fájlokban, vagy nem, a más mindig más, vagy mindenhol azonos? Ez nagyon nem mindegy.

• #46900 Delila_1 veterán MostaPista #46899

  Új Válasz 2021-06-09 05:32:07 #46900

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz MostaPista #46899 üzenetére

  Irányított szűrővel meg lehet oldani. Mivel az eredeti tábla és a szűrt állomány nem azonos lapon van, a szűrés lapja lesz a kiindulás.
  Beírod a megjelenítendő oszlopok címsorát, valamint a szűrendő oszlop címét, alatta a feltételt (x).
  Adatok menü, Rendezés és szűrés, Irányított. A kép szerint beállítod a szűrést.

  

• #46894 Delila_1 veterán [w] #46893

  Új Válasz 2021-06-08 20:38:12 #46894

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46893 üzenetére

  Már kértelek, hogy pontosan írd le, mit szeretnél. Először ezt írtad:
  valami/izé -ből az "izé"-t kicserélni "hogyishíjják"-ra
  ami sima szövegcsere, aztán kiderült, hogy egy sorszámot kell kicserélni egy 3 tagú szövegben, és ez növekedjen fájlonként.
  Az előző makróba megjegyzésként beírtam, mire jó a kétféle útvonal. Ha nálad minden az elsőként megadott mappában van, akkor a másodikat elhagyhatod.

  Most csak a változó részt másolom ide.

  Bővül a helyfoglalás.
  Dim utvonal As String, sor As Long, usor As Long, sorszam As Integer
Dim kezd As Integer, veg As Integer
sorszam=1

  és a With–End With rész
  With Sheets(1)
    .Range("B25") = .Range("B25") & " " & "Készítő neve"
    kezd = InStr(.Range("K25"), "/") + 1
    veg = InStr(kezd, .Range("K25"), "/")
    .Range("K25").Replace What:=Mid(.Range("K25"), kezd, veg - kezd), Replacement:=sorszam, LookAt:=xlPart, SearchOrder:=xlByRows
    sorszam = sorszam + 1
    .Range("C25") = Date
    .Range("D25") = .Range("D25") & " " & "Józsi"
End With
  

• #46892 Delila_1 veterán [w] #46891

  Új Válasz 2021-06-08 11:37:11 #46892

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46891 üzenetére

  Igen, hozzáfűzés.

• #46890 Delila_1 veterán [w] #46886

  Új Válasz 2021-06-08 11:28:09 #46890

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46886 üzenetére

  A makrót tedd egy üres füzetbe. Írd át az utvonal változó értékét két helyen értelem szerűen, és a txt fájl nevét.
  Indításkor megnyitja a txt fájlt, ahol az A oszlopban (A1-től kezdve) szerepelnek az módosítandó fájlok nevei, kiterjesztéssel.
  Egy ciklusban egyenként megnyitja a 900 fájlt, végrehajtja a módosításokat, és a cserét, amit most csak a B oszlopra írtam meg.

  Sub xx()
    Dim utvonal As String, sor As Long, usor As Long
    utvonal = "C:\Dokumentumok\___TEMP\"  'A címeket tartalmazó txt fájl útvonala
    
    Workbooks.OpenText Filename:=utvonal & "megnyitando.txt"    'Cseréld ki a txt nevét
    usor = Range("A" & Rows.Count).End(xlUp).Row
    
    utvonal = "C:\Dokumentumok\___TEMP\Fájlok\" 'A módosítandó fájlok útvonala
    For sor = 1 To usor
        Workbooks.Open Filename:=utvonal & Cells(sor, 1)
        With Sheets("Ellenőrzendő")
            .Range("B25") = .Range("B25") & " " & "Készítő neve"
            
            'Cserék a B oszlopban
            Columns(2).Replace What:="izé", Replacement:="hogyishíjják", LookAt:= _
                xlPart, SearchOrder:=xlByRows
            .Range("C25") = Date
            .Range("D25") = .Range("D25") & " " & "Józsi"
        End With
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next
End Sub

• #46884 Delila_1 veterán [w] #46883

  Új Válasz 2021-06-08 08:13:06 #46884

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46883 üzenetére

  Szívesen.
  Az első kérdésedben (#46866) írtál kódról, de nem másoltad be. Úgy nézett ki, mintha egy cellában lévő függvényről lenne szó.
  Pontosan leírt kérdésre már lehet válaszolni.

• #46881 Delila_1 veterán HREH #46880

  Új Válasz 2021-06-08 06:34:43 #46881

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz HREH #46880 üzenetére

  =IFERROR(SEARCH("nincs",költségek[@Típus2])=0,"TRUE")

• #46873 Delila_1 veterán [w] #46872

  Új Válasz 2021-06-07 18:20:36 #46873

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46872 üzenetére

  Látod, ez már rendesebb. Először nem derült ki, miről van szó.
  Sub xx()
  Dim sMappa  As String, s As String, wb As Workbook
  
  sMappa = "C:\Dokumentumok\___TEMP\"
  s = Dir(sMappa & "*.xls*")
  Do While s <> ""
    Set wb = Workbooks.Open(sMappa & s)
    With wb.Sheets("Ellenőrzendő")
        .Range("B25") = "Készítő neve"
        .Range("C25") = Date
        .Range("D25") = "Józsi"
    End With
    wb.Save
    wb.Close False
    s = Dir
  Loop
End Sub

• #46871 Delila_1 veterán [w] #46866

  Új Válasz 2021-06-07 13:42:29 #46871

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz [w] #46866 üzenetére

  
  Persze lehet, hogy egészen másra gondolsz. Abban az esetben rendesen írd meg, mit is szeretnél.

• #46870 Delila_1 veterán pigsty #46863

  Új Válasz 2021-06-07 13:33:58 #46870

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz pigsty #46863 üzenetére

  Sub Ertek_beillesztese()
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

  Bemásolod a makrót a personalba. Alt+F8-ra megjelennek a makrók. Kiválasztod az Ertek_beillesztese címűt, az Egyebeknél hozzá rendeled a hívógombot.
  Ráállsz a másolandó cellá(k)ra, Ctrl+c-vel másolod, a másolandó helyre állsz, és megadod a bill. kombinációt.

• #46857 Delila_1 veterán makoss #46855

  Új Válasz 2021-06-05 08:49:27 #46857

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz makoss #46855 üzenetére

  Valószínű, hogy üres sor került a táblába, az lehet a hiba. Csak folyamatos adatoknál működik, ha jól emlékszem, 5 kitöltött sor után.
  

• #46852 Delila_1 veterán Lokids #46849

  Új Válasz 2021-06-04 15:14:15 #46852

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lokids #46849 üzenetére

  Sub mmm()
    Dim sor As Long, lapnev As String
    
    sor = 10: lapnev = "Munka2"
    Range("A1") = "=" & lapnev & "!F" & sor
End Sub

• #46847 Delila_1 veterán WildBoarTeam #46845

  Új Válasz 2021-06-03 16:45:24 #46847

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz WildBoarTeam #46845 üzenetére

  A B8 cella értéke 1, a B9-é (amit másolj majd B11-ig) =HA(D9=D8;B8;B8+1).

• #46844 Delila_1 veterán makoss #46842

  Új Válasz 2021-06-03 14:55:51 #46844

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz makoss #46842 üzenetére

  Beállítások | Speciális | Cellaértékek automatikus kiegészítése.

• #46843 Delila_1 veterán WildBoarTeam #46841

  Új Válasz 2021-06-03 14:52:58 #46843

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz WildBoarTeam #46841 üzenetére

  

  A SOR()-7 azért szerepel, mert a képlet a 8. sorban van.

• #46835 Delila_1 veterán Anonymus23 #46834

  Új Válasz 2021-06-02 16:44:31 #46835

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Anonymus23 #46834 üzenetére

  Hurrá!

• #46833 Delila_1 veterán Anonymus23 #46832

  Új Válasz 2021-06-02 14:09:35 #46833

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Anonymus23 #46832 üzenetére

  Nézd meg a SZUMHATÖBB függvényt is, hátha...

• #46831 Delila_1 veterán Fferi50 #46830

  Új Válasz 2021-06-02 11:50:03 #46831

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #46830 üzenetére

  Így igaz.

• #46828 Delila_1 veterán Fferi50 #46827

  Új Válasz 2021-06-02 08:42:08 #46828

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #46827 üzenetére

  Figyelmetlen vagyok, nem vettem észre a db-ot.

• #46826 Delila_1 veterán Anonymus23 #46825

  Új Válasz 2021-06-02 08:02:23 #46826

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Anonymus23 #46825 üzenetére

  A SZUMHA függvényt nézd meg.

• #46821 Delila_1 veterán zsolti_20 #46819

  Új Válasz 2021-06-01 06:37:32 #46821

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz zsolti_20 #46819 üzenetére

  Rengeteg találatot kapsz, ha beírod a keresőbe: pdf to xlsx. Próbáld ki, valamelyik bejön, online is.

• #46816 Delila_1 veterán Cold5 #46814

  Új Válasz 2021-05-31 10:01:50 #46816

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Cold5 #46814 üzenetére

  A makróst nem próbálod ki?

• #46808 Delila_1 veterán Cold5 #46805

  Új Válasz 2021-05-30 06:40:07 #46808

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Cold5 #46805 üzenetére

  Csakis makróval oldható meg, mert önmagára hivatkozó képletet nem adhatsz meg egy cellában.
  Alt+F11-gyel belépsz a VB szerkesztőbe. Bal oldalon duplaklikkel kiválasztod a füzeted nevét, azon belül a ThisWorkbook lapot. A jobb oldalon kapott nagy üres felületre bemásolod a makrót.
  A Sheets(1) helyére Sheets("Lapod neve") kerül, így, idézőjelek között. A Range("A1") részeknél az A1 helyére a módosítandó cellád címét add meg.
  Bezárod a VB szerkesztőt, a füzetet makróbarátként kell mentened.

• #46803 Delila_1 veterán Cold5 #46802

  Új Válasz 2021-05-29 06:47:53 #46803

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Cold5 #46802 üzenetére

  Makróval megoldható.
  A ThisWorkbook laphoz kell rendelned. A Sheets1 helyére a saját lapodat írd, az A1 helyére pedig a módosítandó celládét.

  Private Sub Workbook_Open()
    If Day(Date) = 25 Then Sheets(1).Range("A1") = Sheets(1).Range("A1") + 2000
End Sub

• #46800 Delila_1 veterán föccer #46799

  Új Válasz 2021-05-28 19:56:31 #46800

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #46799 üzenetére

  Ezeknél a feltételre kell hivatkoznod a összeszámolásnál. Darabhatöbb, szumhatöbb.

• #46750 Delila_1 veterán rovgab #46749

  Új Válasz 2021-05-22 18:24:47 #46750

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz rovgab #46749 üzenetére

  Szívesen.

• #46746 Delila_1 veterán rovgab #46745

  Új Válasz 2021-05-22 06:51:00 #46746

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz rovgab #46745 üzenetére

  Az F2 képlete legyen

  =INDEX($A$1:$E$16;HOL.VAN(MIN(INDIREKT("B"&HOL.VAN(A2;A:A;0)&":B"&HOL.VAN(A2;A:A;1)));B:B;0);5)

• #46741 Delila_1 veterán thedivision2 #46738

  Új Válasz 2021-05-21 12:57:19 #46741

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz thedivision2 #46738 üzenetére

  Remélem, nem zavar, hogy cikkszámok helyett neveket vittem be.

  

• #46723 Delila_1 veterán lappy #46720

  Új Válasz 2021-05-20 14:10:00 #46723

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lappy #46720 üzenetére

  Szia!

  Jó lenne, ha tabulátorokat használnál. Így ömlesztve nehéz megtalálni, hogy ki kivel van (If, End If).
  A fő hiba, hogy először megadod, hogy ha a Target.Column nagyobb 1-nél, akkor lépjen ki. Ezután lép(ne) oda, hogy ha az oszlop=3, akkor csinálja ezt, vagy azt.
  Több helyen a feltételnek csak Else ága van. Ilyenkor érdemes a feltétel megfordítása.

  If oldVal = "" Then
Else
 If newVal = "" Then
 Else
   On Error Resume Next
   Ar = Split(oldVal, ", ")
   strVal = ""

  helyett
  If oldVal <> "" Then
 On Error ....

• #46707 Delila_1 veterán Dilikutya #46704

  Új Válasz 2021-05-17 13:59:13 #46707

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Dilikutya #46704 üzenetére

  Makró nélkül úgy oldhatod meg, hogy csak azoknál a celláknál oldod fel a zárolást, ahova írhat a felhasználó, a képleteket tartalmazó cellák maradjanak zároltak.
  Levéded a lapot, nem engeded a zárolt cellák kijelölését.

• #46703 Delila_1 veterán Dilikutya #46701

  Új Válasz 2021-05-17 12:52:35 #46703

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Dilikutya #46701 üzenetére

  Ezt a cellaformátumot kell megadnod a képleteket tartalmazó cellákban: ;;;

• #46674 Delila_1 veterán Peterhappy #46672

  Új Válasz 2021-05-13 06:43:34 #46674

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Peterhappy #46672 üzenetére

  12 szeletelő 1 lapon elég sok. Meg lehet oldani, hogy 2, vagy 3 lapon szerepeljenek a kiinduló táblázat adatai, az egyes lapokon 6, vagy 4 szeletelőn lehet választani.
  Azt egy kis makróval meg lehet oldani, hogy az eredeti lap változásait kövesse a másik 1-2 lap táblázata. Az egyes lapokon diagram is lehet.
  Ha ez megfelel a főnöködnek, délután megírom a makrót (ha addig valaki meg nem teszi itt).

• #46671 Delila_1 veterán Peterhappy #46669

  Új Válasz 2021-05-12 16:50:38 #46671

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Peterhappy #46669 üzenetére

  Irányított szűrés az eredmény lapról indítva

• #46670 Delila_1 veterán Peterhappy #46669

  Új Válasz 2021-05-12 16:34:56 #46670

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Peterhappy #46669 üzenetére

  Lehet irányított szűrést készíteni, csak arról a lapról kell kiindulnod, ahol a szűrt adatokat akarod látni.

• #46667 Delila_1 veterán Peterhappy #46666

  Új Válasz 2021-05-12 16:17:04 #46667

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Peterhappy #46666 üzenetére

  Érdemes ide kattintanod, ezzel egyszerűen és mutatósan tudsz szűrni.

• #46626 Delila_1 veterán the radish #46623

  Új Válasz 2021-05-09 06:40:56 #46626

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz the radish #46623 üzenetére

  Adj feltételes formázást az M2: P... tartományra.
  A formázás képlete: =DARABTELI($A:$A;$M2)=0
  Mikor látod a megadott formátumot, indíthatod a másolós makrót.

• #46625 Delila_1 veterán rovgab #46624

  Új Válasz 2021-05-09 06:32:29 #46625

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz rovgab #46624 üzenetére

  Szia!

  Erre való a SZUMHATÖBB függvény.
  A D2 képlete legyen =SZUMHATÖBB($C$2:$C$100;$A$2:$A$100;A2;$B$2:$B$100;B2)
  A tartományoknál a 100 helyére adj meg kellően nagy értéket.

• #46622 Delila_1 veterán the radish #46621

  Új Válasz 2021-05-08 17:06:19 #46622

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz the radish #46621 üzenetére

  Szívesen.

Új hozzászólás Aktív témák