Hirdetés
- bkercso: Tápszűrő-5 SMPS-hez
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Sapphi: StremHU | Source – Self-hostolható Stremio addon magyar trackerekhez
- Luck Dragon: MárkaLánc
- sziku69: Szólánc.
- Hieronymus: Az igaz barátság kezdete
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- MasterDeeJay: Intel Optane M10: mire lehet használni?
-
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
-
MaciLaci68
csendes tag
válasz
sztanozs
#15230
üzenetére
Köszi a próbálkozást. Nem jöttem rá eddig mikor tesz körmöt és mikor nem. Hossztól függ vagy szóköztől, vagy kutyafülétől nem tudom. De mindegy is mert nekem csak olyan jó hosszú szöveg kellene.
A fájl manipulációs megoldásod gondolom nem Exceles ugye?
Hát akkor ennyi. Marad a jó öreg CtrlC+ CtrlV. -
MaciLaci68
csendes tag
válasz
sztanozs
#15220
üzenetére
Köszi. De ez egy PRN fájlt készít. Nekem TXT kellene.
Érdekes hogy ha a PRN fájlt átnevezem TXT-re, akkor megnézhető és eltűnnek az idézőjelek, de a sorokat kettétördeli valszeg azért mert a prn csak 240 karakterig tud cellából olvasni, az én szövegem pedig 400 felett van. -
MaciLaci68
csendes tag
Szervusztok,
A1, A2, A3-ban a következő szöveg van:000000005353973716M 18,362 18,362 AJ. 1000 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1000 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1000 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1000 TQA901 0,6 000000005353120102 53PC-2420
000000005353973717M 22,029 22,029 AJ. 1200 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1200 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1200 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1200 TQA901 0,6 000000005353120102 53PC-2420
000000005353973718M 25,695 25,695 AJ. 1400 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1400 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1400 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1400 TQA901 0,6 000000005353120102 53PC-2420Ha Mentés másként-el manuálisan menten el akkor OK.
Ha viszont az alábbi makróval, akkor elejére és végére tesz idézőjelet ( " )Sub TXT_készítés()
ActiveWorkbook.SaveAs _
Filename:="D:\Dokumentumok\" & "mérvanidézőjel", _
FileFormat:=xlText
End SubLehet erre megoldás vagy nyugodjak bele? Eddig manuálisan vágólapról másoltam be a txt-be, de szeretném kényelmesebbé tenni. A továbbiakban a txt-t egy SAP program eszi meg, amit sajnos nem lehet megváltoztatni, hogy az idézőjeleket ne venné figyelembe.
-
MaciLaci68
csendes tag
válasz
Delila_1
#11514
üzenetére
Soha nem jöttem volna rá. Köszi.
Azért kellett mert van egy képletekkel teli táblám és galád módon ha kedvem van néhány képlet helyére értéket írok kézzel, hogy azzal számoljon tovább (nyugi, az eredeti képletet aztán vissza tudom írni makróval ha kell). Amit átírok azt viszont eltárolom, eddig a cellacímet pl A!$B$31 így tároltam. Azonban ha ezt a cellát jó kedvemben kivágom és arrébb illesztem be, akkor a a letárolt cím már nem OK. Ha viszont nevet tárolok, akkor az mindig OK lesz, mert cellaáthelyezésnél a név megy a cellával. -
MaciLaci68
csendes tag
válasz
Delila_1
#11508
üzenetére
Igen látom a szememmel, de programban akarom kezelni. Köszi a megoldást ami hasonlít az enyémhez.
Az "bosszant", hogy az aktív cellának nagyon sok tulajdonságát egyszerűen meg lehet tudni (pl: címe, szélessége, értéke, védett-e, sor és oszlopazonosító stb..), de nem tudom egyszerű módszerrel a nevét kiszedni. -
MaciLaci68
csendes tag
válasz
Mythunderboy
#11502
üzenetére
-
MaciLaci68
csendes tag
válasz
MaciLaci68
#11506
üzenetére
Ezek a fejek bekavartak.
A B oszlopnál a a feljhelyett kettőspontB
Tapsolósok helyett kettőspontC
VÉGEREDMÉNY-nél szándékosan raktam fejet.Hogy lehet ezeket kikapcsolni?
-
MaciLaci68
csendes tag
válasz
Mythunderboy
#11502
üzenetére
Szia,
Makró nélkül is megy. Egy munkalapon mutatom.C oszlop: fejléc: EREDETI ADATOK: itt vannak az adataid egymás alatt C2-től lefelé
B oszlop:fejléc: SORSZÁMOZÁS: B2-be: =HA(A2<>"";MAX($B$1
1)+1;"") és ezt húzd le
A oszlop: fejléc: EZEK KELLENEK: A2-be =HA(HIBÁS(FKERES(C2;$C$1
1;1;HAMIS));C2;"") és húzd le
E oszlop: VÉGSŐ ADATOK SORSZÁMA: E2-vel kezdődően 1,2,3...... sorszámot lefelé a végtelenig
F oszlop fejléc: VÉGEREDMÉNY
: F2-be: =FKERES(E2;B
;2;HAMIS) és lehúzni -
MaciLaci68
csendes tag
Szervusztok,
Az alábbi makró szerepe hogy ha az aktív cellának van neve, akkor azt A1 cellába beírja.
Kicsit bonyolult lett, az összes nevet átnézi a program és ha az aktív cella címe egyezik valamelyik név címével akkor megvan a tettes.
Szóval nekem csak az aktív cella neve kellene egy egyszerűbb módszerrel. Kínomban találtam ki ezt a bonyolultat.Sub NEVEKRE_hivatkozás()
aktívcella = ActiveCell.Address
Lap = ActiveSheet.Name
aktívcellacím = "=" & Lap & "!" & aktívcella
névszám = ActiveWorkbook.Names.Count
For i = 1 To névszám
On Error Resume Next
nevekcímei = ActiveWorkbook.Names(i).RefersToLocal
If nevekcímei = aktívcellacím Then
név = ActiveWorkbook.Names(i).Name
Range("A1") = név
Else
End If
Next
End Sub
Új hozzászólás Aktív témák
- Házimozi haladó szinten
- Robot fűnyírók
- Mesterséges intelligencia topik
- Iqos cigaretta
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Villanyszerelés
- bkercso: Tápszűrő-5 SMPS-hez
- Fejhallgatós találkozó
- Xiaomi 15T Pro - a téma nincs lezárva
- Szívós, szép és kitartó az új OnePlus óra
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- HP. Laptop. i5. Model: 15-da1002nq
- Microsoft és egyéb dobozos retro szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Apple iPhone 14 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 87%
- 27% - ASUS ZenDrive U9M optikai meghajtó DVD RW Ezüst
- 27% - GIGABYTE RX 7800 XT GAMING OC 16G Videokártya
- ASUS ROG Strix SCAR 16 / Ultra 9 275HX / RTX5090 / 32GB / 2TB NVMe! BeszámítOK
- AKCIÓ! Intel Core i9 10850K 10 mag 20 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Soha nem jöttem volna rá. Köszi.
1)+1;"") és ezt húzd le
1;1;HAMIS));C2;"") és húzd le
: F2-be: =FKERES(E2;B
Fferi50