jeg har oprettet en liste over nogle maskiner der skal eftesynes på forskellige tidspunkter. hver maskine er makeret med en farve. ved siden af (i samme worksheet) har jeg en kalender. det jeg ønsker er at hver gang jeg trykker på en celle(maskinnavn). skal jeg kunne makere en celle i kalenderen bare ved at trykke på den pågældende datocelle . er der nogen der kan hjælpe med at skrive en kode?
Koden er anbragt under det relevante ark med MakskinNavn i A og Eftersynsdato i B og Kalender
Dim maskinRække As Long, dato As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row >= 3 And Target.Row <= 11 And _ Target.Column >= 3 And Target.Column <= 9 And _ IsNumeric(Target.Value) And Target.Value <> "" = True Then dato = Target.Value & ". " & Range("C1")
If maskinRække > 0 Then Cells(maskinRække, 2) = dato maskinRække = 0 End If Else If Target.Column = 1 Then maskinRække = Target.Row End If End If End Sub
Rem Version 2 Rem Sæt x i maskinrækken og klik på kalenderdato (Enter er ikke nødvendigt)
Dim maskinCelle As String Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 15 And Target.Row <= 30 And Target = "x" Then maskinCelle = Target.Address End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row >= 1 And Target.Row <= 12 And Target.Value <> "" And maskinCelle <> "" Then Range(maskinCelle) = Format(Target.Value, "mm-dd") maskinCelle = "" End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
