Excel - CÓDIGO NO FUNCIONA !!! AYUDA POR FAVOR !!!

   
Vista:

CÓDIGO NO FUNCIONA !!! AYUDA POR FAVOR !!!

Publicado por Giancarlo Jose (46 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 ???

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder