Error checking
Hola he creado un if, para saber si las celdas tienen un valor:
if worksheets(Hoja1).Range("A1") <> "" then bbb = activecell.formulaR1C1....
Me marca el siguiente error:
Empty cell references error checking is already enabled for cell A1
Me podrias ayudar diciendome su origen y la forma de corregirlo, de antemano gracias.
if worksheets(Hoja1).Range("A1") <> "" then bbb = activecell.formulaR1C1....
Me marca el siguiente error:
Empty cell references error checking is already enabled for cell A1
Me podrias ayudar diciendome su origen y la forma de corregirlo, de antemano gracias.
{"Lat":15.2841851140764,"Lng":-84.375}
1 respuesta
Respuesta de paramisolo
1
La sintaxis correcta es:
If Sheets("Hoja1").Range("A1") <>""
bbb = FormulaR1C1......
Range("A1") = bbb
>Un saludo
>Julio
If Sheets("Hoja1").Range("A1") <>""
bbb = FormulaR1C1......
Range("A1") = bbb
>Un saludo
>Julio
Gracias Julio, ya corregí, ¿ahora bien como puedo obtener la posición de la celda (columna y renglón) y guardarla en una variable?
En verdad mil gracias
En verdad mil gracias
La macro para identificar la celda activa es esta, pero ojo te lo muestra como celda relativa, te explico estarán precedido de los signo $. Si estamos en la celda D8 te recogerá la variable $D$8. Esto te servirá para dirigirte a otra celda o recoger el valor de la celda activa... etc, te la dejo por si lo que quieres es idenficar la celda vacía, si lo que quieres es identificar la celda activa solamente quita las ' (comilla simple) de las 3 lineas de código:
Sub identifica_fila()
'Que no se pare de buscar, hasta que no encuentre una fila vacía
'Do While Not IsEmpty(ActiveCell.Offset(0, 0))
'ActiveCell.Offset(1, 0).Select
'Loop
'ahora que estaremos parados en la celda vacía,
'sacamos la dirección de la celda
direccion = ActiveCell.Address
'como tenemos una referencia absoluta, del tipo $A$33
'le quitamos el primer signo del $ para que nos quede A$33
direccion = Mid(direccion, 2)
End Sub
La variable dirección te identifica la celda activa, ahora emplealá en lo que te interese.
>Un saludo
>Julio
Sub identifica_fila()
'Que no se pare de buscar, hasta que no encuentre una fila vacía
'Do While Not IsEmpty(ActiveCell.Offset(0, 0))
'ActiveCell.Offset(1, 0).Select
'Loop
'ahora que estaremos parados en la celda vacía,
'sacamos la dirección de la celda
direccion = ActiveCell.Address
'como tenemos una referencia absoluta, del tipo $A$33
'le quitamos el primer signo del $ para que nos quede A$33
direccion = Mid(direccion, 2)
End Sub
La variable dirección te identifica la celda activa, ahora emplealá en lo que te interese.
>Un saludo
>Julio
Mil gracias Julio, seguí tu consejo y funcionó de maravilla. Esta celta vacía, la estoy utilizando como referencia para los offset y poder introducir y leer información.
Un saludo.
Un saludo.
