-
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
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Óra topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Debrecen és környéke adok-veszek-beszélgetek
- Mibe tegyem a megtakarításaimat?
- Netfone
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Minden a BlackBerry telefonokról és rendszerről
- Házimozi belépő szinten
- Tőzsde és gazdaság
- További aktív témák...
- www.stylebolt.hu - Apple eszközök és tartozékok!
- ÁRCSÖKKENTÉS ASUS HD6870 videókártya
- Eladó szép állapotban levő Apple iPhone 11 64GB fehér / 12 hónap jótállással!
- LG 65B4 - 65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


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