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

• Zalanius tag

  #3089

  #3088 Lokids

  2019-02-13 13:33:16

  Új Válasz

  Ú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

  

  Zalanius

  tag

  #3088 Lokids

  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

• Petya25 őstag

  #3087

  #3086 Lokids

  2019-02-13 11:15:07

  Új Válasz

  Ú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

  

  Petya25

  őstag

  #3086 Lokids

  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.

• Lokids addikt

  #3084

  #3083 Lokids

  2019-01-09 15:20:57

  Új Válasz

  Ú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

  

  Lokids

  addikt

  #3083 Lokids

  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.

• sztanozs veterán

  #3082

  #3081 Lokids

  2019-01-09 14:57:04

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3081 Lokids

  
  On Error Resume Next

  Ezt vedd ki és nézd meg milyen hibát dob.

• sztanozs veterán

  #3080

  #3079 Lokids

  2019-01-09 14:35:22

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3079 Lokids

  SMTP SSL valószínüleg nem ezen a porton fut, az is biztosan jó?

• Zalanius tag

  #3078

  #3077 Lokids

  2019-01-09 12:26:06

  Új Válasz

  Ú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

  

  Zalanius

  tag

  #3077 Lokids

  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

• Delila_1 veterán

  #3037

  #3036 Lokids

  2018-04-26 14:03:34

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3036 Lokids

  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.

• sztanozs veterán

  #3035

  #3034 Lokids

  2018-04-25 17:09:24

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3034 Lokids

  Kapcsold ki az R1C1-et a beállításokban, és akkor rendesen mutatja majd:
  

• sztanozs veterán

  #3033

  #3030 Lokids

  2018-04-25 15:45:50

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3030 Lokids

  van az "F: "-ben a kettőspont után egy space

• Delila_1 veterán

  #3031

  #3030 Lokids

  2018-04-25 15:33:15

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3030 Lokids

  Esetleg a RowStart vagy a Rowend nem szám. Szorozd meg 1-gyel a változót.

• Delila_1 veterán

  #3025

  #3024 Lokids

  2018-04-16 16:47:15

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3024 Lokids

  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.

• Lokids addikt

  #3024

  #3023 Lokids

  2018-04-16 14:01:55

  Új Válasz

  Ú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

  

  Lokids

  addikt

  #3023 Lokids

  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.

• vilag tag

  #2983

  #2982 Lokids

  2018-01-08 12:01:50

  Új Válasz

  Ú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

  

  vilag

  tag

  #2982 Lokids

  Minden fájlnak más neve lesz a mentéskor.
  Ez mennyiben módosítja a dolgot?

• sztanozs veterán

  #2980

  #2979 Lokids

  2017-12-21 11:43:08

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #2979 Lokids

  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)

• Lokids addikt

  #2979

  #2975 Lokids

  2017-12-21 11:34:44

  Új Válasz

  Ú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

  

  Lokids

  addikt

  #2975 Lokids

  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

• sztanozs veterán

  #2977

  #2975 Lokids

  2017-12-21 11:18:35

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #2975 Lokids

  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.

• vilag tag

  #2976

  #2975 Lokids

  2017-12-21 11:17:00

  Új Válasz

  Ú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

  

  vilag

  tag

  #2975 Lokids

  Szerintem sehogyan.

• csaszizoltan csendes tag

  #2968

  #2965 Lokids

  2017-12-14 10:27:57

  Új Válasz

  Ú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

  

  csaszizoltan

  csendes tag

  #2965 Lokids

  É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, " ", "")

• sztanozs veterán

  #2966

  #2965 Lokids

  2017-12-14 09:59:59

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #2965 Lokids

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

• vilag tag

  #2963

  #2961 Lokids

  2017-12-14 07:06:51

  Új Válasz

  Ú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

  

  vilag

  tag

  #2961 Lokids

  Esetleg Trim(Str(s_Cell))

• csaszizoltan csendes tag

  #2962

  #2961 Lokids

  2017-12-13 23:14:33

  Új Válasz

  Ú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

  

  csaszizoltan

  csendes tag

  #2961 Lokids

  Egy szóközhöz az üres stringet kell replace-elni, akkor működik.

  s_Cell.value = Replace(s_Cell, " ", "")

• Delila_1 veterán

  #2950

  #2949 Lokids

  2017-12-11 12:58:55

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2949 Lokids

  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?

• Delila_1 veterán

  #2948

  #2947 Lokids

  2017-12-11 12:36:46

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2947 Lokids

  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.

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