CÓDIGO NO FUNCIONA !!! AYUDA POR FAVOR !!!
Publicado por Giancarlo Jose (67 intervenciones) el 19/04/2016 15:31:14
HOLA A TODOS !!!
Tengo el siguiente codigo que supuestamente me deberia de jalar el nombre del usuario de la maquina en el campo B2 al modificar el N2, o B3 con N3 etc, pero no me jala el USUARIO ??? POR QUE ???
Tengo el siguiente codigo que supuestamente me deberia de jalar el nombre del usuario de la maquina en el campo B2 al modificar el N2, o B3 con N3 etc, pero no me jala el USUARIO ??? POR QUE ???
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Then Exit Sub
If Target.Column = 1 Then
If Cells(Target.Row, 1) <> "" Then
Cells(Target.Row, 3).Value = Date
Cells(Target.Row, 5).Value = Now
Else
Cells(Target.Row, 3).Value = ""
Cells(Target.Row, 5).Value = ""
End If
End If
If Target.Column = 12 Then
If Cells(Target.Row, 12) <> "" Then
Cells(Target.Row, 13).Value = Now
Cells(Target.Row, 14).FormulaR1C1 = "=IF(RC[-1]<>"""",""Han pasado ""&TEXT(RC[-1]-RC[-9],""[m]"")& "" minutos y ""& TEXT(RC[-1]-RC[-9],""ss"")& "" segundos"","""")"
Else
Cells(Target.Row, 13).Value = ""
End If
End If
If Target.Column = 11 Then
Cells(Target.Row, 12).Value = ""
End If
If ThisWorkbook.ShowNameUser = True And Target.Address = "$N$2" Then
ThisWorkbook.ShowNameUser = False
Cells(1, 1).Value = ThisWorkbook.Usuario
ElseIf ThisWorkbook.ShowNameUser = True And Target.Address = "$B$2" Then
ThisWorkbook.ShowNameUser = False
Cells(1, 1).Value = ThisWorkbook.Usuario
Else
ThisWorkbook.ShowNameUser = True
End If
End Sub
Valora esta pregunta
0