Simplificar lineas en el código de un Formulario

Hola

Dispongo de un Formulario en el que, mediante un CommandButton, deseo eliminar un rango de datos ( no toda la fila). Pero la secuencia que tengo para ello resulta muy larga. Se podría simplificar algo?

Muchas gracias

Private Sub CommandButton4_Click()
If Not ListBox1.ListIndex = -1 Then
   Range("A" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("B" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("C" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("D" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("E" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("F" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("G" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("H" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("I" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("J" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("K" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("L" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("M" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("N" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("O" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("P" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("Q" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("R" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("S" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("T" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("U" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("V" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("W" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("X" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("Y" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("Z" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("AA" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("AB" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   Range("AC" & ListBox1.List(ListBox1.ListIndex, 16)) = ""
   If Range("B" & ListBox1.List(ListBox1.ListIndex + 1, 16)).Value = "" Then
   Range("A" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("C" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("D" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("E" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("F" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("I" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("J" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("M" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("Q" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("R" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("S" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("T" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("U" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("V" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("W" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("X" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("Y" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("Z" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("AA" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("AB" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   Range("AC" & ListBox1.List(ListBox1.ListIndex + 1, 16)) = ""
   End If
 End If
UserForm_Initialize
End Sub

Respuesta
1

Se pueden escribir rangos como en estos ejemplos:

Range("A1:AC1")= ""

Range("A2, E3:J3, AB5:AC5") = ""

Range("A1:AC4") = ""

Para tu caso, donde la fila la da el valor del listbox, sería para el primer caso:

 Range("A" & ListBox1.List(ListBox1.ListIndex , 16) & ":AC" & ListBox1.List(ListBox1.ListIndex , 16)) = ""

Y lo mismo para cuando se cumpla la 2da condición incrementando en 1 el listindex.

PD) Podés encontrar más ejemplos de selección de rangos en la sección Macros de mi sitio.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

BD para un colegio, problemas con información sobre asistencia de docentes y alumnos

Estoy armando una BD con toda la información relacionada a un colegio secundario. Ya armé tablas, consultas, informes y las relaciones. Pero tengo problema para hacer el tema de la asistencia de docentes y alumnos. ¿Podrían darme una mano con esto?...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

¿Como hacer funcionar opción "todos" en cuadro combinado?

Tengo un combo "estudiantes" que realiza filtro por nombre apellido y también un combo "año" -basado en campo fecha_inscripción_anual- que filtran en un subformulario la trayectoria educativa del estudiante según el año. Mediante la consulta sql de...
3 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Consulta para que salga un socio por domicilio

Tengo una base de datos con 970 socios y algunos son del mismo domicilio, quiero saber qué tengo que hacer para que salga un socio por domicilio
2 respuestas

Como poder bloquear tablas de access

Tengo un sistema dividido tablas y los formulario y quiero evitar que puedan entrar a las tablas así evito que modificquen algo
2 respuestas

Access me abre en pantalla el archivo vinculado de Excel en red

Hice una pequeña base de datos en Access donde vincule un archivo de Excel para mostrar los datos mediante un formulario, se solicita un dato, en este caso el RFC para mostrar los registros en el formulario, cuando lo realizo en mi equipo no tengo...
3 respuestas

Me pide contraseña al cerrar la base de datos

Hoy me ha ocurrido una cosa que no me ha pasado nunca, al cerrar la BD me pide contraseña. He mirado todo lo que se me ha ocurrido y no doy con lo que puede ser. Solo me ocurre con una BD en concreto, y que no he hecho nada en particular en la misma....
2 respuestas

Access 2013 - Formulario para logear usuarios con contraseña

Estoy planeando agregarle a mi base de datos, un formulario para que logueen distintos usuarios. He estado viendo videos y me doy una idea. Pero mi base de datos está dividida en front y back end, he leído por ahí que eso puede ser un problema al...
3 respuestas

Crear un botón en un formulario para que borre todos los registros de una tabla

Necesito crear un comando para borrar los registros de una tabla, y otro para lanzar una carga de una importación, ahora tengo access 2016 y no sé como hacerlo
3 respuestas