Függvény nincs vmi makrot lehet rá irni

Bámulatos hol tart már a tudomány!

Sziasztok!
Van olyan függvény, ami az adott cellából eltávolítja a szó előtt ill. után lévő szóközt/tabulátort stb.?

"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."

Segítség lehet a KIMETSZ, TISZTÍT és a HELYETTE függvény.

Bámulatos hol tart már a tudomány!

Nem tudom, hogy OO-ben mit lehet, de Excelben egy felhasználói függvénnyel meg lehet oldani.
Modulba tedd a makrót.
Function FKover(cella)
For b = 1 To Len(cella)
If cella.Characters(b, 1).Font.FontStyle = "Félkövér" Then
szoveg = szoveg & Mid(cella, b, 1)
End If
Next
If Len(szoveg) > 0 Then FKover = szoveg Else FKover = ""
End Function

A füzetben így adod meg a függvényt: =FKover(A1) – ha a kérdéses cella az A1.
Mikor minden sorra beírtad a függvényt, jelöld ki az oszlopot, másolás, ugyanoda érték beillesztése. Ezután az eredeti oszlopot törölheted.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!
Egy cellában szavak vannak vesszővel elválasztva. Hogyan tudnám a szavakat ábc rendbe rakva átvinni egy másik cellába?

Csak segedoszlopos megoldással lehet.
Szét kell választani a cellákat a, utan
Majd ABC be lehet rendezni utána újra osszefűzni. Egyenlőre ez jut eszembe

Bámulatos hol tart már a tudomány!

A lappy féle szétválasztást a Szövegből oszlopok funkcióval érdemes megcsinálni.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Klassz!
Köszönet.

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Sziasztok,
olyanban kérnék segitséget, hogy excelben irok éppen egy makrót amivel szeretném a következő infókat exportálni outlookból:
from, subject, received date, category, flag completed date
az első 3 működik is, de a category, flag completed date nem akar összejönni.
hol rontottam el? előre szólok sose csináltam ilyet, internetről nézegettem dolgokat illetve logikai úton próbáltam kiegésziteni.
ezt irtam:
Sub getDataFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("impMail")
i = 1
For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("email_Receipt_date").Value Then
Range("email_Subject").Offset(i, 0) = OutlookMail.Subject
Range("email_Subject").Offset(i, 0).Columns.AutoFit
Range("email_Subject").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Date").Offset(i, 0) = OutlookMail.ReceivedTime
Range("email_Date").Offset(i, 0).Columns.AutoFit
Range("email_Date").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Sender").Offset(i, 0) = OutlookMail.SenderName
Range("email_Sender").Offset(i, 0).Columns.AutoFit
Range("email_Sender").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Category").Offset(i, 0) = OutlookMail.Categories
Range("email_Category").Offset(i, 0).Columns.AutoFit
Range("email_Category").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Completed").Offset(i, 0) = OutlookMail.FlagCompletedDate
Range("email_Completed").Offset(i, 0).Columns.AutoFit
Range("email_Completed").Offset(i, 0).VerticalAlignment = x1Top
i = i + 1
End If

Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing



End Sub

előre is köszi

Ha ma nulla CELSIUS fok van és holnap kétszer olyan hideg várható, hány CELSIUS fok lesz holnap? :D (bezártam a kiskaput)

Delila_1 , lappy köszönöm!

Hi

Adatok beolvasása weblapról használatához kellene segítség.
Miképp tudom ezt a "YEAR-END CHARTS HOT 100 SONGS 2020" beolvastatni, hogy az előadó és számcím azonos sorba de másik oszlopba kerüljenek?
Az online konvertetek semmit nem tudnak megcsinálni azt inkább hagyjuk.
Köszi előre is.

üdv
szabi

Sziasztok! Van ötletetek ez miért lehet?
A cella hiába sortöréssel több sorban, akkor sem mutatja a teljes szöveget. A cella magasság pedig Automatikus. Mit tehetnék még?

we all deserve a bit of luck.

Szerintem táblázatként nem megy, de kijelölöd 1-100-ig, majd Ctrl+V.(értékként) Ezután macroval irányított beillesztés (Transzponálás)

[ Szerkesztve ]

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Az előadók alá rakja a címeket nem mellé.

Irányított beillesztés (Ctrl+Alt+V, de van rá ikon) először, majd a transzonálá s

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Nálam a transzponálásra hibát dob:

Ha 1-311 között jelölöm ki az A oszlopot és azt transzponálom akkor meg mindent egy sorba illeszt be.

[ Szerkesztve ]

Sziasztok!

A következő kérdéssel fordulnék hozzátok. Egy állandóan frissülő lista megvalósítása lenne a cél. A oszlopban egész számok vannak, B oszlopban pedig dátumok vagy vannak vagy nincsenek. Kellene egy állandó lista azokról a cellákról ahol van dátum és mellette a hozzá tartozó A oszlop beli számról. Megvalósítható ez? Az lenne az örömteli hogy ha beírok egy dátumot akkor a listában jelenjen meg az új dátum és a hozzá tartozó szám.

előre is köszi

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

A kérdéses laphoz rendeld az eseményvezérelt makrót, ami a B oszlopba íráskor felviszi a K oszlop első üres sorába a beírt dátumot, mellé az L-be pedig az A oszlopban megadott számot. Arra a fevitelt végzőnek kell ügyelnie, hogy a B oszlopban valóban dátumot adjon meg.
Az eddigi dátumokat és a hozzájuk tartozó számokat előre fel kell vinni, mert csak a makró beírása után végzi automatikusan ezt a munkát. B oszlopot másold K-ba, Ismétlődések eltávolítása funkció, majd (INDEX, HOL.VAN) függvénnyel melléjük az A oszlop adatai.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long

If Target.Column = 2 Then
If Application.WorksheetFunction.CountIf(Columns(11), Target) = 0 Then
Application.EnableEvents = False
ide = Range("K" & Rows.Count).End(xlUp).Row + 1
Range("K" & ide) = Target: Range("L" & ide) = Range("A" & Target.Row)
Application.EnableEvents = True
End If
End If
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok! Egy felsorolás bizonyos részét véletlenül táblázattá alakítottam (CTRL+T). Hogyan tudom ezt megszűntetni? A gondom az az, hogy a felsorolás egyes értékeivel szeretnék számolni (hivatkozással), de eredményként csak azt írja ki, hogy "#NÉV?"

[ Szerkesztve ]

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

szia,

köszönöm szépen, de attól tartok ez kicsit meghaldja az excellel kapcsolatos ismereteimet.
Azt megkérdezhetem, hogy ha nem kéne frissülnie akkor megoldható csak képlettel?

Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane

Belekattintasz bárhova a táblázatba, majd a menüszalag tervezés lapjának Átalakítás tartománnyá parancsát választod.
Bal oldalt találod.

Nagyon köszönöm. Jól értem, hogy a "tervezés" nevű menüben kellene ennek lennie? Merthogy nekem ilyen nincs. (Office 365)

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Én 2019-es excelben dolgozom, de nem hiszem, hogy változott volna. Belekattintottál a táblázattá alakított részbe?

o365-BEN 'TÁBLATERVEZŐ'

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Én bizony nem lelem...

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Hol a táblázatod? Arra kellene ráállni, de a képernyőképeden nincsen táblázattá alakított terület.

Szia!
Nem PI() lenne a képletben?

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hopppszika. Nagyon köszönöm a segítséget!

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Szívesen.
Klassz a jelmondatod!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Üdvözlet.
Van egy igen hosszú szólistám, lekikonok címszavai. Egy copy only bold fügvénnyel sikerült kimásolni a meghatározások mellől, de sajna valamiért berakott a fügvény egy vesszőt minden szó végéhez:

reagál,
reagén,
reagens,
reakció,
reakcionárius,
reakciós,
reaktív,
reaktivál,
reaktivitás,
reaktor,
reál1,
reál2,
reál-,
reáliák,
reális,
reáliskola,

stb. Viszont mivel előfordulnak vesszők egy soron belül akkor is, ha két szó van ott (a szavak között), valahogy úgy kellene megoldani, hogy töröljön minden sorvégi vesszőt, de csak akkor törölje, ha a sor végén valóban van vessző (nem néztem át mind a sokezer listaelemet, de kb. 99,99%-ban vessző van a sorok végén.)
Igazából a sor belsejében lévő vesszőknek egyenlőre maradni kellene és a sor végébe ne töröljön bele, ha ott mégsem vessző van.

Ebben tudna valaki segíteni?

[ Szerkesztve ]

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

=HA(JOBB(A1;1)=",";BAL(A1;HOSSZ(A1)-1);A1)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hi

Erre még mindig keresem a megoldást.
Van most egy elképzelésem ahogy megcsinálnám de a végén utolsó lépésként szűrőt használnák mert 300 sorból csak az a 100 sor kellene ami csak számot tartalmaz, szöveget nem.
Most csak egyesével tudom kiválasztani ami kell ez 100 sornál nem jó.
Kérdésem szűrőben hogy lehet néhány kattintással a szükséges 100 sort kiválasztani?

üdv
szabi

A mellette lévő oszlopba 1-2 cellánál írd be csak a számot, majd villámkitöltést alkalmazz.
Erre már szűrhetsz.

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Jól néz ki. Ha hazaértem, be is próbálom. Ezer hála.

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Ohh... Működött. Köszi.

Szívesen, -szabi-nak is.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Nálam nem működik valami.
Angol nyelvű Excelem van. Lehet, hogy az a baj?

[kép]

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Ezzel kellett volna kezdened.

=IF(RIGHT(A1;1)=",";LEFT(A1;LEN(A1)-1);A1)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sorry.

Egyébként így sem jó valami:
[kép]

Pedig az A cellasorban azok vesszők...

[ Szerkesztve ]

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Szerintem angol nyelvű excelben magyar függvényt próbálsz használni. Írd be amit Delila_1 írt 46038-ban

Úgy sem működik:
[link]
Azt nem vitatom, hogy elrontok valamit, de a függvény angolul van (már) és az Excel is angol.
Elgépelés nincs.
(Remélem).
Esetleg az lehet a baj, hogy az átalakítandó oszlop (ahol a vesszők vannak) már eleve egy függvény eredménye?
De ez csak találgatás...?

[ Szerkesztve ]

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Biztos, hogy a vessző az utolsó karakter a baloldali szövegben? Nincs utána szóköz?
Ha beírod az alábbit, mit ír ki abba a cellába?
=len(a2)

Elnézést kérek mindekitől. Lasersailing kollégának igaza van. Ha belekattintok az eredeti cellába, nem a vessző mögé áll a kurzor, hanem még eggyel tőle jobbra, ott tehát még egy szóköz is van.
Ezt figyelmen kívül hagytam.

Ennek fényében szabad javaslatot kérni?

Kérlek, ne orroljatok rám, totálisan amatőr vagyok ebben.

[ Szerkesztve ]

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Használd a trim függvényt majd a korábban kapottat

Bámulatos hol tart már a tudomány!

Lappy által javasolt trim segítségével:
=IF(RIGHT(TRIM(A1);1)=",";LEFT(TRIM(A1);LEN(TRIM(A1))-1);TRIM(A1))

Köszi mindenkinek.
Megvan!
Notepad++-ban töröltem a sorvégi szóközöket (több is volt ), utána Delila_1 által adottal hibátlanuil ment.
Benéztem kicsit amúgy.

Köszönöm a helpet.

Soul of the mind, key to life's ether. Soul of the lost, withdrawn from its vessel. Let strength be granted, so the world might be mended. So the world might be mended.

Sziasztok,

Lenne 3 táblázat közel azonos adatokkal. Ami közös bennük az a cikkszám. Kimutatással nem tudom valahogy megcsinálni, hogy a cikkszámhoz tartozó árak 1 táblába kerüljenek?

Szia!
Nézd meg ezeket a súgókat:
Kimutatás létrehozása több táblázatból
Több munkalap összesítése egy kimutatásban
Üdv.

Szia,

Power pivot táblával próbálkoztam melyben összekapcsoltam a táblákban lévő cikkszámokat, de ha sorokba húztam be az árakat akkor az első ár alá berakja az összeset független attól, hogy a cikkszámhoz tartozik vagy sem. Más módszer kellene?

Vagy esetleg másképpen kellene az alap táblákat kialakítani?

Cikkszám-cikknév-ár-időszak kezdete-időszak vége oszlopok vannak jelenleg.

Szia!
Én nem power pivot táblában gondolkodtam. De persze sok függ attól, milyenek a tábláid.
Talán feltehetnél fájlban egy 15-20 soros mintát, amit "meggusztálhatnánk".
Elképzelhető, hogy okosabbak lennénk. Mert így látatlanban nehéz konkrétabb tanácsot adni.
Üdv.