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

• #4020 jobbi csendes tag Delila_1 #4018

  Új Válasz 2008-11-06 22:37:41 #4020

  Ú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

  

  jobbi

  csendes tag

  válasz Delila_1 #4018 üzenetére

  Ezzel a kiegészítéssel működik (feltéve, h a C3-as cellát nem használjuk semmire, de ha igen, akkor helyette lehet akár az IV65536 is):

  Private Sub Worksheet_Change(ByVal Target As Range)
  SOR = Target.Row
  OSZLOP = Target.Column
  If OSZLOP = 2 And Range("C3").Value <> "X" Then
  Range("C1").Value = "X"
  Range("B" & SOR) = Range("B" & SOR) / 24 / 60 + Range("A" & SOR)
  End If
  If OSZLOP = 2 Then
  Range("C1").Value = ""
  End If
  End Sub

  Csak azért írom, be hátha vki szintén akar hasonlót.

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