-
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
-
bajor14
csendes tag
Sziasztok!
Eléggé kezdő vagyok a dologban ez lenne az első makróm…
van egy makró ami minden fél órában lefut (fontos, hogy minden fél és egész órában… így a now + 30 sec sajnos nem működik…) viszont ha a munkafüzetet bezárom akkor az időzítő miatt újra megnyitja és futtatja… ezt kellene lelőni…ezt így oldottam meg:
Application.OnTime TimeValue("07:30:00"), "fris", ("07:30:01")
Application.OnTime TimeValue("08:00:00"), "fris", ("08:00:01")
Application.OnTime TimeValue("08:30:00"), "fris", ("08:30:01")
Application.OnTime TimeValue("09:00:00"), "fris", ("09:00:01")
Application.OnTime TimeValue("09:30:00"), "fris", ("09:30:01")
Application.OnTime TimeValue("10:00:00"), "fris", ("10:00:01")
Application.OnTime TimeValue("10:30:00"), "fris", ("10:30:01")
Application.OnTime TimeValue("11:00:00"), "fris", ("11:00:01")
Application.OnTime TimeValue("11:30:00"), "fris", ("11:30:01")
Application.OnTime TimeValue("12:00:00"), "fris", ("12:00:01")
Application.OnTime TimeValue("12:30:00"), "fris", ("12:30:01")
Application.OnTime TimeValue("13:00:00"), "fris", ("13:00:01")
Application.OnTime TimeValue("13:30:00"), "fris", ("13:30:01")
Application.OnTime TimeValue("14:00:00"), "fris", ("14:00:01")
Application.OnTime TimeValue("14:30:00"), "fris", ("14:30:01")
Application.OnTime TimeValue("15:00:00"), "fris", ("15:00:01")
Application.OnTime TimeValue("15:30:00"), "fris", ("15:30:01")
Application.OnTime TimeValue("16:00:00"), "fris", ("16:00:01")
Application.OnTime TimeValue("16:30:00"), "fris", ("16:30:01")
Application.OnTime TimeValue("17:00:00"), "fris", ("17:00:01")
Application.OnTime TimeValue("17:30:00"), "fris", ("17:30:01")
Application.OnTime TimeValue("18:00:00"), "fris", ("18:00:01")
Application.OnTime TimeValue("18:30:00"), "fris", ("18:30:01")
Application.OnTime TimeValue("19:00:00"), "fris", ("19:00:01")
Application.OnTime TimeValue("19:30:00"), "fris", ("19:30:01")
Application.OnTime TimeValue("20:00:00"), "fris", ("20:00:01")End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now, "fris", , False
End Subviszont sajnos ez így nem működik…. tudnátok segíteni?
-
bajor14
csendes tag
válasz
Fire/SOUL/CD
#14365
üzenetére
köszönöm a segítséget, az volt a hiba, amit írtál, így már hibátlanul lefut a makro!!
-
bajor14
csendes tag
Sziasztok!
Írtam egy egyszerű makrot egy szűz excelbe, ami remekül működik is. Viszont mikor egy riportokkal teli excelbe írom be ugyanezt a makrot, akkor vmiért nem akar működni...
Valószínű én rontottam el vmit,kérlek, de nem jövök rá, hogy mit!
Ha van ötletetek minden segítségnek örülök!
Sub abrakadabra_legyen_nulla()
Dim sor
sor = 2
Do Until Cells(sor, 14).Value = ""
If Cells(sor, 14).Value = 0 Then Cells(sor, 6).Value = 0
sor = sor + 1
LoopEnd Sub
-
bajor14
csendes tag
Sziasztok!
A melóhelyen outlook 2010-et használunk és ebből kéne vmi statot csinálnom.
A lényeg, hogy vannak közös fiókjaink és abból kell összedzednem, hogy kihez mennyi mail jött/nap. Jelenleg számolgatással
történik a riportálás. Bármilyen ötletet/segítséget megköszönnék! -
-
bajor14
csendes tag
-
bajor14
csendes tag
Sziasztok!
van egy elég nagy adathalmazom melyben betűkódok alapján dátumhoz és órához (negyed órás bontásban) vannak az infók hozzárendelve. úgy néz ki, hogy betűkód, dátum, idő és utána még kb 15 cella különbözö értékek egy sorban. azt szeretném vhogy összehozni, hogy szedje ki minden egyes negyed órában, hogy adott betűkódhoz pl a H oszlopban milyen érték tartozik. annyiva viszont bonyolódik, hogy a betűkódok csoportokat alkotnak, így pl. 7:30-hoz nem csak a 13-as tartozik, hanem másik 5 is.
ha esetleg valaki tudna segíteni, azt megköszönném!
(elnézést, ha kuszán fogalmaztam
)
Új hozzászólás Aktív témák
- Asus Vivobook S16 S3607QA-PL018W
- Felsőkategóriás Gamer PC-Számítógép! Csere-Beszámítás! 7800X3D / RTX 5070 / 32GB DDR5 / 2TB SSD!
- AKCÓ! HTC VIVE Pro 2 virtuális valóság szemüveg garanciával hibátlan működéssel
- MacBook Air M1 13" 16GB RAM 256GB SSD 27% áfás számla 0347AB
- Eladó Apple iPhone 11 64GB fekete / 12 hó jótállás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


történik a riportálás. Bármilyen ötletet/segítséget megköszönnék!
Fferi50