-
Fototrend
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
- Xbox One / Xbox Series játékok
- Lenovo ThinkPad X1 Yoga G6 (6th Gen) - i7-1185G7, 32GB, 512GB SSD, multitouch + TOLL
- Iphone 15 Mobiltelefon 128Gb 100% akkumulátorral
- Apple iPad mini 6 (64GB) Wi-Fi + Cellular (5G) - Asztroszürke
- Lenovo ThinkPad T14s Gen 4 Ryzen 5 PRO 7540U 14" FHD+ 32GB 512GB Lenovo gar: 2028.01.07!
Á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