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.

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.

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

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!

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.

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.

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 ]

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 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.

Ezt fogom itt hasznalni! Nagyon köszi

Viszont ettöl függetlenül erdekelne a hiba a fenti macroban Maga a logika hibas, mert nem azt csinalja, amit es ahogy gondolok es ez zavar

Range("=F" & i).Value

Szintaktikailag helytelen.

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

Nem jo nekem ez sajnos, mert nekem vannak üres cellaim is, nem egybefüggö a dolog, szoval ez igy nem müködik

(#32810) Delila_1 ez nekem müködik pedig. Nem csak itt sok helyen. ilyenkor a "Gi" (i a valtozo) cellaba beirja az "Fi" cella erteket

[ Szerkesztve ]

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.

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 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.

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 ]

Köszi!

A változtatással szépen legyártja!
A küldést majd később kipróbálom.

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)

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

Private Sub cb_Clear_Click()

For i = 1 To 13

Munka1.Controls("Textbox" & i).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)

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 help

Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27

köszönöm, ezzel próbálkoztam, de az alábbi hiba üzenetet kapom a 'Controls'-ra:

Method or data membernot found

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

Céges: =SZUMHA($D$3:$D$6;0;$G$3:$G$6)

Privát: =SZUMHA($D$3:$D$6;1;$G$3:$G$6)

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

Működik.. naná! Köszi!

Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27

Szivi.

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

Szia!

Mutatnál egy képet, esetleg feltennéd valahova a mintafájlt, mert sajna nem tudok mire gondolni pillanatnyilag.

Üdv.

Üdv,

hogyan lehetséges egy cellára egyszerre igaz, hogy:

IsEmpty:false
Len:0
.Text= semmi
.Value= semmi
WorksheetFunction.IsText=true

Tehá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.)

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

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)

Szisztok,

Kérdésem az lenne hogyan tudom egy exel táblázatban a leggyakrabban szereplő számokat kiválasztani?

Köszönöm

Szia!

2007-es vagy annál korábbi Excelnél MÓDUSZ, annál frissebben MÓDUSZ.EGY függvény.

Üdv.

Köszönöm kipróbálom.

Kipróbáltam, köszönöm. Ez egy számhalmazból így megmondja a legtöbbet ismétlődő számot.
Lehetne valahogy az első 10 leggyakrabban ismétlődő számot is kilistázza?

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.

Szia!

Ha 2007 utáni Exceled van, akkor MODUSZ.TÖBB

Üdv.

Szia próbáltam azt is, de hogy lehet vele megcsinálni hogy a 10 legtöbbször előforduló számot kikeresse?

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.

Esetleg gyakoriságot kellene használni?

[ Szerkesztve ]

Nem lehet, hogy egy aposztrof az üres cella tartalma?
Az 0 hosszúságú text lehet...

[ Szerkesztve ]

Szia!

Megpróbálhatod kimutatás készítését is, ahol az egyes számok darabszámát számoltatod az értékek területen.

Üdv.

[ Szerkesztve ]

Tömbképletként kell bevinni, a help leírja.

[ Szerkesztve ]

Nem, tényleg nincs benne semmi, át is másoltam egy üres táblába egy ilyen cellát: [link]
Az A1 celláról van szó.

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

Szia!

Szerintem az okozza a jelenséget, hogy a szegély formázva van. A szegély színe más, mint a többi celláé. Ha egy másik celláról a formátumot átmásolod, akkor már nem jelentkezik a probléma.
Persze ez csak egy feltevés...

Üdv.

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.

Szia,

köszi a tippet, de nem az okozza ... lepróbáltam, szegély nélkül is ugyanaz.

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

akkor marad a nagy fv a gyakorisággal vagy a segédszámításos megoldás vagy a pivot vagy a makró

[ Szerkesztve ]

[ Szerkesztve ]

szia,
egy csomó formázás van abban a cellában, igazítás, betűtípus, betűméret, és ehhez jön a szegély, meg a védelem.
de ettől még nem tudom sajna a választ...

[ Szerkesztve ]

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?

̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿

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.

Szia!

Miután azt írja a Help, hogy ez csak a UserInterFaceOnly=True beállítás esetén múködik. Mivel pedig ezt a beállítást minden meg kell ismételni, valószínüleg ez okozza az általad észlelt problémát.

Üdv.

köszi

Gondolom office advanced feature... :-)

[ Szerkesztve ]

Szia!

Vagyis minden megnyitásnál kellene futtatnom egy feloldást és zárolást?

Üdv.:
P.