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

• #41947 wwhy veterán Capella #41946

  Új Válasz 2019-10-14 22:01:43 #41947

  Ú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

  

  wwhy

  veterán

  válasz Capella #41946 üzenetére

  Valóban, köszönöm
  Nagyon ráhibáztál: pont azt szeretném és valóban, sokszor van az, hogy egymás alatt több cella lesz üres. Gyakorlatilag hosszú névsorok, sok oszloppal/adattal, amelyekből szükség szerint törölni kell bizonyos sorokat, ezek helye azaz az üres sor viszont meg kell maradjon de a sorszámozásnak ezeket az üres sorokat - törlés után - "át kell ugornia".

• #41837 fricc_ tag Capella #41836

  Új Válasz 2019-09-30 12:25:47 #41837

  Ú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

  

  fricc_

  tag

  válasz Capella #41836 üzenetére

  Minden érték szám formátumú.
  Ezt külön még egyszer be is állítottam.

  Sajnos a központilag kiadott tábla egyesített ilyen és kész, azon nem lehet változtatni.

  Amit nem értek, hogy ha beírom ugyan azt a számot, akkor már figyelembe veszi...

• #41828 Fferi50 Topikgazda Capella #41826

  Új Válasz 2019-09-28 18:47:18 #41828

  Ú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 Capella #41826 üzenetére

  Szia!
  Sajnos a makró az angol nyelvre és így az angol számformátumra van "kihegyezve", ezért a pontot úgy értelmezi három szám után, mint ezres elválasztó, tehát akként fogja értelmezni a cserét, hogy magyar elválasztójelre (szóköz) cseréli le.
  Egy segédoszlop beiktatásával a Substitute (Helyette) képlet használatával és némi kis furfanggal megoldható a dolog:
  Selection.Offset(0, 1).Formula = "=Substitute(A1,""."","","")*1"
  Ez a kijelölt oszlop mellé képlettel átalakítja számmá a cellaértéket.
  Utána
  Selection.Offset(0,1).Value=Selection.Offset(0,1).Value 'beillesztés értékként
  Selection.Value=Selection.Offset(0,1).Value 'az eredeti helyre másoljuk.
  A segédoszlopot ki is törölheted.
  Ezzel a módszerrel oszlopról-oszlopra tudod a számokat átalakítani.
  Természetesen működik konkrét címmel megadott tartományra is.
  Pl Range("A2:A20").Offset(0,1)…. a B2:B20 cellákba másolja a képletet.

  Üdv.
  

• #41729 dm1970 aktív tag Capella #41726

  Új Válasz 2019-09-12 08:18:42 #41729

  Ú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

  

  dm1970

  aktív tag

  válasz Capella #41726 üzenetére

  Szia!

  Kicsit felületesen olvastalak. Közben beugrott, hogy volt excel nem válaszol, s be is zárta magát automatikusan. Majd újraindításkor felajánlott két fájlt egy simát és a versiont. Ez esetben valami ötlet?

• #41724 dm1970 aktív tag Capella #41723

  Új Válasz 2019-09-10 16:24:24 #41724

  Ú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

  

  dm1970

  aktív tag

  válasz Capella #41723 üzenetére

  Ez a része meg volt, az a gond, hogy kb 2000 hivatkozás van. Valahogy nem lehet kiszűrni a rosszakat? Ha végignézek minden hivatkozást egyessével, hogyan veszem ézre, melyikkel van a gond? A legjobb az, hogy a módosításkor nem használtam utalásokat egyik munkafüzetre se. Valami képlet másoláskor keveredhetett bele a hiba.

• #41453 VGYke addikt Capella #41452

  Új Válasz 2019-07-27 20:04:59 #41453

  Ú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

  

  VGYke

  addikt

  válasz Capella #41452 üzenetére

  Ez ok, de nem jutottunk közelebb ahhoz, hogy az üzenet miért van. Illetve 2016-ban vásárolt Office 2016-ban miért nem volt, meg 2019-ben vásárolt Office 2016-al mentve, majd 2016-ban vásárolt Office 2016-al megnyitva és mentve miért van.

• #41451 VGYke addikt Capella #41450

  Új Válasz 2019-07-27 16:15:25 #41451

  Ú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

  

  VGYke

  addikt

  válasz Capella #41450 üzenetére

  Nem, a mentés xlsx-ben van. Igaz, ez a fájl eredetileg xls-ben készült, de egy idő után (kb. 2013-ban) xlsx-ben lett mentve, használva, havonta megnyitva, mentve. És csak azután kezdte el ezeket az üzeneteket dobálni mentésnél:
  
  hogy a laptopon, amin szintén Office Professional Plus 2016 van, csak az idén vásárolva, OneDrive-ban megnyitottam, módosítottam és mentettem. Laptopon nem reklamál a mentésnél, csak a PC-n megnyitva és mentve, ahol 2016-ban vásárolt Office Professional Plus 2016 van...
  Úgy tűnik a két Excel hiába hogy 2016, még sem egyforma
  Mondjuk fogalmam sincs mit takar az XLSB és OpenXML formátum (egyik talán Linux Office )
  Szóval mi lehet az ok és hogyan tudnám megoldani azon túl, hogy kikapcsolom a kompatibitás ellenőrzést?

• #40931 Pakliman tag Capella #40928

  Új Válasz 2019-04-28 13:31:22 #40931

  Ú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 Capella #40928 üzenetére

  
  Én is így kezdtem

• #40923 Pakliman tag Capella #40916

  Új Válasz 2019-04-27 19:37:15 #40923

  Ú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 Capella #40916 üzenetére

  Szia!

  Teljesen fölösleges műveletsort hajtatsz végre.
  Bőven elég ez:
  ActiveCell = Date

• #35510 poffsoft veterán Capella #35509

  Új Válasz 2017-06-18 16:46:22 #35510

  Ú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

  

  poffsoft

  veterán

  válasz Capella #35509 üzenetére

  Az enyém is egyetlen sor.

  Az application.goto miért jobb a selectnél?

• #35506 Fferi50 Topikgazda Capella #35504

  Új Válasz 2017-06-18 13:19:48 #35506

  Ú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 Capella #35504 üzenetére

  Szia!

  Ha J2 cellában egy cím keletkezik a képlet alapján akkor egyszerűen:
  Application.Goto Reference:=Range(Range("J2").Value)
  A Goto aktíválja is az adott cellát.

  Így az összes többi sor teljesen felesleges, elegendő ez az egy.
  Ha pedig az éppen aktuális celládban van a kívánt cím akkor:
  Application.Goto Reference:=Range(Selection.Value)

  Üdv.

• #35505 poffsoft veterán Capella #35504

  Új Válasz 2017-06-18 13:18:36 #35505

  Ú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

  

  poffsoft

  veterán

  válasz Capella #35504 üzenetére

  A J2 tartalma egészen pontosan milyen formátumban tartalmazza az utolsó cella címét? R1C1, vagy A1 vagy más? Ha A1 a formátum:
  Sub GotoLastCell()
'
' GotoLastCell Makró
'
' Billentyűparancs: Ctrl+n
'
' Range("J2").Select
' Selection.Copy
' Application.Goto Reference:="R3135C6"
' ActiveCell.Select
' Application.CutCopyMode = False
Range(Range("J2")).Select

End Sub

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