Hola a todos,
Estoy haciendo un programa en Visual Basic para Excel 2003 que lee datos en la variable Valor_Celda en letras de la hoja1 y quiero que al salir de la Subrutina "Equivalente" salga su equivalente en numeros, el problema que tengo es que cuando regresa de la subrutina, el valor de la variable Dec_Unid es "vacio", aqui el código:
Private Sub Actualizar_Click()
Dim Valor_celda as variant
Dim Dec_Unid as integer
For n=0 to 10
Valor_celda=ActiveSheet.Cells(1, 3 + n)
Call Equivalente(Valor_celda, Dec_Unid)
Next n
End Sub
---------------------------------------------------------------------------------------
Public Sub Equivalente(ByVal Valor_celda As String, ByVal Dec_Unid As Integer)
Select Case Valor_celda
Case 0
Valor_celda = "PEDRO"
Case 1
Valor_celda = "JOSE"
Case 2
Valor_celda = "JUAN"
Case 3
Valor_celda = "MARIA"
Case 4
Valor_celda = "LUISA"
Case Else
Stop
End Select
End Sub
¿Alguna idea?, Gracias de antemano.
