Rango en excel
Buenos días Tavo, tengo un pequeño problema: Realize una macro en donde inserto una nueva fila, debajo de un rango que primero busco. El problema es que quisiera tener un botón asignarle la macro pero cada vez que lo presione me inserte ese renglón debajo del ultimo que inserto,
Un ejemplo: Range("B4:B14"), pero la proxima vez que presione el boton sea Range("B4:B15"), el siguiente click Range("B4:B16")... Y asi sucesivamente he tratado pero no puedo incrementar el rango de la derecha.
Otra pregunta si busco un dato en una hoja de calculo
Cells.Find(What:="V8", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Pero si no lo encuentro quiero desplegar un mensaje donde diga dato no encontrado lo que hago es lo siguiente:
Dim a As String
a = Cell.find( etc
If (a = True) then
MsgBox("Dato encontrado")
Else
MsgBox("No se encuentra el dato")
End If Rem pero me marca un error DE ANTEMABNO MUCHAS GRACIAS
Un ejemplo: Range("B4:B14"), pero la proxima vez que presione el boton sea Range("B4:B15"), el siguiente click Range("B4:B16")... Y asi sucesivamente he tratado pero no puedo incrementar el rango de la derecha.
Otra pregunta si busco un dato en una hoja de calculo
Cells.Find(What:="V8", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Pero si no lo encuentro quiero desplegar un mensaje donde diga dato no encontrado lo que hago es lo siguiente:
Dim a As String
a = Cell.find( etc
If (a = True) then
MsgBox("Dato encontrado")
Else
MsgBox("No se encuentra el dato")
End If Rem pero me marca un error DE ANTEMABNO MUCHAS GRACIAS
1 Respuesta
Respuesta de tavopz
1
Primero que todo disculpa la demora en contestar.
Con respecto a la primera pregunta, pienso que puedes hacer algo como esto para estar cambiando el rango:
Range("$B$4:" & Range("B4").End(xlDown).Address)
Con respecto a la búsqueda, si esta no encuentra nada entonces se producirá un error, entonces lo que puedes hacer es colocar algo como esto:
Sub Busca()
On Error GoTo Problema
Cell.Find '(..... tu busqueda)
GoTo fin
Problema:
MsgBox ("No se encontró")
fin:
End Sub
Con respecto a la primera pregunta, pienso que puedes hacer algo como esto para estar cambiando el rango:
Range("$B$4:" & Range("B4").End(xlDown).Address)
Con respecto a la búsqueda, si esta no encuentra nada entonces se producirá un error, entonces lo que puedes hacer es colocar algo como esto:
Sub Busca()
On Error GoTo Problema
Cell.Find '(..... tu busqueda)
GoTo fin
Problema:
MsgBox ("No se encontró")
fin:
End Sub
