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

• #27420 scott_free senior tag

  Új Válasz 2015-06-18 08:22:03 #27420

  Ú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

  

  scott_free

  senior tag

  jó reggelt,

  ez a makró így rendben van, vagy kell esetleg még valamit beleírnom?
  (működni működik: időbélyeget ad egy táblázatba adott érték elérésekor)

  Private Sub WorkSheet_Calculate()
  Dim i As Integer
  Dim j As Integer
  Dim r As Integer
  For i = 2 To 15
  If Cells(i, 1) <> 0 Then
  For j = 1 To 5
  If j = 1 Then r = 20 Else: r = 0
  If Cells(i, 1) >= (10 * 2 ^ j - r) And Cells(i, 1) < (10 * 2 ^ (j + 1)) Then
  If Cells(i, j + 1) = 0 Then
  Cells(i, j + 1) = Now()
  End If
  End If
  Next j
  End If
  Next i
  End Sub

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