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

• #53886 Delila_1 veterán tomi_x #53880

  Új Válasz 2025-01-20 14:42:09 #53886

  Ú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 tomi_x #53880 üzenetére

  Az Fferi által leírtakon kívül találkoztam olyan fájllal, ahova a felhasználó régebben csatolt egy halom képet, majd az ezeket tartalmazó oszlopokat törölte. Csodák csodája, hogy a képek megmaradtak, de nem látszottak, mert a szélességük 0 pont értékű lett.

  Itt is a jó öreg F5-ös ugrás menü segített. Irányított, objektumok. Ez az összeset kijelölte, a Delete billentyű pedig mindet egyszerre törölte. A fájl mérete kicsire zsugorodott, a műveletek villámgyorsak lettek.

• #53883 Fferi50 Topikgazda tomi_x #53880

  Új Válasz 2025-01-20 13:39:20 #53883

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #53880 üzenetére

  Szia!
  A sok számításon kívül előfordulhat a következő is:
  1.A képleteid jelentős része egész oszlop /ritkábban de előfordulhat sor) hivatkozást (Pl.A:A) tartalmaz, ami beírásnál kényelmes, de számításnál igencsak időigényes (milliós nagyságú a sorok száma az új verziókban).
  Erre megoldás a teljes oszlop helyett egy várhatóan előforduló legnagyobb terület használata (pl. A1:A50000) a képletekben.
  2.Problémát szokott még okozni - és a méret erre is utalhat - ha olyan területek vannak, amelyek ugyan nem használatosak de valamilyen korábbi cselekmény miatt benne vannak a munkalapokban. Pl. egy formázást vagy bármi mást tartalmaz, valamerre a munkalapon.
  Erre úgy derithetsz fényt, ha az F5 funkcióbillentyű párbeszéd panelján az irányított gombot benyomva utána kiválasztod az utolsó cella opciót. Ha nem az érvényes adataid végére ugrik, akkor az így már felesleges sorokat/oszlopokat törölve csökken a fájl mérete és nagy eséllyel gyorsul is a számítás.
  3.Adatbevitelkor (kivéve, ha rögtön szeretnél számítási eredményt látni) érdemes kikapcsoni az automatikus számolást - Képletek - számolási beállításoknál megtalálod, majd amikor végeztél visszakapcsolni.
  Üdv.

• #53882 föccer nagyúr tomi_x #53881

  Új Válasz 2025-01-20 12:59:13 #53882

  Ú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

  

  föccer

  nagyúr

  válasz tomi_x #53881 üzenetére

  Jó eséllyel rengeteg számítás, tömbképlet, és implicit képlet van benne (indirekt, index pl). Ezek baromira meg tudják nyújtani a számítás menetét.

  Én az ilyen problémákat úgy szoktam kezelni, hogy felmakrózom az elemzési feladatokat (pörgetem a paramétereket, az eredményeket kimentem egy temp munkalapra). Elindítom este és reggelre szépen megcsinál mindent.

  Ha nagyon összetett és nagyon nagy számú számítást kell végezni, azzal nem lehet nagyon mit csinálni. Vagy optimalizálod a műveletek számát, vagy erősebb vasat kérsz a főnöktől.

  Én így kaptam egyedülégént a hazai cégcsoportban 64 bites office-t. Mindenki csak 32 biteset kap.

• #53881 tomi_x tag tomi_x #53880

  Új Válasz 2025-01-20 12:47:39 #53881

  Ú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

  

  tomi_x

  tag

  válasz tomi_x #53880 üzenetére

  A kép valamiért nem ment át.
  

• #53294 Fferi50 Topikgazda tomi_x #53293

  Új Válasz 2024-09-27 23:35:15 #53294

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #53293 üzenetére

  Szia!
  Ezek szerint nem volt 2 munkalap a munkafüzetben!
  Üdv.

• #53291 Fferi50 Topikgazda tomi_x #53289

  Új Válasz 2024-09-27 08:30:12 #53291

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #53289 üzenetére

  Szia!
  Ezt a hibát melyik sornál kapod?
  Mert ez azt jelenti, hogy a hivatkozott objektumod nem találja - rossz nevet adtál meg vagy nincs is olyan nevű objektum.
  Activesheet elvileg minden megnyitott munkafüzetben van. Cella pl. nincs a grafikonokat(diagram) tartalmazó munkalapon.
  Ezért lenne érdekes, melyik sorra panaszkodik.
  Üdv.

• #53290 Fire/SOUL/CD félisten tomi_x #53289

  Új Válasz 2024-09-27 08:20:46 #53290

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tomi_x #53289 üzenetére

  Ugyanazon a soron?
  Akkor másképp próbálj meg rá hivatkozni, pl

      Worksheets("Munka2").Cells(13, 3).Value = megrendelo
    Worksheets(2).Cells(13, 3).Value = megrendelo
    ActiveWorkbook.Worksheets(2).Cells(13, 3).Value = megrendelo


  Sajnos a makródat teljes egészében nem tudjuk debuggolni, csak kiherélve.
  Ha a fenti lehetőségek sem hoznak eredményt, akkor sajnos passzolom.

• #53288 Fire/SOUL/CD félisten tomi_x #53287

  Új Válasz 2024-09-26 21:36:46 #53288

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tomi_x #53287 üzenetére

  Az ActiveWorkbook-nak nincs Cells tulajdonsága, csak az ActiveSheet-nek.
  Ezt a hibát kell kapnod.

  pl. erre nem fogsz hibát kapni
  ActiveSheet.Cells(13, 3).Value = megrendelo

• #53286 Fferi50 Topikgazda tomi_x #53284

  Új Válasz 2024-09-25 16:49:19 #53286

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #53284 üzenetére

  Szia!
  Megmutatnád a teljes makrót?
  Üdv.

• #53283 Fire/SOUL/CD félisten tomi_x #53281

  Új Válasz 2024-09-25 14:09:56 #53283

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tomi_x #53281 üzenetére

  Továbbá a tábla teljes útvonalát tedd macskakörmök közé.
  bekernev = "c:\Users\tomi\OneDrive - valami\valami SharePoint mappa\Árajánlatok\teszt projekt\Árajánlat\teszt táblázat.xlsm"

• #53282 Fferi50 Topikgazda tomi_x #53281

  Új Válasz 2024-09-25 14:04:59 #53282

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #53281 üzenetére

  Szia!
  Próbáld meg kiterjesztés nélkül a fájl nevét. A hibaüzenet erre utalhat.
  Olyan legyen, mint amikor megnyitod az ablak fejlécében.
  Sajnos ebben nem következetes az Excel.

  Üdv.

• #53272 Fire/SOUL/CD félisten tomi_x #53270

  Új Válasz 2024-09-23 21:42:43 #53272

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tomi_x #53270 üzenetére

  Első ránézésre a mappanev deklarálásánál hiányzik egy macskaköröm a hálózati cím elejéről

  mappanev = "\\tomi.sharepoint.com\Shared%20Documents\teszt%20mappa\" & Cells(10, 11).Value

• #52352 Lujza1979 újonc tomi_x #52330

  Új Válasz 2024-03-21 18:39:27 #52352

  Ú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

  

  Lujza1979

  újonc

  válasz tomi_x #52330 üzenetére

  Szia!
  Milyen Office-od van? A 365 érvényesítés funkciója tudja ezt. Üdv.

• #52334 Delila_1 veterán tomi_x #52332

  Új Válasz 2024-03-15 21:42:58 #52334

  Ú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 tomi_x #52332 üzenetére

  Feltöltöttem ide egy régi fájlt, benne van a megoldás,

• #52333 Fferi50 Topikgazda tomi_x #52332

  Új Válasz 2024-03-15 18:12:08 #52333

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #52332 üzenetére

  Szia!
  Akkor néz utána a többszintes adatérvényesítésnek, szerintem itt is van rá megoldás.
  (első betű után szűkül az adatérvényesítési lista - talán ez elég is lehet, de a második után is lehet még szűkíteni.) Olyan pl. hogy fő lista zöldség, gyümölcs stb. alábontás paprika, paradicsom, sárgarépa stb ill. alma, narancs, körte stb.
  Üdv.

• #52331 Fferi50 Topikgazda tomi_x #52330

  Új Válasz 2024-03-15 15:28:29 #52331

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #52330 üzenetére

  Szia!
  Kell hozzá egy makró, ami a kiválasztás után a megfelelő helyre beírja a kiválasztott nevet.
  Mert egyébként a Beviteli lista csak egy adott helyre (Linked cell) teszi bele a kiválasztott értéket. Innen kell átírni a szükséges helyre eseménykezelővel.
  Üdv.

• #50213 lappy őstag tomi_x #50210

  Új Válasz 2023-01-06 06:54:28 #50213

  Ú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

  

  lappy

  őstag

  válasz tomi_x #50210 üzenetére

  Elvileg működik - olvass utána

• #50209 lappy őstag tomi_x #50208

  Új Válasz 2023-01-05 21:34:10 #50209

  Ú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

  

  lappy

  őstag

  válasz tomi_x #50208 üzenetére

  Függvény nem makroval lehet
  function main(workbook: ExcelScript.Workbook) {
  let sheet = workbook.getActiveWorksheet();
  sheet.getRange("A1").setValue(workbook.getName());
  sheet.getRange("A2").setValue(sheet.getName());
  }

• #50205 Gyufaaa veterán tomi_x #50202

  Új Válasz 2023-01-05 19:22:00 #50205

  Ú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

  

  Gyufaaa

  veterán

  válasz tomi_x #50202 üzenetére

  Szerintem csak a makrót nem támogatja.

• #48377 sztanozs veterán tomi_x #48375

  Új Válasz 2022-01-31 10:03:27 #48377

  Ú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

  

  sztanozs

  veterán

  válasz tomi_x #48375 üzenetére

  Érintett cellák kijelölése > Data Ribbon > Data Validation > Input Message tab > Clear All

• #48376 lappy őstag tomi_x #48375

  Új Válasz 2022-01-31 10:03:26 #48376

  Ú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

  

  lappy

  őstag

  válasz tomi_x #48375 üzenetére

  jobb gomb jegyzet törlése

• #46658 Fferi50 Topikgazda tomi_x #46657

  Új Válasz 2021-05-11 22:59:37 #46658

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #46657 üzenetére

  Szia!
  Ahogyan a hiba leírás is mutatja, amennyiben nem talál ilyen tartalmú cellát, akkor az "a'" változó értéke Nothing - azaz üres. Egy nem létező objektumnak pedig értéke sincs.
  Mielőtt további műveleteket végeznél, meg kell vizsgálnod, hogy van-e találat:
  'Set a= sor után
If a Is Nothing then
Msgbox "nincs"
Else
Msgbox "van"
End If
  Üdv.

• #46525 lappy őstag tomi_x #46524

  Új Válasz 2021-04-23 21:02:59 #46525

  Ú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

  

  lappy

  őstag

  válasz tomi_x #46524 üzenetére

  Nem lehet
  May olyat tudnál hogy feltételes formázásban egy képlet eredménye esetén fehér lesz minden, de ettől még írhat bele viszont nem fogja látni

• #46154 Delila_1 veterán tomi_x #46153

  Új Válasz 2021-02-23 07:03:20 #46154

  Ú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 tomi_x #46153 üzenetére

  Szívesen.
  Már csak azt nem értem, miért kell ehhez makró.
  

• #46143 Delila_1 veterán tomi_x #46141

  Új Válasz 2021-02-22 14:17:15 #46143

  Ú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 tomi_x #46141 üzenetére

  Próbáld ezzel:

  Sub Formazas()
    Dim sor As Long, usor As Long
    usor = Range("A" & Rows.Count).End(xlUp).Row
    
    For sor = 2 To usor
        If Cells(sor, 1) = Cells(sor + 1, 1) Then
            With Range(Cells(sor, 1), Cells(sor, 15)).Font
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = 0
            End With
            Range(Cells(sor, 1), Cells(sor, 15)).Borders(xlEdgeBottom).LineStyle = xlNone
        Else
            With Range(Cells(sor, 1), Cells(sor, 15)).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Range(Cells(sor, 1), Cells(sor, 15)).Font.ColorIndex = xlAutomatic
        End If
    Next
End Sub

• #46142 Lasersailing senior tag tomi_x #46141

  Új Válasz 2021-02-22 11:31:37 #46142

  Ú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

  

  Lasersailing

  senior tag

  válasz tomi_x #46141 üzenetére

  Szia,

  Ha a VBA-ban a makrót F8-al indítod el, akkor lépésenként látod, hogy mit csinál (Nem kell "Várj" típusú ellenőrzésekkel vesződni. Ha nagyon hosszú a makró futása, akkor a megfelelő sorra állva F9-el be tudod jelőlni, hogy ott álljon meg a makró futtatása. (piros lesz a kijelőlt sor. (ugyanezt elérheted az ablak bal szélén lévő sávra kattintva is).
  (sárgával jelőli, hogy hol tart).

  Arra figyelj, hogy ha lépésenkénti futás közben pl. a kijelőlést megváltoztatod, akkor ő a változtatás hatásával megy tovább. Futás közben is lehet korlátozásokkal változtatni a makrót, sőt a sárga "csíkot" egérrel át lehet húzni máshova is. (ha pl. rájösz, hogy valami nem jó, akkor átírod, majd újra tudod lépésenként futtatni).

  Szerk:
  Az alábbi sor egyenlőségjele után kimaradt a ".value". Nem biztos, hogy ez a gond, de én beírnám:
  If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1).value Then

• #46134 Fferi50 Topikgazda tomi_x #46132

  Új Válasz 2021-02-21 23:03:36 #46134

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #46132 üzenetére

  Szia!
  Kipróbálhatnád ezekkel a sorokkal:
  With Workbooks(celfilenev).Sheets(munkalapneve) .Range(.Cells(utolso_sorx,1),.Cells(utolso_sorx,utolso_oszlop)).Value=Worksheets("Számla lista").Range(a &":" & B).Value
End With
utolso_sorx=utolso_sorx+1
End If
  Üdv.

• #46131 Fferi50 Topikgazda tomi_x #46129

  Új Válasz 2021-02-21 22:29:48 #46131

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #46129 üzenetére

  Szia!
  Bocsáss meg, mit jelent az, hogy nem működik?
  Egyébként másolni direkt cimzéssel is lehet, nem kell "ugrálni" a munkafüzetek között.
  Üdv.

• #46128 Fferi50 Topikgazda tomi_x #46124

  Új Válasz 2021-02-21 22:16:36 #46128

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #46124 üzenetére

  Szia!
  A ciklus elé kell a képernyőfrissítés letiltása és utána a képernyő frissítés.
  Te pedig a ciklusba tetted bele.
  Üdv.

• #46123 Delila_1 veterán tomi_x #46122

  Új Válasz 2021-02-21 19:34:43 #46123

  Ú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 tomi_x #46122 üzenetére

  A makró elején letiltod a képernyő frissítését.

  Application.ScreenUpdating = False

  a végén pedig visszaállítod
  Application.ScreenUpdating = True

• #45918 Fferi50 Topikgazda tomi_x #45916

  Új Válasz 2021-02-01 14:34:17 #45918

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #45916 üzenetére

  Szia!
  Én csinálnék neki fejléceket az első sorba, ezután pedig kimutatást.
  A kimutatásban sorcímke a nevek (A oszlop), oszlopcímke a tevékenység(D oszlop), az értékek pedig az órák (B oszlop) összesítve.
  A tevékenységek közül pedig összevonnám amiket együtt szeretnék látni második oszlopcímkének.
  Üdv.

• #45917 Delila_1 veterán tomi_x #45916

  Új Válasz 2021-02-01 14:20:36 #45917

  Ú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 tomi_x #45916 üzenetére

  A SZUMHATÖBB függvény a barátod.
  Az I9 képlete
  =SZUMHATÖBB(B:B;A:A;H9;C:C;$H$5)+SZUMHATÖBB(B:B;C:C;$H$4;A:A;H9)
  ennek alapján már meg tudod adni a J9 képletét.

• #45244 Delila_1 veterán tomi_x #45243

  Új Válasz 2020-11-05 16:17:15 #45244

  Ú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 tomi_x #45243 üzenetére

  Kevés megjegyzés esetén rákattintasz a megjegyzésre, majd a Delete gombbal kitörlöd.

  Sok megjegyzésnél érdemes egy rövid makró futtatni.

  Sub OhneMegj()
Dim sz As Object
For Each sz In ActiveSheet.Comments
sz.Shape.Select True
Selection.Delete
Next
End Sub

  Látod, a makró kijelöli, majd kitörli egyenként a megjegyzéseket. Ha elhagyjuk a kijelölést, valamiért a cella jobb felső sarkában megmarad a kis piros háromszög, és nem is enged új megjegyzést beszúrni oda.

  Szerk.: Lehet, hogy a képen látható, megjegyzés kinézetű szöveg nem megjegyzés, hanem egy érvényesítéshez csatolt útmutató.

• #44934 DeFranco nagyúr tomi_x #44933

  Új Válasz 2020-09-24 11:14:18 #44934

  Ú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

  

  DeFranco

  nagyúr

  válasz tomi_x #44933 üzenetére

  körlevélnek hívják ezt a funkciót, simán megoldható, a word dokumentum levelezés fülén keresd az opciót

• #44395 Fferi50 Topikgazda tomi_x #44392

  Új Válasz 2020-06-29 15:22:43 #44395

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #44392 üzenetére

  Szia!
  Az idézőjeleket meg kell duplázni a képleten belül:
  Sheets("Összesítés").Range("M2").Formula = "=MID(CELL(""filename"",$A$1),1,(SEARCH(""["",CELL(""filename"",$A$1)))-1)"
  Egyébként ha makró(részletet) v. képletet írsz, használd a "</>" kapcsolót (hátulról a harmadik).
  Üdv.

• #44394 bela85 aktív tag tomi_x #44392

  Új Válasz 2020-06-29 15:20:27 #44394

  Ú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

  

  bela85

  aktív tag

  válasz tomi_x #44392 üzenetére

  Nem teljesen azt másoltad be amit Fire/Soul/CD írt neked.. pontos vessző helyett sima vessző szerintem és a SEARCH helyett FIND.

• #44393 Delila_1 veterán tomi_x #44392

  Új Válasz 2020-06-29 15:19:40 #44393

  Ú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 tomi_x #44392 üzenetére

  Egy cellába akarod beíratni az aktív fájl útvonalát.

  Sheets("Összesítés").Range("M2") = ActiveWorkbook.Path

• #44391 Fire/SOUL/CD félisten tomi_x #44390

  Új Válasz 2020-06-29 15:02:52 #44391

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tomi_x #44390 üzenetére

  Mert a VBA-ban az Angol függvénynevek és szintaktika érvényes.
  pl: [kép] | [kép]

  Esetedben MID, CELL, FIND függvények és ezek paraméterei vesszővel elválasztva.

  Sheets("Összesítés").Range("M2").Formula = "=MID(CELL("filenév",$A$1),1,(FIND("[",CELL("filenév",$A$1)))-1)"

• #44238 Fferi50 Topikgazda tomi_x #44236

  Új Válasz 2020-06-10 16:59:47 #44238

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #44236 üzenetére

  Szia!
  Ha ezeket csinálod, akkor mindenki nézegetheti a fájlt, mert az értékeket látja. Megnyitáskor nem fogja nekik frissíteni. A védelmet csak 1x kell megcsinálni. Ha egyben kijelölöd a munkalapot, akkor minden cellát egyszerre tudsz levédeni.
  Üdv.

• #44225 Fferi50 Topikgazda tomi_x #44224

  Új Válasz 2020-06-08 23:11:25 #44225

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #44224 üzenetére

  Szia!
  1. A megnyitáskori frissítést le kell tiltanod.
  2. Az összes cellát kijelölöd - cellaformázás - védelem - zárolt és rejtett kockát bejelölöd
  3. A munkalapot levéded (mert a cellavédelem csak így érvényesül).
  Üdv.

• #44147 Mutt senior tag tomi_x #44143

  Új Válasz 2020-05-27 23:00:25 #44147

  Ú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

  

  Mutt

  senior tag

  válasz tomi_x #44143 üzenetére

  Szia,

  Ha tényleg az kell hogy az ismétlődések maradjanak, és csak az utolsó előfordulásnál írja ki a szorzatösszeget, akkor ez a képlet:

  =HA(DARABTELI(A$2:A2;A2)=DARABTELI(A$2:A$14;A2);SZORZATÖSSZEG(--(A$2:A$14=A2);B$2:B$14;C$2:C$14);"")

  

  üdv

• #44146 Pakliman tag tomi_x #44145

  Új Válasz 2020-05-27 21:38:12 #44146

  Ú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

  

  Pakliman

  tag

  válasz tomi_x #44145 üzenetére

  Az A oszlop tartalmazza az "azonosítót", az E oszlopba kell rakni a képletet.
  A képen a D oszlop tartalmazza az értéket, amit összesíteni akarsz.
  Ha a tényleges táblázatban ez a bizonyos D (vagyis az érték) nem szerepel, akkor hozd létre, mint segédoszlop és a képletben arra az oszlopra hivatkozz.

• #44144 Pakliman tag tomi_x #44143

  Új Válasz 2020-05-27 21:24:56 #44144

  Ú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

  

  Pakliman

  tag

  válasz tomi_x #44143 üzenetére

  Szia!

  Csupán a képlet végén a B:B-t kell átírnod D:D-re.

• #44142 Pakliman tag tomi_x #44141

  Új Válasz 2020-05-27 20:32:59 #44142

  Ú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

  

  Pakliman

  tag

  válasz tomi_x #44141 üzenetére

  Szia!

  Egy lehetőség:
  
  =HA(DARABTELI(A:A;A1)=DARABTELI($A$1:A1;A1);SZUMHA(A:A;A1;B:B);"")

• #44092 Fferi50 Topikgazda tomi_x #44091

  Új Válasz 2020-05-20 17:28:22 #44092

  Ú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

  

  Fferi50

  Topikgazda

  válasz tomi_x #44091 üzenetére

  Szia!
  "amint egy cellába valaki beír adatot az zárolt legyen'"
  Aztán, ha javítani szeretne az adaton, mert elírta, akkor mi lesz?
  Ezt egyébként csak makróval lehet megcsinálni és védetté kell tenni a munkalapot hozzá.
  Azt írtad, közösen használjátok. Ez mit jelent? Közös használatúvá van téve a munkafüzet vagy egyszerre csak egy user használhatja egy időben, de többen is beleírhatnak?
  Egyébként nézd meg a munkalap védelmet. Ott lehet tartományokat rendelni userekhez, amiket csak meghatározott felhasználók módosíthatnak. Nem elég ez neked?
  Üdv.

• #44089 Véreshurka senior tag tomi_x #44087

  Új Válasz 2020-05-20 14:38:38 #44089

  Ú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

  

  Véreshurka

  senior tag

  válasz tomi_x #44087 üzenetére

  Saját parasztos megoldásom (biztos van elegánsabb is):

  Ha kijelölöd a cellákat amiket védeni szeretnél, akkor jobb klikk --> cellaformázás --> védelem --> zárolt, majd véleményezés menüpont és ott a lapvédelemmel tudod jelszóval védeni.

  (#44088) Fferi50: alapvetően amikor létrehoztam a makrót már Sub - End Sub közé illesztettem mert már ott volt. De nagyon nem értem még a makrózást, csak a makrórögzítést szoktam használni... Lényeg, hogy megy. Sokszor elfelejtem képletek elől a HAHIBA-t és csak a végén jut az eszembe, ezután már nem lesz gond Köszi még egyszer!

• #43940 lappy őstag tomi_x #43939

  Új Válasz 2020-05-12 21:21:56 #43940

  Ú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

  

  lappy

  őstag

  válasz tomi_x #43939 üzenetére

  Szia
  A képletet rosszul használtad és nem is igazán arra való amit írtál. Egy ha függvény is megteszi.
  Ha(b2='kp bevétel';c2;"")
  Ha összegezni akarod ezeket akkor lehet használni a szumha függvényt

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