You are here:---Rispondi a: blocco elenco
Rispondi a: blocco elenco2018-06-05T12:56:23+02:00

Home Forum Domande su Excel Generale blocco elenco Rispondi a: blocco elenco

Avatarmudu74
Partecipante
    Post totali: 14

    Questo qui sotto che si trova nel foglio1 (dove hai scritto anche il tuo codice)
    che automatizzava alcune colonne tra G ed N

     

    Private Sub Worksheet_Change2(ByVal Target As Range)

    ThisWorkbook.opavv = Now()

    Dim giorno As Date

    Dim parola As String

    Dim v As Integer

    giorno = DateAdd(“h”, -6, Now())

    If (Target.Columns.Count > 1) Or (Target.Rows.Count > 1) Then

    Exit Sub

    End If

    If Target.Column = 1 And Not (Target.Value = “”) Then

    If Cells(Target.Row, 7).Value = “” Then

    parola = Strings.Right(“0” & Day(giorno), 2) & “/” & Strings.Right(“0” & Month(giorno), 2) & “/” & Strings.Right(Year(giorno), 2)

    Cells(Target.Row, 7).Value = “‘” & parola

    Target.Worksheet.Unprotect (“tef”)

    With Cells(Target.Row, 6)

    .ClearComments

    .AddComment

    .Comment.Visible = False

    .Comment.Text Text:=”F – Ferma” & vbCrLf & “M – Monitorare” & vbCrLf & “P – Provare” & vbCrLf & “L – Lavora” & vbCrLf & “PE – Programmato Elettrico” & vbCrLf & “PM – Programmato Meccanico”

    .Comment.Shape.Height = 80

    .Comment.Shape.Width = 140

    End With

    Target.Worksheet.Protect (“tef”)

    End If

    If Cells(Target.Row, 8).Value = “” Then

    Cells(Target.Row, 8).Value = (Int(Hour(giorno) / 8) + 1) & “°”

    End If

    ElseIf Target.Column = 1 And (Target.Value = “”) Then

    Cells(Target.Row, 7).Value = “”

    Cells(Target.Row, 8).Value = “”

    Target.Worksheet.Unprotect (“tef”)

    Cells(Target.Row, 6).ClearComments

    Target.Worksheet.Protect (“tef”)

    ElseIf Target.Column = 5 Or Target.Column = 15 Then

    Target.Worksheet.Unprotect (“tef”)

    Rows(Target.Row).AutoFit

    Target.Worksheet.Protect (“tef”)

    ElseIf (Target.Column = 11 Or Target.Column = 12) And Cells(Target.Row, 11).Value <> “” And Cells(Target.Row, 12).Value <> “” Then

    If WorksheetFunction.IsNumber(Cells(Target.Row, 11).Value) And WorksheetFunction.IsNumber(Cells(Target.Row, 12).Value) Then

    oraini = Cells(Target.Row, 11).Value

    orafin = Cells(Target.Row, 12).Value

    Cells(Target.Row, 14).Value = orafin

    If oraini <= orafin Then

    Cells(Target.Row, 13).Value = (Int(orafin / 100) – Int(oraini / 100)) * 60 + orafin Mod 100 – oraini Mod 100

    Else

    Cells(Target.Row, 13).Value = (Int(orafin / 100) + 24 – Int(oraini / 100)) * 60 + orafin Mod 100 – oraini Mod 100

    End If

    End If

    End If

    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi