UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenos dias
Tengo esta macro en la Hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B19")) Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = 0
[B5:B19].SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
 Rows("5:19").Insert Shift:=xlDown
[B5].Select
Application.ScreenUpdating = 1
    Application.EnableEvents = True
End If
End Sub
Y necesitaria, cambiar el concepto de eliminar todas las filas a lo largo, por el que necesito si se puede hacer, que me elimine las lineas solamente en el Range("B5:G19).
Un saludo a todos, en especial a Igtelo que es el que me hizo esta macro
Archivos
Luishc.zip
(51 KB)

Igtelo


Hola Luis.

Una forma sencilla y no modificamos la macro anterior.
Te va según los datos que muestras en tu archivo, si te faltaron ve como adaptarlo, hablabas de columna A...

Adelantándome:
Les hemos dicho que sus archivos deben mostrar todas la columnas y sólo unas poca filas...

Saludos
Ignacio Téllez
Archivos
Luishc2.xls
No tienes los permisos para descargar los archivos.
(69 KB)

adolfo castro


Hola Ignacio, buenas tardes, no he visto el archivo , pero me pregunto, fue después de las copas?¿, que tengas buen fin de semana, yo desconecto un rato,

Invitado


Invitado
Pues después de las copas, serán sin alcohol, lo has hecho de fabula, era lo que necesitaba.
Gracias y un abrazo Igtelo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.