- Apple asztali gépek
- ThinkPad (NEM IdeaPad)
- Shield TV-t csinált a Shieldből az NVIDIA
- Ízléses, masszív és praktikus mikrotorony jött a Jonsbo műhelyéből
- Fujifilm X
- OLED monitor topik
- Everest / AIDA64 topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Milyen billentyűzetet vegyek?
-
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
válasz
tzimash
#32891
üzenetére
Szia!
Minden MsgBox üzenet esetén kell OK vagy más gombot nyomnia a felhasználónak, nem csak a program végén :-(
Miért nem jó neked az állapotsor ott a képernyő alján? Ott nem kell a felhasználónak semmit csinálnia, csak nézni, mint boci...
Az elején pedig írhatsz egy MsgBoxot neki, hogy lesse az alsó sort, ha kíváncsi (ha nem).
Én hosszú folyamatoknál itt szoktam pörgetni a számlálót, hogy x tétel,cella van feldolgozva y darabból és általában 100-asával változtatom (mert különben nem látsz semmit a pörgéstől). Irtó kellemetlen lenne a felhasználónak, ha pár másodpercenként nyomkodnia kellene az entereket (mert "túl gyors" a program).
Szerintem akkor van értelme MsgBox-nak, ha a felhasználó döntésétől is függ, hogy mit csinálsz tovább, pl. nincs meg minden adat, de szeretne hiányos adatokkal is továbbmenni stb., illetve ha valami szokatlan történt és hibáról kell tájékoztatni.Üdv.
-
Fferi50
Topikgazda
válasz
tzimash
#32889
üzenetére
Szia!
Az MsgBox nem tűnik el addig, amíg a felhasználó rá nem kattint az OK gombra.
Az állapotsor felhasználható a folyamatok jelzésére:
Application.Statusbar="Most itt járok:" & "éppen indexelek"
A makró végén pedig Application.Statusbar=False - visszaadja a vezérlést az Excelnek (ez utóbbit ne felejtsd ki, mert egyébként az állapotsoron ott marad, amit legutoljára kiírattál.
Az állapotsorba rajzkarakterket is tehetsz, színt viszont nem.Lehet még olyan megoldás is, hogy egy userformot hozol létre, amire az üzeneteket kíírod egy Labelba, majd a Userform1.Show false paraméterrel hívod meg - ekkor a makró fut tovább, a form pedig addig lesz kinn, amíg az Unload Userform1 sort be nem írod, vagy a felhasználó "ki nem x-eli".
Az üzeneteket menet közben változtathatod, amíg a form kint van, pl. Userform1.Label1.Caption="Most más szöveg jön".
Ide rajzos karaktereket is tehetsz és színezheted is. De azért nem árt sokat gyakorolni, mielőtt ráereszted a felhasználóra.Üdv.
-
tzimash
őstag
Arra van lehetőség, hogy a makró futása közben tájékoztatni a felhasználót az éppen végrehajtott műveletről? Pl megjelenik egy msgbox, melyben néhány sorban (ami egymás után jelenik meg) kiíratni, hogy éppen mi történik a háttérben, mire véget ér a makró futása a box is eltűnik. Esetleg alá egy folyamatjelző?
-
-
#32886
Fferi50
Topikgazda
botond2225
#32885
Fferi50
Topikgazda
válasz
botond2225
#32885
üzenetére
Szia!
Hasznos lett volna, ha a hibakiírást is rajta hagyod a képen.
Talán az lehet a probléma, hogy az offset(0,-52)-t nem tudja értelmezni, mert nincs a kijelölt cellától balra 52 oszlop már. Valószínúleg nem ott állsz, mint ahol a makrót rögzítetted.
Szerintem elég lenne a Destination:=Activesheet.range('A1:BA500"), stb.Üdv.
-
#32885
botond2225
csendes tag
Delila_1
#32860
-
Sprite75
tag
válasz
Pakliman
#32882
üzenetére
Hello
Ott a pont
Köszönöm szépen.
A Rendelés fülön ha beírnak valamit a "BA" megjegyzés oszlopba azok a beírások megjelennek a Összesítve fülön az aznapi rendelések összesítésével együtt, amit már lehet is nyomtatni.
Összesen 105 megrendelő van, de a gyakorlatban kb 5-6 bolthoza van írva megjegyzés naponta, így bőben elfér az Összesítve fül Megjegyzések cellájában.Köszönöm még egyszer, hátha később hsznos lesz másnak is
. -
tzimash
őstag
Sziasztok,
Makróval kereteztetnék be egy területet, használtam a makrórögzítőt, de nem tetszik az eredmény...
Van ennél egyszerűbb (kevésbé terjedelmes) módja?
Valami olyasmi, hogy A1: C4 területen az összes vonal (kivéve átlók) fekete, folytonos, vékony legyen?Sub keret()
Range("A1:C4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub -
Pakliman
tag
válasz
Sprite75
#32881
üzenetére
Szia(sztok)!
"Elegánsabb" megoldás, de kell a VBA:
Public Function MyÖsszefűz(terület As Range, Optional elválasztó As String = ";") As String
Dim cella As Range
Dim temp
For Each cella In terület
If cella <> "" Then temp = temp & IIf(temp <> "", elválasztó, "") & cella
Next cella
MyÖsszefűz = temp
End Function
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
lenkei83
#32873
üzenetére
Szia!
Szerintem ennek működni kellene, viszont mivel a Thisworkbook kódlapja nem általános modul, hanem osztálymodulnak számít, a változót csak úgy tudod elérni, ha a teljes nevével hivatkozol rá, azaz Thisworkbook.valid_cell_range. Ebben a formában már látja minden modul - és a vba segítőben is látod.
Üdv.
-
Sprite75
tag
válasz
Fferi50
#32870
üzenetére
Köszi. Megpróbálom úgy akkor az összefűzzel. A szűrős módszer sajna nem jó mert aki használja annak bonyolult lenne. Azt a lapot amire az összefűzést csinálnám naponta többször is nyomtatják. Ez alap egyébként tartalmazza az aznap felvett megrendeléseket összesítve és ide szeretném a rendelésekhez írt esetleges megjegyzéseket.
-
Fferi50
Topikgazda
válasz
Sprite75
#32868
üzenetére
Szia!
2013-as excelben már 255 paramétere lehet az összefűz függvénynek. Nézd meg lsz. a szerkesztősoron a függvényre kattintva, hogy hány paramétert enged meg. (Beírod az =Összefűz( szöveget, rákattintasz az Fx szimbolra, az előugró ablakban ott a szöveg.)
Másik lehetőség: Szürő az oszlopra, nem üresre állítva a szűrőt megkapod azokat a cellákat, amelyekben van érték. Ezeket egyben kijelölheted, átmásolhatod egy másik munkalap összefüggő tartományába. Máris csak pár cellát kell összefűzni, arra meg jó a & műveleti jel is.
Üdv.
-
Sprite75
tag
Szasztok
Keresgéltem itt a fórumban de nem találtam a választ a következőre
Van egy táblázatban BA5
A109 terület, amibe megjegyzéseket (szöveget) írnak.
Összesen eből a 104 cellából naponta kb 5-6-ba. Következő nap pedig lehet hogy másik 5-6 cellába ezek közül.Az eszen a területen található szöveges információkat szeretném összefűzve megjeleníteni ugyanennek a táblázatnak egy másik lapján egy adott cellába.
Lehetséges ez. Az összefűz -el ha jól tudom csak 30 cella tartalmát lehet megoldani, így gondolom az nem megoldás. -
HREH
senior tag
válasz
Delila_1
#32863
üzenetére
Tökéletes, nagyon köszönöm!
És ha az átlagokat az első oszlop alá számítanám, akkor gondolom csak a tartományt kell beállítaniB:BésC:Chelyett?
Illetve úgy meg lehet csinálni, hogy nincs külön kiírva, hogy "A" átlaga, "B" átlaga, stb.? (szóval a függvényben hivatkoznék rá) -
HREH
senior tag
Sziasztok, a következő lenne a problémám:
A kijelölt cellába kellene beírnom az 1.A, 4.A és a 8.A mellett lévő értékek átlagát.
Hasonlóképpen, a "C" átlaga cellába a 3.C, 6.C, 10.C mellett lévő értékek átlagát.
És így tovább...Kérdésem, hogy ezt hogyan lehetne függvénnyel megoldani?
Előre is köszönöm!(szerk: lehet, hogy tök triviális, de egyszerűen nem fog most az agyam
) -
#32861
dellfanboy
őstag
dellfanboy
őstag
van 4 excel file -om ami ra van linkelve egy ppt-ra. talalkoztatok mar olyan hibaval hogy a ppt nem frissul be?
megvan nyitva a 4 excel utana megnyitom a ppt update links, nem tortenik ppt-be semmi. raklikkelek az excelekre es latom feldobott egy uzenetet le okezom , de a ppt-be a slide-ok nem frissulnek.. ha egyesevel probalom frissiteni a chartokat ppt-be akkor se mukodik. azert furcsa mert kollegamnak 100% mukodik csak nalam nem es nem jovok ra a hibara.. mire nezzek /googlezzak ra? -
#32860
Delila_1
veterán
botond2225
#32859
Delila_1
veterán
válasz
botond2225
#32859
üzenetére
A makró első sora ez legyen:
Application.Volatile
Akkor frissül, mikor a lapra billentyűzetről viszel be valamit, vagy törlöd egy cella tartalmát.
-
#32858
Delila_1
veterán
botond2225
#32857
Delila_1
veterán
válasz
botond2225
#32857
üzenetére
Kipróbáltad a függvényt?
Abban a füzetben lesz elérhető, amelyiknél egy modulba beírtad. -
#32857
botond2225
csendes tag
Delila_1
#32856
-
#32854
Delila_1
veterán
botond2225
#32853
Delila_1
veterán
válasz
botond2225
#32853
üzenetére
Ehhez egy saját függvény kell.
Beírod a H oszlopba (H2-től kezdve) a keresendő szöveget (9'' Quad Core), mellé az I-be a GA33-at, alá a többi párost.
Modulba másold be a makrót.
Function Rovidites(Cella As Range)
Dim sor As Integer, usor As Integer
usor = Range("H" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
If InStr(Cella.Value, Range("H" & sor)) > 0 Then
Rovidites = Range("I" & sor).Value
Exit For
End If
Next
End FunctionHa a hosszú szöveged az A2-ben van, akkor a képlet
Rovidites(A2). Ugyanúgy másolható, mint a többi függvény.Vigyázz! a hosszú szövegedben a 9 után 2 db aposztróf van, a keresési feltételnél meg 1 db idézőjel.
-
#32853
botond2225
csendes tag
botond2225
csendes tag
Sziasztok,
Olyan képletet keresek, amely megadott feltételt vizsgál meg, és az alapján ír be egy szöveget egy cellába.
Ha a keresendő cella szövegében szerepel egy adott szöveg (ezt előre megadnám), akkor egy másik cellába írjon be egy szintén általam megadott szöveget.
Office 2013-at használok egyik gépen magyar, másikon angol.Tehát pl. ez lenne egy cella tartalma:
1 db,9'' Quad Core Android tablet, Kód: GX00304191-4QN
Ebben kellene keresnie szövegrészt, hogy szerepel-e pl. az alábbi szöveg:
1. keresési feltétel
9" Quad Core2. keresési feltétel
GPS tabletstb. (ezeket írnám be én, nagyságrendileg 15-20-ról lenne szó)
Ha szerepel a keresendő cellában az 1. keresési feltétel, akkor írja a másik cellába az alábbi szöveget:
GA33Ha szerepel a cellában a 2. keresési feltétel, akkor a következőt írja:
MT102WRemélem érthető a problémám.
Segítségeteket előre is köszönöm.
Üdv,
Bálint -
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? -
Fferi50
Topikgazda
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.
-
-
Fferi50
Topikgazda
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.
-
-
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.)
-
#32824
Fferi50
Topikgazda
TrollBalint
#32817
Fferi50
Topikgazda
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.
-
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 help -
#32817
TrollBalint
addikt
Fferi50
#32793
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
-
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 -
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
-
Delila_1
veterán
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 Sub -
Delila_1
veterán
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. -
-
Delila_1
veterán
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 Sub -
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 -
#32806
Delila_1
veterán
terencehIII
#32803
Delila_1
veterán
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.
-
#32805
Delila_1
veterán
thomas50.000
#32804
Delila_1
veterán
válasz
thomas50.000
#32804
üzenetére
A másik fórumon, ahol feltetted a kérdést, válaszoltam.
-
#32804
thomas50.000
csendes tag
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!
-
#32803
terencehIII
tag
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 -
Fferi50
Topikgazda
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.
-
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.
A109 terület, amibe megjegyzéseket (szöveget) írnak.
)
ez nekem müködik pedig. Nem csak itt sok helyen. 
Új hozzászólás Aktív témák
Hirdetés
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 docking station (5TW13AA) (DisplayLink)
- BESZÁMÍTÁS! ASUS ROG STRIX Z270G GAMING WiFi alaplap garanciával hibátlan működéssel
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Latitude E7270 - i7-6GEN I 8GB I 256GB SSD I 12,5" FHD I HDMI I CAM I W10 I Gari!
- Törött, Hibás iPhone felvásárlás!!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest