
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), ",", ".")
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


0