-
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
-
morgusz
csendes tag
válasz Fferi50 #32794 üzenetére
Szia!
Köszi a makrót, de lehet, hogy rosszul írtam le, hogy mit akarok, mert csak a feltételeknek megfelelő legnagyobb sorszámú sor email-jét csinálta meg.
Annyi email kellene, ahány sorban igaz, hogy "S"oszlopban "küldhető", "M" oszlopban "1 " szerepel.
(Illetve nem tudom hova került a többi, ha legyártotta.Vagy csak akkor csinálja a többit, ha elküldtem azt az egyet?)
Még annyit szeretnék kérdezni, hogy ahhoz mit kell megváltoztatni, hogy rögtön küldje ahogy elkészült, mert úgyis egy másik fiókba kerül először, ahonnan a cég nevében továbbküldöm. -
Fferi50
őstag
válasz morgusz #32801 üzenetére
Szia!
Szerintem a
Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
programrészt kellene átírni így:On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
Set Email = Outlookprogi.CreateItem(0) 'abban nem vagyok biztos, hogy mindig (0) paraméter kell, lehetséges, hogy azt is kell növelni, ezt próbáld ki lsz.Az elküldése szerintem a .send lehet (de ez csak tipp, nézd meg lsz.)
Üdv.
-
terencehIII
tag
sziasztok!
szükségem lenne egy kis segítségre.
Van két munkalapom, az elsőn adatok, a második lapon képet. Az adatoknál a képekre szeretnék hivatkozni, de sajnos csak munkalapra sikerül.
Tehát ha az egyik adatra kattintok akkor a hozzá tartozó képre ugorjon a másik munkalapon.
Valakinek van ötlete hogy tudnám megoldani.
köszi -
thomas50.000
csendes tag
Sziasztok!
Van egy munkalapom. Azt szeretném elérni, hogyha erre a munkalapra lépek (kattintok), akkor automatikusan tegye csökkenő sorrendbe a 4. oszlop (D oszlop) alapján az adatokat.
A válaszokat előre is köszönöm!
-
Delila_1
Topikgazda
válasz thomas50.000 #32804 üzenetére
A másik fórumon, ahol feltetted a kérdést, válaszoltam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz terencehIII #32803 üzenetére
Itt egy füzet, benne a válasz.
A területeket, ahol a képek vannak, elnevezed. A Hiperhivatkozásnál a definiált nevek közül választasz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Declare
őstag
Elakadtam egy gondolatmenetben asszem megsem ertem teljesen a "loop" logikajat még.
Ennek a makro resznek azt kellene csinalnia, hogy vizsgalja G oszlopt es ahol "Value1" erteket talal ott vegrahajtani par dolgot, ahol "Value2"-t ott mast, ahol "Value3" -t ott megint mast. Majd ha visszater a lap tetejen ujra az elsö "value2" ertekhez akkor vegzett. (atlathatosag kedveert leegyszerüsitettem, hogy a Value1,2,3 talalatokkor mit csinaljon, szoval elsö sorban a logikai hibat keresnem, nem alternativ makrot a feladatra )
Nagyjabol jol müködik, de megsem. En ugy kepzelnem, hogy ennek ugy kellene futnia, hogy elindul G1 töl, megy lefele folyamatosan, majd eleri a tabla aljat, visszaer G1 re megy, megy es amikor elerte megint a value2 t akkor megall.
E helyett ez többször egymas utan, össze vissza vegzi el a müveleteket. Egyedül az elsö If nel ( a mycell) müködik ugy ahogy kell. A többi nem. (szoval a makro fut, meg is all, de a vegrahajtando parancsokbol latom, hogy valami nem jo, valahogy többször visszater es vegrahajt utasitasokat ugyan abban a cellaban.....bogarasztam a netet, futtattam többfele probalkozast, amiben valtoztatgattam ezt azt, de sehogy sem jo )
igy elsö blikkre, meg tudjatok mondani, hol a logikai hiba?
Dim i As Integer, mycell As Range, myfind As Range, mycell2 As Range, elso As String, mycell3 As Range
Set myfind = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not myfind Is Nothing Then
elso = myfind.Address
Do While True
Set mycell = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
Set mycell2 = Range("F:F").Find(what:=myValue1, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
Set mycell3 = Range("F:F").Find(what:=myValue3, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
If Not mycell Is Nothing Then
i = mycell.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
If Not mycell2 Is Nothing Then
i = mycell2.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
If Not mycell3 Is Nothing Then
i = mycell3.Row
Range("G" & i).Value = Range("=F" & i).Value
End If
Set myfind = Range("F:F").Find(what:=myValue2, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=myfind)
If myfind.Address = elso Then Exit Do
Loop
End If[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Declare #32807 üzenetére
Azt hiszem, túlbonyolítod a feladatot. Minek ide-oda ugrálni? Elég egyszer végigmenni az adatokon.
A makróban elég bugyuta feladatokat adtam meg a 3 különböző értékre.
Value1-nél a H oszlop azonos sorába írja be hivatkozással az F aktuális sorának az értékét. a másik kettőnél az I-be, ill. a J-be.Sub HarmasFeladat()
Dim sor As Long
Application.ScreenUpdating = False
sor = 2
Do While Cells(sor, "G") > ""
Select Case Cells(sor, "G")
Case "Value1"
Cells(sor, "H") = "=F" & sor
Case "Value2"
Cells(sor, "I") = "=F" & sor
Case "Value3"
Cells(sor, "J") = "=F" & sor
End Select
sor = sor + 1
Loop
Application.ScreenUpdating = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Declare
őstag
-
Delila_1
Topikgazda
válasz Declare #32811 üzenetére
Tényleg működik az egyenlőség jeles, de anélkül is.
A bemásolt makród is hiba nélkül lefut nálam üres sorok esetén is, csak ugrál. Először az alsó Value2 sorba ír, majd az első Value1-be, utolsó Value3-ba, első Value2-be, stb.
Az én makrómban a
Do While Cells(sor, "G") > ""
sorban a G-t írd át F-re.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Declare #32811 üzenetére
Sub HarmasFeladat()
Dim sor As Long, usor As Long
Application.ScreenUpdating = False
usor = Range("F" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
Select Case Cells(sor, "F")
Case "Value1"
Cells(sor, "H") = "=F" & sor
Case "Value2"
Cells(sor, "I") = "=F" & sor
Case "Value3"
Cells(sor, "J") = "=F" & sor
End Select
Next
Application.ScreenUpdating = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Declare
őstag
válasz Delila_1 #32812 üzenetére
Igen, müködik, lefut hiba nelkül, ezt irtam is, csak a vegrehajtando feladatok között van egy olyan, amit ha 2x egymas utan hajt vegre, nem jo eredmenyt ad. Az elso esetben (az if not mycell..." esetben tökeleesen müködik. A masodik "If Not mycell2" egy egyszerü feladat van, az is tökeletes, de lehet mar ott is gubanc lenne. A harmadik "If not mycell3" ahol ugyan olyan feladatai vannak, mint az elso ("If not mycell") esetben es az többször egymas utan is lefut ugyan azon a cellakon. Ezt az eredmenyböl latom, mert nem jo.
Szoval ezert irtam, hogy müködik, fut, megall, azt csinalja amit kell kb, de össze vissza es nem is minden esetben csak 1x hajtja vegre a müveletet. Ez bosszant, hogy nem tudom, hol lehet a hiba...
A makrod, amit csinaltal ((#32813) Delila_1) viszont ugy nezem most mar tökeletes lesz ehhez a feladatomhoz, szoval nagy köszönet megegyszer, ezzel a feladatom tökeletesen meg lesz oldva, egyszerübb is, de ettöl függetlenül a "hol a hiba" kerdesem a bemasolt makromra nagyon erdekelne
Igy viszont lett egy ujabb makro a kis "gyüjtemenyembe", amihez nyulhatok, ha valamit meg kell oldanom
[ Szerkesztve ]
-
alfa20
senior tag
Sziasztok!
Az alábbira lenne egyszerűbb megoldás?
Private Sub cb_Clear_Click()
Munka1.TextBox1.Value = ""
Munka1.TextBox2.Value = ""
Munka1.TextBox3.Value = ""
Munka1.TextBox4.Value = ""
Munka1.TextBox5.Value = ""
Munka1.TextBox6.Value = ""
Munka1.TextBox7.Value = ""
Munka1.TextBox8.Value = ""
Munka1.TextBox9.Value = ""
Munka1.TextBox10.Value = ""
Munka1.TextBox11.Value = ""
Munka1.TextBox12.Value = ""
Munka1.TextBox13.Value = ""
End Sub"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
TrollBalint
addikt
válasz Fferi50 #32793 üzenetére
Hello,
közben tesztelgettem a képletet és a következőkre jutottam. Ha nem table formátumban használom, akkor valóban jól működik a tömbképlet.
Viszont, ha a table-s excelben probálkozom, akkor sok helyen #### jelet kapok, ahogy az írtam is korábban. De ha a képletedben =MIN(IF(Sheet1!$A$1:$A$47=$A4;1;100)*1*(Sheet1!$B$1:$B$47)) a 100-at árírom valami kisebb számra, akkor már ki tudja írni a dátumot, de 2132. 10. 23 és hasonló jövőbeni dátumok jönnek ki. (ha nem tömbképletként teszem be, akkor mindenhova 0 jön ki)A forrásadatoknál sehol nincsen üres cella
https://www.pathofexile.com/account/view-profile/Haarkon/characters
-
Roxy27
tag
Sziasztok, nem vagyok egy excel zseni...
erre kellene egy gyors frappáns megoldás:A sárga és piros mezőkbe kellene összeadnia a km-eket szeparálva értelem szerűen. A D oszlopot vizsgálva... ahol 0 az céges, ahol 1-es ott a privát.
Tehát külön adja össze a céges ill. a privát km futást...
Please helpHogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
Fferi50
őstag
válasz TrollBalint #32817 üzenetére
Szia!
Mutatnál egy képet, esetleg feltennéd valahova a mintafájlt, mert sajna nem tudok mire gondolni pillanatnyilag.
Üdv.
-
Magnat
veterán
Üdv,
hogyan lehetséges egy cellára egyszerre igaz, hogy:
IsEmpty:false
Len:0
.Text= semmi
.Value= semmi
WorksheetFunction.IsText=trueTehát elvileg text, nem üres, mégis 0 a hossza és nincs tartalma... Ez egy konzekvens állapot v vmi bug? A tábla egyébként Oracle Forms-ban lett előállítva vmilyen pluginnal, valamit frissítettek az alkalmazáson és azóta ezt csinálja. Régebbi változattal kimentett tábláknál ugyanilyen celláknál az IsEmpty érték true. (Ezen a különbségen szépen el is hasalt a Vba scriptem, ok, át tudtam írni a Len használatával, de azért kíváncsi lennék, mi a szösz ez.)
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
b3n1t0
csendes tag
válasz alfa20 #32820 üzenetére
Szia,
ezt a TextBox vezérlőt használva, nálam a kód működik, az első megoldás UserForm-on elhelyezett TextBox-okra vonatkozott
Private Sub CommandButton1_Click()
For i = 1 To 13
Munka1.OLEObjects("Textbox" & i).Object.Value = ""
Next
End Sub[ Szerkesztve ]
Poco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
-
Tomjack
tag
Szisztok,
Kérdésem az lenne hogyan tudom egy exel táblázatban a leggyakrabban szereplő számokat kiválasztani?
Köszönöm
-
DasBoot
aktív tag
Szép napot, Mindenkinek! Azt szeretném kérdezni, hogy az MSExcel-t hogyan tudnám mérésadat gyűjtésre használni? Pl. a hőmérsékletet beírni egy újabb cellába percenként, vagy bármilyen időközönként. Üdv.: Joe
LEGO-ból bármit megépíteni, csak idő kérdése.
-
Fferi50
őstag
válasz Tomjack #32833 üzenetére
Szia!
Pillanatnyilag egyszerű megoldás nem jut eszembe, de csinálhatod a következőt:
Egy segédoszlopba átmásolod az összes számot - utána adatok - ismétlődések eltávolítása.
Majd a mellette levő cellába megszámoltatod a darabteli függvénnyel az eredeti helyen levő előfordulásokat, ezután az eredményt sorbarendezed csökkenő módon. (=darabteli(eredeti hely, bal oldali cella))Üdv.
-
Fferi50
őstag
válasz poffsoft #32838 üzenetére
Szia!
Sajnos a Help is félrevezető ebben a tekintetben. A MÓDUSZ.TÖBB akkor írja ki a több számot, ha az előfordulásuk azonos - vagyis több értéket lehet módusznak tekinteni, ha csak egy módusz van, akkor csak azt az egy számot fogja így is kiírni és nem adja meg az utána következő előfordulásokat.
Csak nagyon figyelmesen elolvasva a Helpet, jön át ez a "korlátozás":
"A =MÓDUSZ.TÖBB(A2:A13) képletet tömbképletként kell beírnia. Ebben az esetben a MÓDUSZ.TÖBB 1, 2 és 3 értéket ad vissza móduszként, mivel mindegyik háromszor jelenik meg".Üdv.
-
Magnat
veterán
válasz poffsoft #32844 üzenetére
Köszi azért, átírtam mindenhol len-re, azzal műxik.
Még egy kérdés, nem csak neked : Az Intellisense működése nem tiszta... pl akarom tudni a Cells metódusait, tulajdonságait, stb. Beírom, h "Cells." és a pont lenyomása után segít az Intellisense - vagy ha nem, akkor Ctrl+J-re biztosan. Akkor is segít, ha ezt írom: "Cells()." - viszont pont úgy, ahogy normálisan használni kell, pl. "Cells(1,1).", nem működik. Hiába nyomkodom a Ctrl+J-t, csak dingel. Miért?
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
lenkei83
tag
Sziasztok!
Worksheet Protection EnableOutlining = True-val működik, de csak addig amíg meg nem nyitom újra a munkafüzetet.
Jól látom, hogy ez valami bug lehet?Üdv.:
P.
Új hozzászólás Aktív témák
- Canva Pro előfizetés - 1 éves
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig