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

• zsolti_20 senior tag

  #44898

  #44897 Sprite75

  2020-09-22 22:23: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

  

  zsolti_20

  senior tag

  #44897 Sprite75

  #44897 Sprite75

  Sajnos hibaüzenetet kapok a táblázat bezárásakor.
  Hiba
  Beirtam hogy
  Public kovido As Date
  Valamit az egyik időzítő makró első sorába ezt
  If kovido>Now Then Exit Sub

  Nem az a gond, hogy ugye két időzítő is van, az egyik 2 percenként a másik 15 percenként ?
  Azt hogyan kellene hogy mindkét időzítőt leállítsa bezáráskor?

  Sikerült közben VBA-val megoldanom. Bemásolom ide hátha valakinek hasznos lesz még.

  Sub kecske()
Dim i As Integer
Dim x As Long
Dim counter As Integer
    
counter = 10
For i = 9 To 20
x = Range("E" & i & ":J" & i).SpecialCells(xlCellTypeBlanks).Count
Cells(i, 1).Value = x
If x < 6 Then
    Range("D" & i & ":J" & i).Copy
    Range("AA" & counter).PasteSpecial Paste:=xlPasteValues
    
counter = counter + 1
End If
    
Next i
End Sub

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