-
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
-
Delila_1
veterán
válasz
PowerBuldog
#41279
üzenetére
Talán képletekkel is meg lehet oldani, de nekem egyszerűbbnek tűnik makróval.
Gondolom, az A1:C1 tartományon kívül a többi sorban is vannak adataid, ezért úgy írtam meg a modulba másolandó makrót, hogy menjen végig a sorokon, és a D oszlopba írja annak a cellának a szövegét, amelyikben először találja meg a "Póló" kifejezést. Ha pl. A5-ben és C5-ben is szerepel a szó, az A5 tartalma lesz a D5-ben.
Sub Hol_A_Polo()
Dim oszlop As Integer, sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 1 To usor
For oszlop = 1 To 3
If InStr(Cells(sor, oszlop), "Póló") > 0 Then
Cells(sor, 4) = Cells(sor, oszlop)
Exit For
End If
Next
Next
End Sub -
Fferi50
Topikgazda
válasz
PowerBuldog
#31287
üzenetére
Szia!
Attól függően, hogy az SKU oszlop hol szerepel a német munkalapon, használható
-az FKERES függvény, ha az első oszlop az SKU vagy az áthozandó adatok az SKU oszloptól hátrább vannak,
- az INDEX és HOL.VAN függvény páros, ebben az esetben az SKU oszloptól előrébb is lehet az adat.Üdv.
-
Nowitzki
csendes tag
válasz
PowerBuldog
#31169
üzenetére
Vagy ha a részleteket is ki akarod íratni akkor:
Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2 'pizzák sorszámai
Cells(sor, "C") = Cells(pizza1, "A") & "+" & Cells(pizza2, "A") ' pizzák árai
Cells(sor, "D") = Cells(pizza1, "A") + Cells(pizza2, "A") 'pizzák összege
Cells(sor, "E") = "=" & Cells(pizza1, "A").Address & "+" & Cells(pizza2, "A").Address 'pizzák összege képlettel
sor = sor + 1
Next pizza2
Next pizza1
End Sub -
Nowitzki
csendes tag
válasz
PowerBuldog
#31167
üzenetére
Ha az "A" oszlopban vannak egymás alatt felsorolva a pizzák árai, akkor működik. Ezért kérdeztem, hogy hol vannak neked megadva az egyes pizzák árai.
-
Nowitzki
csendes tag
válasz
PowerBuldog
#31165
üzenetére
Hol vannak megadva a pizzák árai?
Tegyük fel az "A" oszlopban vannak egymás alatt felsorolva az egyes pizzák árai. Akkor mondjuk ez működhet:Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2
Cells(sor, "C") = Cells(pizza1, "A") + Cells(pizza2, "A")
sor = sor + 1
Next pizza2
Next pizza1
End Sub -
Delila_1
veterán
válasz
PowerBuldog
#10276
üzenetére
Az adataidat kijelölve – vagy csak valahol benne állva – a Beszúrás, Kimutatás menüvel hozhatod létre.
Elküldöm, amit csináltam. -
Delila_1
veterán
válasz
PowerBuldog
#10271
üzenetére
A kimutatást a legördülőiben szűrheted a szobákra, és a helységre is, a diagram a szűrésnek megfelelően alakul.
-
Delila_1
veterán
válasz
PowerBuldog
#10273
üzenetére
Nosza! Bár arról volt szó, hogy én küldök egy fájlt.

-
Delila_1
veterán
válasz
PowerBuldog
#10271
üzenetére
Jó az itt megadott e-mail címed? Küldenék egy fájlt, ami különböző dinamikus diagramokat tartalmaz.
-
Delila_1
veterán
válasz
PowerBuldog
#10269
üzenetére
Jobb oldalon az Értékeknél ráklikkelsz a Összeg/Szobára, a feljövő gyorsmenüben az Értékmező-beállításokat választod, ott adhatod meg, hogy darabszámot jelenítsen meg.
A diagram kinézetét egyszerűen módosíthatod. Kimutatásdiagram-eszközök, Tervezés, Diagramelrendezések. Igaz, hogy olyan aprók az ábrák, hogy nem sok látszik belőlük, de rájuk klikkelve azonnal felveszi a formát a diagram.
-
Delila_1
veterán
válasz
PowerBuldog
#10267
üzenetére
-
PowerBuldog
veterán
válasz
PowerBuldog
#10252
üzenetére
Delila_1
Ezzel kapcsolatban lenne még egy olyan kérdésem, hogy olyan diagramot szeretnék csinálni, amin 1 oszlopon látszik pest és buda. Mindez a szobák számára lebontva. Vagyis, Lenne egy oszlop, amin az 1 szobás lakások látszanak, és mindemellett ez az oszlop 2 színből állna, buda és pest-re bontva.
Ilyet lehet valahogy csinálni? -
Delila_1
veterán
válasz
PowerBuldog
#10252
üzenetére
A feladat2.xlsx Adatbázis lapján az I4 képletét így adnám meg: =SOKSZOR("|";KEREKÍTÉS(F4/G4;0))
és a feltételes formázásnál is valamelyik feltételhez bevinnék egy = jelet, mert a 4 mFt-os négyzetméterenkénti ár így nem szerepel.
=J4<=4Ha az I oszlopot Wingdins karakterre állítod, csinos kis korongok jelzik majd a milliók számát.
A feltételes formázásnál nézd meg az Adatsávokat, Színskálákat, Ikonkészleteket is.
-
Delila_1
veterán
válasz
PowerBuldog
#10252
üzenetére
Új hozzászólás Aktív témák
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- GL.iNet Flint 2 (GL-MT6000) router
- GoodSpeed: Mutasd magad topic!
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Horgász topik
- Trollok komolyan
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Fotók, videók mobillal
- Path of Exile (ARPG)
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Keresünk iPhone 15/15 Plus/15 Pro/15 Pro Max
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600X / GTX 1080Ti 11GB / 16GB DDR4 / 512 Nvme SSD
- HIBÁTLAN iPhone 12 Pro Max 128GB Pacific Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4517, 100% Akksi
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50