- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lalikiraly: Astra kalandok @ Harmadik rész
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- Fogkefe: elektromos vagy manuális?
- gban: Ingyen kellene, de tegnapra
- hdanesz: 50. Debrecen Nagydíj - nemzetközi salakmotorverseny - életemben másodjára
-
LOGOUT
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
-
Kobe
veterán
sziasztok
kellene egy kis segitseg, egy makro debuggolasaban. Van egy egesz komplex makro, ami 4 kulonbozo dokumentumot megformaz, csinall belole egy filet, elmenti amolyan backup copykent ezt a nyersvaltozatot, majd tovabb porogve a makro ezen az aggregalt nyersfileon vegez formazast.
A formazas egyik lepese az, hogy a felesleges sorokat kitorli. Felesleges sorok azok, ahol a datum a user altal az urlapon meghatarozott idointervallumon kivul esik.
Pl a user azt mondja, hogy a kovetkezo X napra esedekes teteleket szeretne latni. Ilyenkor a makro egyik funkcioja megvizsgalja, a tablaban levo datum kisebb-e mint (mai nap + X), es ha a feltetel teljesul, torli azt a sort / rekordot a tablabol.
Sajnos valamilyen problema miatt a makro jelenleg keptelen kezelni az evvaltast, ha pl olyan teteleket kellene filterelni, ahol a datum mar jovo ev januar 1 re vagy az utan esik, akkor rengeteg potencialis tetelt kitorol.
Ha ezt a reszletet a makronak mai nap (dec 18) + 13 napra futtatom, jot mutat, ha mai nap + 14 re, akkor rosszat, kevesebb rekord marad az eredmeny listan mint kellene:
If Menu.CheckBoxDateRangeFilter.Value = True Then
lastrow = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Range("B2").Select
Do Until ActiveCell.Row > lastrow
If Range("B" & ActiveCell.Row).Value <> "" And Range("B" & ActiveCell.Row).Value <> "XYZ" And Format(Range("B" & ActiveCell.Row).Value, "mm/dd/yyyy") > Format(Now + Menu.TextBoxDaysAfter.Value, "mm/dd/yyyy") Then
Rows(ActiveCell.Row).Delete
lastrow = lastrow - 1
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End IfHa ezt a reszet kihaygom a futtatasbol, a tobbi formazos resz tokeletesen elfut. A menuben / urlapon gyakorlatilag ugyanez a formatum lett definialva a cellanak, tehat nem 2 kulonbozo formatum akad ossze.
Otlet, mi okozhatja ezt ?
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Játékkulcsok a legjobb áron: Steam
- Path of Exile 2 early access kulcs
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- 2db Intel D3-S4610 1.92TB 2.5" szerver SSD (4 órát ment)
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- BESZÁMÍTÁS! Asus B360M i7 9700 16GB DDR4 512GB SSD RX 6650 XT 8GB ZALMAN N4 600W
- LG 34WQ75X-B - 34" Ívelt IPS Panel - 3440x1440 2K QHD - 60Hz 5ms - FreeSync - USB Type-C 90W
- Okosóra felvásárlás!! Samsung Galaxy Watch 6, Samsung Galaxy Watch 7, Samsung Galaxy Watch Ultra
Állásajánlatok
Cég: FOTC
Város: Budapest