Keresés: - Visual Basic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#3089 Zalanius tag Lokids #3088

Új Válasz 2019-02-13 13:33:16 #3089
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Zalanius

tag

válasz Lokids #3088 üzenetére

Szerintem elég egy If, ha a pénteket vesszük bázisnak, és jól értelmeztem az eddigieket, azaz február 9-15. között kell március 1-jét kihozni. Ha az az egy If nincs, akkor is csak péntekenként ugrana +1 hetet. Excel-VBA-ban valahogy így:
Dim fri%, add%, d1 As Date, d2 As Date fri = Weekday(Now, vbFriday) add = 14 If fri <> 1 Then add = add + 8 - fri d1 = Now d2 = DateAdd("d", add, d1) MsgBox d2
#3087 Petya25 őstag Lokids #3086

Új Válasz 2019-02-13 11:15:07 #3087
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Petya25

őstag

válasz Lokids #3086 üzenetére

Datepart-tal visszaállnék az aktuális hét hétfőre és +11.
Persze az akt hét péntek +7 is működik.
#3084 Lokids addikt Lokids #3083

Új Válasz 2019-01-09 15:20:57 #3084
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Lokids

addikt

válasz Lokids #3083 üzenetére

Nemtudom szerkeszteni már.
SSL- > False. Akkor megy.
Pedig telnet ssl-el ment. Furcsa.
Mostmár csak az .AddAttachments FilePath & Filename paranccsal van gond. azt írja not supported.
#3082 sztanozs veterán Lokids #3081

Új Válasz 2019-01-09 14:57:04 #3082
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #3081 üzenetére

On Error Resume Next
Ezt vedd ki és nézd meg milyen hibát dob.
#3080 sztanozs veterán Lokids #3079

Új Válasz 2019-01-09 14:35:22 #3080
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #3079 üzenetére

SMTP SSL valószínüleg nem ezen a porton fut, az is biztosan jó?
#3078 Zalanius tag Lokids #3077

Új Válasz 2019-01-09 12:26:06 #3078
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Zalanius

tag

válasz Lokids #3077 üzenetére

1-2 ötlet:
1. mintha nem volna a config hozzárendelve cdoMail objectedhez. Valami ilyesmit hiányolok:
Set cdoMail.Configuration = cdoConf
Amúgy és a továbblépéshez:
- attachment nélkül megy?
- próbáld ki a .Update beillesztését is még a config blokkjának a végén
- ugye próba esetén már nem maradnak kommentben az autentikációs sorok
Végül pedig: mit mond az Err? Lehetne mondjuk egy Goto címkés blokk az onerrornál, amiben érdemes megnézni, hogy mi az Err.Description
#3037 Delila_1 veterán Lokids #3036

Új Válasz 2018-04-26 14:03:34 #3037
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Lokids #3036 üzenetére

Az R kiinduló cellához képest a sor eltolását mutatja, a C pedig az oszlopét. Az eltolás mértéke a szögletes zárójelek közé írt érték. Ha nincs az R és/vagy a C után zárójeles érték, akkor a kiinduló cellával azonos sorról/oszlopról van szó. Ha zárójelek nélkül szerepel egy szám az R, ill. C mögött, az fix hivatkozást jelent.
R[-3]C[5] az aktív (vagy hivatkozott) cella fölötti 3. sor, és a tőle jobbra lévő 5. oszlop celláját jelöli.
RC[2] aktív cella sorában, tőle 2 oszloppal jobbra lévő cella.
A Range("G" & sor) = "=sum(RC1:RC5)" összegzi a sor A:F celláinak az értékét.
#3035 sztanozs veterán Lokids #3034

Új Válasz 2018-04-25 17:09:24 #3035
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #3034 üzenetére

Kapcsold ki az R1C1-et a beállításokban, és akkor rendesen mutatja majd:
#3033 sztanozs veterán Lokids #3030

Új Válasz 2018-04-25 15:45:50 #3033
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #3030 üzenetére

van az "F: "-ben a kettőspont után egy space
#3031 Delila_1 veterán Lokids #3030

Új Válasz 2018-04-25 15:33:15 #3031
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Lokids #3030 üzenetére

Esetleg a RowStart vagy a Rowend nem szám. Szorozd meg 1-gyel a változót.
#3025 Delila_1 veterán Lokids #3024

Új Válasz 2018-04-16 16:47:15 #3025
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Lokids #3024 üzenetére

Magyar függvények angol megfelelőjét így tudhatod meg:
Beírod a lapra a függvényt – persze úgy, hogy működjön is, helyes hivatkozásokkal.
Lapfülön jobb klikk, Beszúrás, Nemzetközi makrólap. Az új lapra átmásolod az előbbi függvényt, a hivatkozott cellákkal együtt. Megkapod az angol elnevezést.
#3024 Lokids addikt Lokids #3023

Új Válasz 2018-04-16 14:01:55 #3024
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Lokids

addikt

válasz Lokids #3023 üzenetére

Azt a jó édes...
Mert persze, hogy a MAGYAR OFFICE mellé a VB ANGOL nyelvű (ami a része), és nem érti, hogy milyen függvényeket akarok használni.
#2983 vilag tag Lokids #2982

Új Válasz 2018-01-08 12:01:50 #2983
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vilag

tag

válasz Lokids #2982 üzenetére

Minden fájlnak más neve lesz a mentéskor.
Ez mennyiben módosítja a dolgot?
#2980 sztanozs veterán Lokids #2979

Új Válasz 2017-12-21 11:43:08 #2980
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #2979 üzenetére

Ahogy nézem SortFields-be megadott range nem lehet több oszlop széles. Vsz ez a problémája.
Ha több oszlop szerint szeretnél rendezni, akkor mindet egyesével hozzá kell adni.
Majd miután beállítottad a rendezési feltételeket, jöhet a Sort parancs.
Valahogy így:
Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort. _ SortFields.Add Key:=Range(Range("A2:A" & s_OutRow)), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort.SetRange Range("A2:" & HeaderKAT_Last_Col & s_OutRow)
#2979 Lokids addikt Lokids #2975

Új Válasz 2017-12-21 11:34:44 #2979
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Lokids

addikt

válasz Lokids #2975 üzenetére

Már nem tudom szerkeszteni.
Ez nem jó.
Set WBRange = Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Range("A2:" & HeaderKAT_Last_Col & s_OutRow) Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort.SortFields.Add Key:=Range(WBRange & "[" & "Projekt neve" & "]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Ez meg miért jó?
Range("A2").Select ActiveWorkbook.Worksheets("VIGKAT").Sort.SortFields.Add Key:=Range("A2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
#2977 sztanozs veterán Lokids #2975

Új Válasz 2017-12-21 11:18:35 #2977
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #2975 üzenetére

~~Megírod ide, hogy szeretnéd töröltetni: link~~
Biztos, hogy a range-et jól veszi fel ez a sor:
Set WBRange = Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Range("A2:" & HeaderKAT_Last_Col & s_OutRow)
Nézz rá debuggerben.
#2976 vilag tag Lokids #2975

Új Válasz 2017-12-21 11:17:00 #2976
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vilag

tag

válasz Lokids #2975 üzenetére

Szerintem sehogyan.
#2968 csaszizoltan csendes tag Lokids #2965

Új Válasz 2017-12-14 10:27:57 #2968
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

csaszizoltan

csendes tag

válasz Lokids #2965 üzenetére

És így?
Egyébként az biztos, hogy egy szóközt egy üres stringgé kell átalakítania a replace-nek, mindenhol mindenképp az előbbi szerint próbáld.
Dim s_Cell As Range Set s_Cell = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(p_SrcRow, s_CNum) s_Cell.Value = Replace(s_Cell.Value, " ", "")
#2966 sztanozs veterán Lokids #2965

Új Válasz 2017-12-14 09:59:59 #2966
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

sztanozs

veterán

válasz Lokids #2965 üzenetére

Szerintem nem space van ott, hanem nbsp - CHAR(160). Azt nem vágja a trim és nem kapja fel a " ".
#2963 vilag tag Lokids #2961

Új Válasz 2017-12-14 07:06:51 #2963
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vilag

tag

válasz Lokids #2961 üzenetére

Esetleg Trim(Str(s_Cell))
#2962 csaszizoltan csendes tag Lokids #2961

Új Válasz 2017-12-13 23:14:33 #2962
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

csaszizoltan

csendes tag

válasz Lokids #2961 üzenetére

Egy szóközhöz az üres stringet kell replace-elni, akkor működik.
s_Cell.value = Replace(s_Cell, " ", "")
#2950 Delila_1 veterán Lokids #2949

Új Válasz 2017-12-11 12:58:55 #2950
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Lokids #2949 üzenetére

Valahol elvész a változó értéke. Lépésenként futtatva megtalálod az eltűnés helyét. Valószínűleg nem publikusként deklaráltad a változó(ka)t, vagy a 2. makró meghívásánál elmulasztottad a változó(k) átadását.
Ha "Konkrétan az mindig "A" lesz.", akkor miért teszed változóba, mikor fixen is megadhatnád, és nem foglalnád vele a memóriában a helyet?
#2948 Delila_1 veterán Lokids #2947

Új Válasz 2017-12-11 12:36:46 #2948
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz Lokids #2947 üzenetére

Akkor van bibi, ha a HeaderKAT_Frst_Col változó értéke szám.
Szám esetén
Set változó=range(cells(sor1, oszlop1), cells(sor2, oszlop2) ) formában adhatsz értéket.