traducir codigo de Vb en excel
Publicado por Mata7 (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 ThenMsgBox ("Sistema Activado")
Hoja1.Cells(7, 10) = ClaveAutorizada
ThisWorkbook.Save Else:MsgBox ("Clave Incorrecta contactar a: asesorjuanmanuel@hotmail.com")
ThisWorkbook.Save ThisWorkbook.CloseEnd 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
0
