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
- 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
- Robot fűnyírók
- Szívós, szép és kitartó az új OnePlus óra
- Teljes verziós játékok letöltése ingyen
- Forrasztásról mindent az alapoktól!
- Assetto Corsa EVO
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- PC Game Pass előfizetés
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Akció!!! Sosemhasznált! HP OmniBook 5 i5-1334U 16GB 1TB 16" FHD+ Gar.: 1 év
- BESZÁMÍTÁS! Apple Macbook Air 15 2025 M4 24GB RAM 512GB SSD notebook garanciával hibátlan működéssel
- Keresünk Galaxy S23/S23+/S23 Ultra/S23 Fe
- LG SMART 32SR50F-W IPS Monitor! 1920x1080 / 8ms / 60hz
- 27% - NZXT C1200 White 1200W 80 PLUS Gold ATX3.1 Tápegység!
Á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