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

• Lokids addikt

  #3090

  #3089 Zalanius

  2019-02-13 15:46: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

  

  Lokids

  addikt

  #3089 Zalanius

  #3089 Zalanius

  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

  Köszi. Így jó.

• Lokids addikt

  #3088

  #3087 Petya25

  2019-02-13 11:49:14

  Ú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

  #3087 Petya25

  #3087 Petya25

  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.

  Ezt kifejtenéd kicsit bővebben? Mert én jelenleg ilyesmin gondolkodom, de ez nem túl szép megoldás:

  If (Weekday(Now(), vbMonday) = 1) Then
  else if = 2 then dateadd (valamennyi)
  else if = 3 stb...

  De mind az 5 napra külön elseif-et írni nem tűnik valami jó megoldásnak.

• Lokids addikt

  #3086 2019-02-13 11:10:21

  Ú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

  Sziasztok!

  Hogy oldanátok meg azt a problémát, hogy nekem két dátum közötti időpontba eső dolgok kellenek.
  Az első a most (now), az rendben, de a másik az +2 hét péntek. Azaz ha ezt pénteken futtatom le, akkor könnyű, mert csak 2 hetet kellene hozzáadni, de ha hétfőn, akkor majdnem 3 hetet (az a hét + 2 hét péntekig).
  Ezt a második dátumot hogy lehet letárolni egy változóba?

• 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

  #3083 Lokids

  Ohh hogyaza, azt elfelejtettem kivenni.

  Transport failed to connect server.

  Dejó.

  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.

• Lokids addikt

  #3083

  #3082 sztanozs

  2019-01-09 15:13: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

  

  Lokids

  addikt

  #3082 sztanozs

  #3082 sztanozs

  
  On Error Resume Next

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

  Ohh hogyaza, azt elfelejtettem kivenni.

  Transport failed to connect server.

  Dejó.

• Lokids addikt

  #3081

  #3080 sztanozs

  2019-01-09 14:52:45

  Ú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

  #3080 sztanozs

  #3080 sztanozs

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

  Igen. telnettel jó.

  De itt olyan,mintha az excel nem is ismerné fel ezeket a parancsokat. Nem javítja, hogy kis vagy nagybetű, meg ilyenek. 0 hiba. még ha tök értelmetlen valamit írok is bele. Pl a send elé odaírom, hogy .asdfsfhegsd, az se fut hibára.

• Lokids addikt

  #3079

  #3078 Zalanius

  2019-01-09 12:43:54

  Ú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

  #3078 Zalanius

  #3078 Zalanius

  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

  Attachment nélkül sem megy, updatet is hozzáadtam, meg a config sort is. És persze nincs kommentezve az auth sem, csak már a nélkül is próbáltam.

  De a legrosszabb, hogy semmi hibát nem dob. Végig fut, mintha nem lenne gond.

• Lokids addikt

  #3077 2019-01-09 11:49: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

  

  Lokids

  addikt

  Sziasztok!

  Próbálok CDO-val emailt küldeni, de valahogy nem akar működni.
  Mi lehet a gond?

  Sub Send_Result_MailSMTP( _
ByRef p_FullName As String, _
ByRef p_Dat As String)

Dim cdoMail As Object
Dim cdoConf As Object

Dim Wb1 As Workbook
Dim FilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim Flds As Variant

Set Wb1 = ActiveWorkbook


FilePath = "C:\Temp\"
Filename = p_FullName

Workbooks(OutputMon_F_Name).SaveAs Filename:=FilePath & Filename

Set cdoMail = CreateObject("CDO.Message")
Set cdoConf = CreateObject("CDO.Configuration")

Set Flds = cdoConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = webmail.mycompany.local
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
End With


On Error Resume Next
With cdoMail

.From = "myname@email.hu"
.To = "myname@email.hu"
'.CC = SendMail_CC
.Subject = "Monitoring - " & p_Dat
.HtmlBody = "<!DOCTYPE html><html><body><p style=""font-family:'Lucida Consolas', monospace""><pre>" & _
"A mellékelt táblázat a Sharepoint felületen rögzített Monitoring feladatok alapján készült.<br><br></body> </html>"

.AddAttachments FilePath & Filename
.Send
End With

Set cdoMail = Nothing
Set cdoConf = Nothing
Set Flds = Nothing
End Sub

• Lokids addikt

  #3036

  #3035 sztanozs

  2018-04-26 09:39:01

  Ú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

  #3035 sztanozs

  #3035 sztanozs

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

  Ez a beállítsá alapból ki van szedve. Viszont a makró az akkor is abban rögzít.

• Lokids addikt

  #3034

  #3033 sztanozs

  2018-04-25 16:12:28

  Ú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

  #3033 sztanozs

  #3033 sztanozs

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

  

  Azt tudja valaki, hogy lehet makrózni azt, hogy adja össze az összes Sum-ot?
  A táblázat összegeket számol, sorokban projektenként van egy összegzés.
  De kellene raknom a végére egy végösszeget, ami összeadja az összes sum-ot.
  Ha z excelben rákattintok a sum-ra, akkor ő okosan kijelöli nekem a már Sum-ot tartalmazó cellákat. De a képletbe valami Formula R1C1 cucc van, amit nem értek.

• Lokids addikt

  #3032

  #3031 Delila_1

  2018-04-25 15:38: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

  

  Lokids

  addikt

  #3031 Delila_1

  #3031 Delila_1

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

  Mind a kettő integer.

  Áthidaltam úgy, hogy előtte egy stringbe átrakom az egészet és azt teszem bele a sum-ba. Csak az ugye +1 sor.

• Lokids addikt

  #3030 2018-04-25 14:16:40

  Ú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

  Sziasztok!

  Mi a hiba itt? Nem tudok rájönni.

  Workbooks(Output_F_Name).Worksheets(s_wsName).Range("F" & s_OutRow).Formula = "=Sum(F" & RowStart & ":F " & Rowend & ")"

  Első körben az F28-at kellene összeadnia. Ha nem változót írok bele, akkor meg is csinálja.
  A változók megfelelő értéket kapnak.

• 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

  #3023 Lokids

  Sziasztok!

  Szeretnék csinálni egy Érvényesítési beállítást egy cellába makróval:

  Sub Makró2()
Range("B11:B16").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=INDIREKT(HELYETTE(HELYETTE(C8;"","";"""");"" "";""""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
  ez hibára fut: 1004. Application-defined or object defined error.

  Azért furcsa, mert ezt a makró rögzítővel csináltam. Ha végigkattintom az érvényesítés menüt és beírom a képletet, akkor megcsinálja.

  =INDIREKT(HELYETTE(HELYETTE(C8;",";"");" ";""))

  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.

• Lokids addikt

  #3023 2018-04-16 13:04:37

  Ú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

  Sziasztok!

  Szeretnék csinálni egy Érvényesítési beállítást egy cellába makróval:

  Sub Makró2()
Range("B11:B16").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=INDIREKT(HELYETTE(HELYETTE(C8;"","";"""");"" "";""""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
  ez hibára fut: 1004. Application-defined or object defined error.

  Azért furcsa, mert ezt a makró rögzítővel csináltam. Ha végigkattintom az érvényesítés menüt és beírom a képletet, akkor megcsinálja.

  =INDIREKT(HELYETTE(HELYETTE(C8;",";"");" ";""))

• Lokids addikt

  #2982

  #2981 vilag

  2017-12-21 12:50:30

  Ú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

  #2981 vilag

  #2981 vilag

  Valakinek van ötlete hivatkozott problémával kapcsolatban?

  +1 kérdés:
  Adott egy munkafüzet aminek az egyik lapját (vagy annak tartalmát) másolom egy új munkafüzetbe és mentetem el kód segítségével.
  Szerencsére a munkalapon lévő gomb (és a hozzá tartozó kód is) megye vele.

  Meg lehet-e valahogyan oldani, hogy az újonnan létrejövő munkafüzet "ThisWorkbook"-jába kódot helyezzek el?

  Oda szeretném megírni, hogy bezárás előtt ne dobjon fel hibaüzenetet, hanem mindent figyelmen kívül hagyva zárja be.
  Nevezetesen: Application.Displayalerts = False

  A gombnyomásra lefutó makró miatt ugyan is bezárás előtt megkérdezi, hogy akarok-e menteni.
  Ezt viszont nem szeretném, mert a felhasználók amúgy sem tudnak beleírni a munkafüzetbe, így semmi szükség erre, csak összezavarja szegényeket...

  Sajnos ebben a formában eredménytelen:
  Private Sub CommandButton1_Click()

ActiveSheet.PrintOut Copies:=2, Collate:=True
Application.DisplayAlerts = False


End Sub

  kell egy savechange False:

  Workbooks(WS).Close savechanges:=False

  Ha a neve állandó, akkor egyszerű.

• 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

  #2975 Lokids

  Ne ezzel mi a gond? Mi az, hogy _Global failed?

  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), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

  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

• Lokids addikt

  #2978

  #2977 sztanozs

  2017-12-21 11:20:41

  Ú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

  #2977 sztanozs

  #2977 sztanozs

  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.

  Ahh. oké.

  De inkább felülírtam.

• Lokids addikt

  #2975 2017-12-21 11:10:23

  Ú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

  Ne ezzel mi a gond? Mi az, hogy _Global failed?

  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), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

• Lokids addikt

  #2967

  #2966 sztanozs

  2017-12-14 10:02:53

  Ú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

  #2966 sztanozs

  #2966 sztanozs

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

  Ez nagyon is lehetséges.
  Azt mivel lehet kiszedni?

  megvan:
  Replace(s_Cell, Chr(160), "")

  Köszönöm. Eddig nem is tudtam, hogy létezik ilyen.

• Lokids addikt

  #2965

  #2962 csaszizoltan

  2017-12-14 08:45:38

  Ú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

  #2962 csaszizoltan

  #2962 csaszizoltan

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

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

  De ezt próbáltam. És nem működik.

• Lokids addikt

  #2961 2017-12-13 15:47: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

  Meg tudja valaki mondani, hogy tudom a szóközöket eltávolítani egy cellából.
  Pl: cella értéke: 101 101 101
  És ez kellene legyen: 101101101

  Az spacek miatt nem húzza rá a pénznem formát, így ki kéne szednem a szóközöket.
  Se a trim, se a replace nem működik.

  s_Cell.value = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(p_SrcRow, s_CNum)
s_Cell.value = Replace(s_Cell, " ", " ")
s_Cell.value = WorksheetFunction.Trim(s_Cell)

  A google találatokban ezt a két módszert láttam megoldásra.

• Lokids addikt

  #2951

  #2950 Delila_1

  2017-12-11 13:05:10

  Ú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

  #2950 Delila_1

  #2950 Delila_1

  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?

  Azt hiszem megvan a hiba.

  Van a fenti részben egy feltétel. "If actrow = 2 then"
  Na ide nem lép be, hogyha a fenti rész lefut. Ezért kiakad a második résznél.
  Azt az If-et a Range léptetés elé téve működik.
  De jellemző, hogy az után veszem észre, hogy felteszem a kérdést. Nem az előtte lévő 1 órában.

• Lokids addikt

  #2949

  #2948 Delila_1

  2017-12-11 12:49: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

  #2948 Delila_1

  #2948 Delila_1

  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.

  Sajnos nem szám, hanem betű a változó értéke.
  Konkrétan az mindig "A" lesz.

  És működött, amíg az elsőt nem írtam bele a programba.

• Lokids addikt

  #2947 2017-12-11 10:54:58

  Ú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

  Sziasztok!

  Miért lehet az, hogy 2 látszólag egymástól független range változó Subscript out of range hibát okoz?

  Set s_PrjRng = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)

For actRow = 2 To 95 'InputTRows
s_PrjName = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Projname))
For Each s_prng In s_PrjRng 'Workbooks(Main_WB_Name).Worksheets(KAT_WB_Projects_Sheet).Range(NotNeeded_Prj_Name)
If s_PrjName = s_prng.value Then
i = i + 1
End If
Next s_prng

s_Status = Workbooks(Input_F_Name).Worksheets(Input_KATWS_Name).Cells(actRow, ColumnLetterToNumber(Data_KAT_Stat))

If (s_Status <> "5 - Lezárt") And (s_Status <> "4 - Zárás") And (i = 1) Then
If actRow = 2 Then
Workbooks(OutputKAT_F_Name).Worksheets(1).Name = Left(s_wsName, 31) '2017.09.26
Write_Header5 OutputKAT_F_Name, s_wsName
End If
CopyRow OutputKAT_F_Name, s_wsName, s_OutRow, actRow
s_OutRow = s_OutRow + 1
End If
i = 1
Next actRow

  Ez meghívja a CopyRow-ot, amin belül pedig van egy ilyen rész:

  Set s_RowRange = Workbooks(p_WB).Worksheets(p_WS).Range(HeaderKAT_Frst_Col & p_Row & ":" & HeaderKAT_Last_Col & p_Row)

For Each s_Cell In s_RowRange
s_CNum = Workbooks(Main_WB_Name).Worksheets(KAT_WB_Head_Sheet).Cells(4, s_Cell.Column)

  Ez utóbbi jól működött egészen addig, amíg a fenti Range bele nem került. Most a Set s_RowRange sornál hibát dob.

  És nem értem miért.

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