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

La administración ha hecho pruebas para subir archivos y no presenta problemas. Por favor verifiquen la forma en que lo están haciendo.

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

avatar
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

avatar
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.