Visual Basic.NET - duda sobre llamar una constante

 
Vista:
sin imagen de perfil

duda sobre llamar una constante

Publicado por mario (1 intervención) el 04/03/2015 20:15:47
tengo una duda estoy haciendo un macro en excel con la opcion de programador, y nunca antes lo habia usado.
y me surge el siguiente problema

cree una constante que quiero que tenga el valor de la celda de la cual leera datos para luego guardar a la base de datos.
sin constantes funciona bien, el problema es que no logro llamarla

en esta linea es el error = "fecha = Format(HojaFechas.Cells(fecha_celda), "yyyymmdd")"

lo que quiero es que llame el 4,2 asi tal cual asi cuando alguien tenga que modificar el codigo solo modifique lo puesto en la constante en al momento en que una celda de excel sea movida.

osea en ves de que sea : hora_inicio = Replace(HojaFechas.Cells(4, 3), ",", ".")
que sea: hora_inicio = Replace(HojaFechas.Cells(Hora_celda), ",", ".")

Const fecha_celda As String = "4, 2 "
'-----------<Variables>----------

'Declaracion de hojas
Dim HojaFechas As Range

'Datos sacados de hoja "DATOS AUDITADOS"
Dim fecha
Dim hora_inicio As Variant
Dim hora_fin As Variant
Dim asunto

'-----------<Fin Variables>----------------------------

Sub Consolidar_Resultados()

'-----------<Definicion Hojas de Trabajo>--------------
Set HojaFechas = Sheets("Fechas").Range("A1:F5")

'-----------<Fin Definicion Hojas de Trabajo>----------

'-----------< Extraccion de Datos>---------------------

fecha = Format(HojaFechas.Cells(fecha_celda), "yyyymmdd")
hora_inicio = Replace(HojaFechas.Cells(4, 3), ",", ".")
hora_fin = Replace(HojaFechas.Cells(4, 4), ",", ".")
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