Como Crear formulario para macro con condiciones en celdas?
hola amigos Como puedo hacer para que se guarde la info atraves de un formulario y la gente no tenga que ingresar los datos celda por celda PERO respetando las reglas de la macro que ya tengo??.
Solo como nota la macro que tengo tiene como fin registrar la hora de inicio y una hora final el de inicio es la columna B y la final es la columna O. Como puedo hacer para que el formulario inicie solicitando el dato de la columna B y cierre preguntando el dato de la Columna O ???? Argadeceria mucho sus comentarios y aportaciones la verdad es que no soy programador y esto me esta causando mucho rebuscar. SALUDOS!!!
CODE:::
Private Sub Worksheet_Change(ByVal Target As Range)
pwd = "abc"
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
ActiveSheet.Unprotect pwd
Range("J" & Target.Row) = Date
Range("K" & Target.Row) = Format(Now, "hh:mm")
If Target.Value <> "" Then
Target.Locked = True
Cells(Target.Row, "K").Locked = True
Cells(Target.Row, "L").Locked = True
End If
ActiveSheet.Protect pwd
End If
If Not Application.Intersect(Target, Range("O:O")) Is Nothing Then
ActiveSheet.Unprotect pwd
Range("L" & Target.Row) = Format(Now, "hh:mm")
Target.Locked = True
Cells(Target.Row, "M").Locked = True
ActiveSheet.Protect pwd
End If
End Sub