Hirdetés
-
PROHARDVER!
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
-
Fferi50
Topikgazda
-
bozsozso
őstag
válasz
Fferi50
#46048
üzenetére
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.
-
#46046
Weareus
addikt
Lasersailing
#46045
Weareus
addikt
válasz
Lasersailing
#46045
üzenetére
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.
-
#46043
Weareus
addikt
Lasersailing
#46042
Weareus
addikt
válasz
Lasersailing
#46042
üzenetére
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.
-
#46041
Weareus
addikt
Lasersailing
#46040
Weareus
addikt
válasz
Lasersailing
#46040
üzenetére
Ú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...? -
-szabi-
addikt
válasz
-szabi-
#46011
üzenetére
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 -
Weareus
addikt
Ü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?
-
Delila_1
veterán
válasz
marec1122
#46017
üzenetére
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 -
marec1122
senior tag
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
-
-szabi-
addikt
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 -
Memphis
tag
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 Subelőre is köszi
-
Delila_1
veterán
válasz
Weareus
#45999
üzenetére
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 FunctionA 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.
), utána Delila_1 által adottal hibátlanuil ment.
Új hozzászólás Aktív témák
Hirdetés
- Xiaomi 14T - nem baj, hogy nem Pro
- Óvodások homokozója
- Luck Dragon: Asszociációs játék. :)
- Kerékpárosok, bringások ide!
- Samsung Galaxy A56 - megbízható középszerűség
- Genshin Impact (PC, PS4, Android, iOS)
- Milyen okostelefont vegyek?
- METAL GEAR SOLID Δ: SNAKE EATER - A teljes nyitányt újraforgatták
- Renault, Dacia topik
- Horgász topik
- További aktív témák...
- Játékkulcsok a legjobb áron: Steam
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! ASRock B550M R5 5600 16GB DDR4 512GB SSD RX 6600 XT 8GB Kolink Observatory LM RGB 600W
- Samsung Galaxy A32 4G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Amazon Kindle 10th Generation ébresztős tok
- BESZÁMÍTÁS! Gigabyte H610M i5 12600 32GB DDR4 512GB SSD RX 6700XT 12GB CM CMP 510 Corsair 650W
- Xiaomi 11T 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest