ELIMINAR FILAS VISIBLES FILTRADAS

A ver si esto te sirve


Sub EliminaCeldasVisibles()
Dim R As Range
' El Offset(1) asegura que los titulos no se eliminen
Set R = ActiveCell.CurrentRegion.Offset(1)
R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub


Espero tus comentarios

Saludos
Carlos Durán


"Marvin" escribió en el mensaje
news:

QUE TAL GRUPO,

ALGUIEN ME PUEDE AYUDAR PARA SABER CÓMO PUEDO ELIMINAR LAS CELDAS VISIBLES
DESPÚES DE UN FILTRADO, CLARO INTRUCCIÓN PARA UNA MACRO GRCS

FUNCIONO AL AL PERFECCION¡¡¡ GRCS...

UNA CONSULTA, ABUSANDO DE TUS CONOCIMINTOS...

COMO SE DEBEN INCLUIR EN X FORMULA UNA VARIABLE

POR EJEMPLO, NECESITO BUSCAR UNA PALABRA DENTRO DE UNA CADENA DE TEXTO, LA
FORMULA YA LA TENGO DEFINIDA Y FUNCIONA PARA UN TEXTO ESPECÍFICO, PERO QUIERO
QUE ME PREGUNTE ANTES QUE PALABRA DESEO BUSCAR Y ESTO ES POR MEDIO DE UN
INPUTBOX ASIGNADO A UNA VARIABLE, ESTA VARIABLE QUIERO AGREGARLA A LA
FORMULA, ME EXPLICO???.

MI FORMULA ES

IF(AND(ISERROR(SEARCHB(""CHINA"",RC[-1],1)),LEN(RC[-5])<28,RC[-5]<>""Interfaz"",RC[-5]<>""""),"""",""CHINA"")

MI VARIABLE SERIA CHINA, COMO AGREGO LA VARIABLE A LA FORMULA???.. GRCS

"Carlos Durán Urenda" escribió:

A ver si esto te sirve


Sub EliminaCeldasVisibles()
Dim R As Range
' El Offset(1) asegura que los titulos no se eliminen
Set R = ActiveCell.CurrentRegion.Offset(1)
R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub


Espero tus comentarios

Saludos
Carlos Durán


"Marvin" escribió en el mensaje
news:
> QUE TAL GRUPO,
>
> ALGUIEN ME PUEDE AYUDAR PARA SABER CÓMO PUEDO ELIMINAR LAS CELDAS VISIBLES
> DESPÚES DE UN FILTRADO, CLARO INTRUCCIÓN PARA UNA MACRO GRCS

Hola de nuevo

así a la rapida, lo mas facil seria utilizar una celda de la hoja de calculo
como variable, y hacer referencia a dicha celda desde tu formula

ahora bien, al parecer la formula que me indicas solo estaria encontrando la
priera ocurrencia del texto buscado

otra forma mas facil es utilzar la funcion ENCONTRAR(textoBuscado,
DentroDelTexto), que te devuelve pa posicion de un texto dentro de otra
cadena

por medio de programacion esta funcion se llama InStr

espero te sirva de algo

si, lo deseas lo podemos ver con mas calma el Lunes, por ahora me voy de fin
de semana


Saludos
Carlos Durán



"Marvin" escribió en el mensaje
news:

FUNCIONO AL AL PERFECCION¡¡¡ GRCS...

UNA CONSULTA, ABUSANDO DE TUS CONOCIMINTOS...

COMO SE DEBEN INCLUIR EN X FORMULA UNA VARIABLE

POR EJEMPLO, NECESITO BUSCAR UNA PALABRA DENTRO DE UNA CADENA DE TEXTO, LA
FORMULA YA LA TENGO DEFINIDA Y FUNCIONA PARA UN TEXTO ESPECÍFICO, PERO
QUIERO
QUE ME PREGUNTE ANTES QUE PALABRA DESEO BUSCAR Y ESTO ES POR MEDIO DE
UN
INPUTBOX ASIGNADO A UNA VARIABLE, ESTA VARIABLE QUIERO AGREGARLA A LA
FORMULA, ME EXPLICO???.

MI FORMULA ES

IF(AND(ISERROR(SEARCHB(""CHINA"",RC[-1],1)),LEN(RC[-5])<28,RC[-5]<>""Interfaz"",RC[-5]<>""""),"""",""CHINA"")

MI VARIABLE SERIA CHINA, COMO AGREGO LA VARIABLE A LA FORMULA???.. GRCS

"Carlos Durán Urenda" escribió:

A ver si esto te sirve


Sub EliminaCeldasVisibles()
Dim R As Range
' El Offset(1) asegura que los titulos no se eliminen
Set R = ActiveCell.CurrentRegion.Offset(1)
R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub


Espero tus comentarios

Saludos
Carlos Durán


"Marvin" escribió en el mensaje
news:
> QUE TAL GRUPO,
>
> ALGUIEN ME PUEDE AYUDAR PARA SABER CÓMO PUEDO ELIMINAR LAS CELDAS
> VISIBLES
> DESPÚES DE UN FILTRADO, CLARO INTRUCCIÓN PARA UNA MACRO GRCS