- Milyen processzort vegyek?
- Az Xbox Series X|S konzolnak három új verziója jön idén
- Milyen TV-t vegyek?
- Samsung QN800D: Neo QLED 8K tévét teszteltünk
- iPad topik
- Amazon Fire TV stick/box
- AMD Navi Radeon™ RX 6xxx sorozat
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kormányok / autós szimulátorok topicja
- Vezeték nélküli fülhallgatók
Hirdetés
-
Két marokkal szórja a Realme a GT 6 infómorzsáit
ma Valóban egy másik Realme átirata érkezhet június 20-án geek power tuninggal.
-
Computex 2024: Íme a Project NeonStorm
ph Alaposan összetömörítette a PCIe 5.0 x4 SSD hűtését szolgáló vizes rendszert az ADATA.
-
Megjelenési dátumot kapott a Conscript
gp Az I. Világháborús horror játék jövő hónapban érkezik.
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
poffsoft
addikt
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[ Szerkesztve ]
-
Fferi50
őstag
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.
-
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?[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
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.
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
dm1970
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.
-
Fferi50
őstag
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.
-
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".[ Szerkesztve ]
ELADÓ <<narancs Honor Magic5 Ultimate>> <<Újszerű, doboz, minden kellék>>
Új hozzászólás Aktív témák
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Kínai, és egyéb olcsó órák topikja
- Xbox Series X|S
- Honor Magic V2 - origami
- Polgári repülőgép-szimulátorok
- Milyen processzort vegyek?
- PlayStation 5
- Az Xbox Series X|S konzolnak három új verziója jön idén
- Autós topik
- Milyen légkondit a lakásba?
- További aktív témák...
- Vírusirtó, Antivirus VPN kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen