Hirdetés
- Send to qBittorrent (with SavePaths): Egy apró Firefox kiegészítő qBittorrenthez
- Ikea PAX gardrób és a pokol logisztikája – egy Ikea-horror igaz története
- -TongFang- Medion Erazer Beast 16 X1 - induló teszt így kora délután..."CB R23"
- Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- A Magyar Néphadsereg emlékére
- Mr Dini: Mindent a StreamSharkról!
- GoodSpeed: Márkaváltás sok-sok év után
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája – egy Ikea-horror igaz története
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
lenkei83
tag
válasz
nesh20
#33074
üzenetére
Szia!
Elnézést, átsiklottam ezen a részen.
Kicsit átírtam a kódot.üdv
P.Sub Masolas()
Dim ws_from As Worksheet
Dim ws_from_lastcolumn As Long
Dim ws_from_range As Range
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Dim ws_to_range As Range
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_from_lastcolumn = ws_from.Cells(2, ws_from.Columns.Count).End(xlToLeft).Column
Set ws_from_range = ws_from.Range("A2:" & Chr(ws_from_lastcolumn + 64) & 2)
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Set ws_to_range = ws_to.Range("B" & ws_to_lastrow & ":" & Chr(ws_from_lastcolumn + 65) & ws_to_lastrow)
ws_to_range.Value = ws_from_range.Value
End Sub -
lenkei83
tag
válasz
nesh20
#33072
üzenetére
Szia!
Valami ilyesmire gondoltál?
Sub Masolas()
Dim ws_from As Worksheet
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
ws_to.Rows(ws_to_lastrow).EntireRow.Value = ws_from.Rows(2).EntireRow.Value
End Sub -
Mutt
senior tag
válasz
nesh20
#19111
üzenetére
Hello,
Olyan szűrőre lenne szükségem egy listához amiben ha elkezdem írni a kezdőbetűt kidobja azt amit én keresek! Megoldható ez valahogy?
A szűrővel vmit meg szeretnél jeleníteni? Egy vagy több találatod lehet?
Igazából csak ActiveX vezérlővel tudod elérni, hogy gépeléskor mutassa a találatokat. Ilyet a Fejlesztőeszközök fülön keresztül tudsz beszúrni, Combobox kell neked, amelynek a ListFillRange részébe kell beírnod a keresendő tartományt.

Ha LinkedCell-be írsz egy cella azonosítót, akkor ott megjelenik a kiválasztott érték, amelynek segítségével ki tudsz íratni más értéket is.
üdv.
-
Mutt
senior tag
válasz
nesh20
#17166
üzenetére
Hello,
Dobd fel a fájl részletét vhova, megnézzük.
Ha tényleg egy prn fájlról van szó, akkor kellhet egy konverter (pl. prn2txt) ami kiveszi belőle a nyomtatónak szánt beállításokat/kódokat és csak a nyomtatandó részt hagyja meg.
Ezek után már be lehet olvasni és tagoltatni a tartalmat.üdv.
-
okay
aktív tag
De akkor nem azt a számot adja vissza amit elözöleg beirtam.
Ezt irnám be: 43.1 ,ebböl lesz jan.43 ,probálnám visszaalakitani ott ahol mondod és erre változtatja: 15707
A 43.1 az semeik menünél nem áll vissza,tehát abba a cellába sehogy nem tudom végeredményben visszairni azt a kezdeti számot. -
-
-
-
-
Hali!
Nos ha jól veszem ki szavaidból, akkor adott egy angol OS + angol Office(ami hibátlanul müködik) ill egy magyar OS + angol Office(amiben meg nem látod a KÓD MEGJELENÍTÉSE menűt?
Ha így van, akkor a hibát okozhatja a nyelvi eltérés. [link]
Ilyennel még nem találkoztam, da hasonlóval igen, amikor angol x64 XP-m volt, erre raktam fel a magyar 2003 Office-t, nekem az Outlokkban a fájlmenü IMPORTÁLÁS-EXPORTÁLÁS menűi váltak elérhetettlenné. Talán próbáld meg az OS területi beállításait angolra állítani vagy (ha lehetséges) a Office csomag nyelvi beállításait magyarra rakni.Esetleg(bár nem írtad hogy 2000, 2003, 2007 verziójú a csomag) próbáld alaphelyzetre állítani az eszköztárat, hátha csak ezért nem látszik...
(2003 excelben ESZKÖZÖK/TESTRESZABÁS/ALAPHELYZET)Remélem segít valamit, amit írtam.
Fire.
-
nesh20
aktív tag
Senki ?
Akkor legalább abban segítsetek hogy a munkahelyi gépemen angol nyelvű a win és az office is excel-t használok majdnem egész nap
Ehhez jó lenne makrókat írni.
Ha beillesztek egy parancs gombot jobb egér gombal rákattintok és a menüben hozzá tudom rendelni a makrókat.
Na most ez itthon nem működik v.miért. Ez miért lehet ?
Nincs ilyen menüpont. Viszont amit a munkahelyemen csinálok azoknál meg előjön ez a funkció az itthoni excelben is.
Új hozzászólás Aktív témák
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Milyen TV-t vegyek?
- Tesla topik
- Black Friday november 29. / Cyber Monday december 2.
- Yettel topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Drasztikusan lassíthatja a játékokat egyes VGA-kon a Windows 11 új frissítése
- Direct One (műholdas és online TV)
- Milyen autót vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Keresem a Barkács Balázs Játékokat
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- HIBÁTLAN iPhone 12 mini 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2036
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- Huawei Quidway S5324TP-SI-AC - 24G, 4SFP, L2, managed switch
- HIBÁTLAN iPhone SE 2020 64GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4001, 100% Akkumulátor
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



Ehhez jó lenne makrókat írni.
Fferi50
