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

• #22738 Delila_1 veterán slashing #22737

  Új Válasz 2014-08-04 07:53:03 #22738

  Ú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

  

  Delila_1

  veterán

  válasz slashing #22737 üzenetére

  Laphoz rendeld a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim perc As Double
  Dim szog As Double
  
  If Target.Column = 1 Then
  Application.EnableEvents = False
  
  szog = Left(Target, InStr(Target, " "))
  perc = Mid(Target, InStr(Target, " "))
  
  Range("D9") = szog + perc / 60
  Application.EnableEvents = True
  End If
  End Sub

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