Excel - traducir codigo de Vb en excel

   
Vista:

traducir codigo de Vb en excel

Publicado por Mata7 hansqbaa@gmail.com (1 intervención) el 13/01/2015 20:28:18
Buenas tardes, quisiera q alguien me ayudara a traducir estos codigos por favor, es decir decirm q significa. Gracias de antemano..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ClaveAutorizada = Int(NserieNuevo / 23) - 51327
 If Hoja1.Cells(7, 10) <> ClaveAutorizada Then
   ClaveUsuario = Val(InputBox("No de Serie: " & NserieNuevo & " Escriba la clave autorizada"))
   If ClaveUsuario = ClaveAutorizada Then
    MsgBox ("Sistema Activado")
    Hoja1.Cells(7, 10) = ClaveAutorizada
    ThisWorkbook.Save
    Else:
    MsgBox ("Clave Incorrecta contactar a: asesorjuanmanuel@hotmail.com")
    ThisWorkbook.Save
    ThisWorkbook.Close
   End If
 End If
 
 Range("Z1").Select
 ActiveCell.FormulaR1C1 = "Módulo de inventario y facturación"
 Range("Z2").Select
 ActiveCell.FormulaR1C1 = " "
 Range("D5").Select
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
Imágen de perfil de xve

traducir codigo de Vb en excel

Publicado por xve (63 intervenciones) el 14/01/2015 07:22:54
Hola Mata, este código es bastante sencillo...

si el valor de la celda 7,10 de la Hoja1 es diferente de ClaveAutorizada solicita un numero de serie...

Busca la variable NserieNuevo para saber el valor que tiene que tener la celda 7,10
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar