-
GAMEPOD.hu
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
-
Attas
aktív tag
Sziasztok. Kis segítséget szeretnék kérni excel makró programozáshoz. Van egy cella, nevezzük "A1"-nek. Ebben a cellában egy "Ha" függvénnyel sok adatból kiszámolt érték van. Ezt az értéket szeretném egy makróval kiolvasni és átírni egy másik cellába "B1", de úgy, hogy ha ez a makró lefut és beírta az eredményt a B1-be, utánna, az A1 esetleges adat változása ne legyen kihatással a B1-be beírt értékre, csak ha újra futtatom a makrót.
Remélem érthető voltam. Nagyon hálás lennék a segítségért."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
-
Attas
aktív tag
válasz bugizozi #15028 üzenetére
Közben egy megfogalmazódott.
Egy olyan makrót hogy tudok létrehozni ami lefuttat több makrót? Konkrétabban van úgy 15 db makróm amit egy makró lefuttatásával le szeretnék futtatni. Nevezzük Őket 1, 2 ,3..stb
Köszönöm előre is a helpet."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz bugizozi #15031 üzenetére
Nos még egy ha nem vagytok túl nagyravágyó.
Olyat szeretnék hogy egy makró futtatáskor lekérdez egy cella tartalmat és ha abban mondjuk az szerepel hogy "GEN2" van akkor egy x nevű makró fut le, ha "GEN3" akkor y nevű makró. Minden köszönetem a tied. Megszereztem az "Az excel függvényei A-tól Z-ig, és az "Excel programozása" című könyveket, és bár sok mindenben találtam segítséget, tanár nélkül ezek csak könyvek...:
Köszönöm a segítségetui. ööö még olyankellene, hogy szintén makróban meg lehet azt adni, hogy egy adathalmazt megvizsgál és a leggyakrabban előforduló értéket beleír egy cellába? KB 350 adatról van szó.
Ezt képlettel simán megoldom, de makróba jobb lenne[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz bugizozi #15035 üzenetére
Hibátlan. Beleszerettem a makrókba. Köszönet...
Egy felemrült kérdés.
Ebbe be lehet tenni valami hasonlót?If Range("B1").Value = "GEN2" or "GEN1" or "GEN4" Then
x
ElseIf Range("B1").Value = "GEN3" or "GEN5" Then
y
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz bugizozi #15038 üzenetére
Szia.. Már csak egyetlen kérés. és kész a projekt. Egy olyan MsgBox kellene ami Programozható IGEN és NEM gombokat tartalmaz. Az IGEN egy makrót indítson, a nem pedig csak kilép az MsgBox-ból
Köszönöm előre is.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Fire/SOUL/CD #15041 üzenetére
Nagyon köszönöm a helpet. Így sikerült. Köszönöm még egyszer.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Fire/SOUL/CD #15041 üzenetére
Ööö.. Egy uccsó kérdés? Melyik az az Excel függvény amely képes arra, hogy egy tömbből kikeresse a leggyakrabban előforduló számot? Van kb 1000 számadat, amiből ki kellene keresni a leggyakrabban előfordulót és azt beírni egy cellába. Az nem fontos hogy hányszor.
Van ilyen függvény, Köszönöm leőre is.."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Sziasztok. Az utóbbi napok segítségeit utólag is nagyon köszönöm. Még egy kérdés felmerült bennem. Excel makróban is biztos van goto parancs. Hogy kell ezt alkalmazkodik? Van egy if-else macróm amiben azt szeretném, ha teljesül az if feltétel, akkor ne folytassa az END IFA utánküldés utasítások egy részeg, hanem ugorjon a közepére ahova Én utasítom.Megoldható ez? Köszönöm előre is!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Fire/SOUL/CD #15082 üzenetére
Bocsi a helyesírási hibákért. Csak ez az okostelefon azt hiszi okossabb mint Én és átírja a szavakat, ha nem figyelek :-) Köszönet a linkért. Ha hazaérek rávetem magam.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv. Van egy problémás gondom. Egy munkalap védelemmel van ellátva. Egy nagy része a celláknak az adatbevitelt szolgálja, így a cella tulajdonságnál nincs kipiálva a védelem. De sajna valamiért megjegyzéseket nem tudok ezen cellákhoz fűzni, és nem jövök rá sehogysem az okra.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
A gond az, hogy ez egy többek álltal is használt fájl. Tehát az adatbeviteli cellákat nem védhetem le, csak a képleteket szeretném védeni. De a lapvédelem vakamiért kihat az adatbeviteli cellákra is. Adatokat tudnak beírni, ugyanekkor megjegyzést már nem.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Sziasztok! Kezdek megőrülni. Szivat az Excel. Van egy ilyen makróm.:
If Range("Típus").Value = "06H103023L" Then
Sheets("Elvárt ütemidő adatok").Select
Range("E5").Select
Selection.Copy
Sheets("Ütemidő műveletenként (2)").Select
Range("C33").Select
ActiveSheet.PastePersze van tovább is, de ez akaszt ki. A Value feltételnél, bármit írok be a Típus cellába és a Value után akkor szépen átviszi az adatot. De ha a fenti adatot írom be akkor nem. MIÉRT? Ha csak a 06H103023 írom be akkor jó, vagy ha az L helyett bármilyen betüt használok jó. De ha így 06H103023L akkor istennek sem. Hálás lennék bármilyen tanácsért.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Hát igen... Meglett a baj. Mivel a típus cella alatt a 06H103023L számtalanszor szerepel, beíráskor rögtön felajánlotta az autómatikus kiegészítést, csak épp ott van egy szóköz is a végén. amit nem vettem észre, de a makró igen. Oh...
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv. Egy Gomb (űrlap-vezérlőelem) -nek a színét meg lehet változtatni? A benne lévő felirat színét sikerül módosítanom, de magának a gombnak a színét nem. Köszönöm a választ előre is.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Fire/SOUL/CD #15111 üzenetére
Nagyon köszönöm a válaszod !
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv.
Kis help kellene. Létre hoztam ComboBox -ot. (Az egyes kép) Azt szeretném megoldani, hogy ha a boxban a felhasználó kiválaszt egy adatot, akkor a második képen látható ugyanazon adat melletti cella tartalma (pl. Típus 1.) beleíródjon egy cellába. Előre is köszönöm a helpet!!"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15125 üzenetére
Nagyon öszönöm a válaszod. Vagy roszúl követtem instrukcióidat, (bár a megírt vezérlés működött csak nem az általam várt eredménnyel), vagy csak nem jó fogalmaztam.
A cél az alábbi kép lenne. Nekem a Típus 1, 2, 3..stb adat kell majd a továbbiakban.Köszönöm!!!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15129 üzenetére
Igen a táblázat fix, és csak az adatok tárolására kell. Igazából egész más helyen lesz majd. De a lényeg, hogy nekem elsősorban ne a a képen látható kiválasztott adat, hanem a mellette fixen elhelyezkedő Típus adat kell.
Köszönöm
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15131 üzenetére
Valamiért nekem nem működik. Egyenlőre ebben a képen szereplő próbatáblázatban, az általad írt utasítást használva. Most adatra klikkelve az A2 és A3 cellába semmi sem jelenik meg.
Én rontottam el valamit?
Chrome böngészőt használva másoltam ki az utasítást, ha ez jelent valamit.[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15140 üzenetére
Szia. Még egy kérdés. Az alábbi modulban a vastagon kiemelt D -nek mi szerepe van? Mit jelent?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim nev$
nev$ = Me.ListBox1.List(Me.ListBox1.ListIndex)
Range("Típus") = nev$
Range("CellTip") = Range("D" & Application.WorksheetFunction.Match(nev$, Columns(5), 0))
End Sub"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15144 üzenetére
Nem kell megadni a lap nevét is? Mert "típus" és a "CellTíp" nevü célcellák más munkalapban vannak mint az adatok. Ilyenformán kapok hibaüzenetet. A kiválasztot adatot már beírja ahova kell csaka "Típus 1." beírásakor megy hibára...aszem
Azért X mert az oszlop betűjele is X[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15148 üzenetére
Wááá...kis küzdelem után (na jó nem olyan kicsi, de nélküled meg gyakorlatilag lehetetlen lett volna) sikerült megtalálnom a hibát. Elszámoltam a Columns -t Az y sor az 25. és nem 24.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz Delila_1 #15152 üzenetére
Még egy két apróság. Az UserForm1 elhelyezett Commandbuttonnak milyen kód kell, hogy bezárja az UserForm1 ablakot és egy makrót elindítson? Valamint az UserForm1 feliratot az ablak címben hogy lehet átírni?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Már csak ez kell: Még egy két apróság. Az UserForm1 elhelyezett Commandbuttonnak milyen kód kell, hogy bezárja az UserForm1 ablakot és egy makrót elindítson? És egy TexBox nál milyen kód kell hogy megjelenítse egy adott cella tartalmát?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Sziasztok. Létezik olyan kapcsoló az Excelben amivel kiiródnak az elnevezett cellába a nevek?
Csak mert otthoni gépemen nincs megjelenítve a cégesen meg megjelent..Emigyen:[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv. Ebben a Makróban mit hibáztam el? Mert valamiért nem engedi a Then-t az Elself után. A kiemelt sornál jelzi a hibát. Természetesen
If Range("ÁtlagElvárt") = "False." Then
Sheets("Ütemidő műveletenként (2)").Select
If Range("CellTip").Value = "Típus 1." Then
Sheets("Elvárt ütemidő adatok").Select
Range("C15").Copy
Sheets("Ütemidő műveletenként (2)").Select
Range("Elvárt").Select
ActiveSheet.Paste
ElseIf Range("CellTip").Value = "Típus 2." Then
Sheets("Elvárt ütemidő adatok").Select
Range("C16").Copy
Sheets("Ütemidő műveletenként (2)").Select
Range("Elvárt").Select
ActiveSheet.Paste
ElseIf Range("CellTip").Value = "Típus 3." Then
Sheets("Elvárt ütemidő adatok").Select
Range("C17").Copy
Sheets("Ütemidő műveletenként (2)").Select
Range("Elvárt").Select
ActiveSheet.Paste
End If
Elself Range("ÁtlagElvárt") = "True." Then
Range("ÁtlagÜ").Copy
Sheets("Ütemidő műveletenként (2)").Select
Range("Elvárt").Select
ActiveSheet.PasteEnd If
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Megint kellene a segítségetek. Adott egy diagram. (lenti kép) az oszlopok értékének van egy ELVÁRT értéke. Valamint egy minimum és egy maximum elvárt értéke. Hogy tudnám Én ezt megjeleníteni a diagramon a 2. 3. képhez hasonlóan? ( a diagramok nem igazán mennek nekem)
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Sziasztok Mesterek!! Lehet csinálni olyan oszlop diagramot, aminek van úgy 10 oszlopa, egyszínűek, pl zöld, de ha valamelyik értéke nagyobb mint 60 akkor az váltson piros színűre? Na és persze ezt automatikusan? Vagy megoldható valamilyen makró féleséggel? Vagy ez fantazmagória?
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia Sztanozs!
Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
Sheet1.ChartObjects("Diagram 8").ActivatePedig a Diagram 8 a veve a rajzterületnek.
A hiba pedig: Object requiredSub KimDiagSzín()
'
' KimDiagSzín Makró
Sheet1.ChartObjects("Diagram 8").Activate
Dim val()
val = ActiveChart.SeriesCollection(1).Values
Dim ix
For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
If val(ix) > 60 Then
ActiveChart.SeriesCollection(1).Points(ix).Select
With Selection.Format.Fill
.Solid
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End If
Next
End Sub[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz MaciLaci68 #15219 üzenetére
Opsz. Ez is igaz.. Köszönöm!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv
Ha van egy tartományom, nevezzük gép1-nek amiben a képen látható adatok vannak, milyen makróval tudom ebből a tartományból az időadatokat átmásolni mondjuk az A oszlopba úgy, hogy csak azok legyenek átmásolva, minden cellába kerüljön időadat és növekvő sorrendbe rakja azt?"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia. A makró amit írtál csak egy adathoz tartozó oszlopot ír át pirosra ha 60 nál nagyobb és az érték változásakor, ha esetleg 60 alá esnem nem lesz újra zöld. Vagy mindegyik pontra meg kell ezt csinálni? Ha igen hogy kell egymásba fűzni hogy értelmes legyen a makró?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz MaciLaci68 #15235 üzenetére
Köszönöm szépen! Működik ahogy kell!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Sziasztok!
Ha van egy olyan képletem amely adatok hiányában #ZÉRÓOSZTÓ! hibára megy, át lehet úgy hogy ez esetben kapjon egy értéket? pl, beletenni egy HA függvénybe ezt a függvényt."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
-
Attas
aktív tag
válasz Delila_1 #15256 üzenetére
Olyan makrót lehet írni, hogy figyelve egy True-False értéket egy cellába egy komplett fügvényt tegyen bele aszerint, hogy a figyelt érték igaz vagy hamis? Vagy ez hülyeség mivel a makróban is lehet a képlet és egy if -else -vel a feltételnek megfelelő fügvényt számolja?
elég összetett függvényekről van szó..[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Üdv!
Ha egy cella értéke hibás adatok miatt #HIÁNYZIK akkor ezt egy makróban hogy lehet lekérdezni?
valami ilyesmi kellene:Sub HibásSz()
Sheets("Kimutatás").Select
If Range("D9") = "#HIÁNYZIK" Then
UserForm2.Show
End If
End SubDe természetesen ez nem működik...
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
Új hozzászólás Aktív témák
- Battlefield 2042
- Vezetékes FEJhallgatók
- Feltörték a PROHARDVER!-es regisztrációmat! (vagy elvesztettem a belépési emailcímemet)
- Parkside szerszám kibeszélő
- Kerékpárosok, bringások ide!
- Netfone
- Horgász topik
- Itt az első kép a 2024-es Nokia 3210-ről
- Gurulunk, WAZE?!
- Azonnali mobilos kérdések órája
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- World of Warcraft Shadowlands Collectors edition EU EN
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok