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

• #47388 Sprite75 tag

  Új Válasz 2021-09-15 13:56:28 #47388

  Ú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

  

  Sprite75

  tag

  Sziasztok

  Van egy ilyen kód az egyik táblázatomban a Rendelés lapon ami egy Combo boxban történő keresést működtet.
  
  Private Sub ComboBox1_Change()
    Dim i As Long
    
      If Not IsArrow Then
        With Me.ComboBox1
            .List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(20, .ListCount)
            .DropDown
            If Len(.Text) Then
                For i = .ListCount - 1 To 0 Step -1
                    If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                Next
                .DropDown
            End If
        End With
    End If
    
    On Error Resume Next
    i = Application.Match(Cells(1, 1), Columns(2), 0)
    If Not VarType(i) = vbError Then Cells(i, 3).Select
    On Error GoTo 0
   
   
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
End Sub

Private Sub ComboBox1_DropButtonClick()
    With Me.ComboBox1
        .List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
        .ListRows = Application.WorksheetFunction.Min(20, .ListCount)
        .DropDown
    End With
End Sub

  Viszont ugyanebben a táblázatban fut egy ilyen kód ami a táblázat 2 különböző lapjának PDF-be történő mentését futtatja 20 percennénk.

  Sub TimerPDFStart()
    If kovidoPDF > Now Then Exit Sub
    kovidoPDF = Now + TimeSerial(0, 20, 0)   '1 perces időzítési idő
    Application.OnTime kovidoPDF, "PDFautoment", , True
End Sub

  A problémám az, hogy ha épp nyitva van a Combo box, ép pont akkor jár le a 20 merc amikor a PDFautoment makró lefutna, akkor hibát amikor a PDFautoment át akar lépni egy másik munkalapra, hogy mentsen PDF-be (Sheets("Összesítve").Select)

  Meg lehet azt oldani hogy ha nyitva van a Combo box és épp akkor indítaná a TimerPDFStart() időzítő a mentést akkor az várakozzon amíg a combo box használata be nem fejeződik.

  Bocsi hogy egy kicsit hosszú lett.

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