Combinar celdas encontrando la siguiente vacía
Buenas,
Estoy realizando una macro para que me combine en una misma columna una celda con las siguientes vacías, el problema es que me lo hace correcto hasta la ultima posición que se queda en un bucle infinito. El código es el siguiente:
i = 1
Do While j < maxLin
If miHoja.Cells(i, 17) <> "" Then
j = i + 1
Do While miHoja.Cells(j, 17) = ""
j = j + 1
Loop
Application.DisplayAlerts = False
miHoja.Range(miHoja.Cells(i, 17), miHoja.Cells(j - 1, 17)).Merge
miHoja.Range(miHoja.Cells(i, 17), miHoja.Cells(j - 1, 17)).VerticalAlignment = xlCenter
Application.DisplayAlerts = True
i = j - 1
End If
i = i + 1
Loop
Esto seria simplemente el bucle, es la columna 17 y los datos empiezan en la fila 5.
Gracias de antemano.
Estoy realizando una macro para que me combine en una misma columna una celda con las siguientes vacías, el problema es que me lo hace correcto hasta la ultima posición que se queda en un bucle infinito. El código es el siguiente:
i = 1
Do While j < maxLin
If miHoja.Cells(i, 17) <> "" Then
j = i + 1
Do While miHoja.Cells(j, 17) = ""
j = j + 1
Loop
Application.DisplayAlerts = False
miHoja.Range(miHoja.Cells(i, 17), miHoja.Cells(j - 1, 17)).Merge
miHoja.Range(miHoja.Cells(i, 17), miHoja.Cells(j - 1, 17)).VerticalAlignment = xlCenter
Application.DisplayAlerts = True
i = j - 1
End If
i = i + 1
Loop
Esto seria simplemente el bucle, es la columna 17 y los datos empiezan en la fila 5.
Gracias de antemano.
1 Respuesta
Respuesta de Elsa Matilde
1
En el 2do DO también tenés que comparar si j llegó al máximo, porque es ahí donde no encuentra el final
Do While Sheets("Hoja1"). Cells(j, 17) = "" And j < maxlin
Con este ajuste ya estará bien
Sdos
Elsa
PD) Todos los bucles explicados paso a paso en cap del manual 400MacrosPlus. No dejes de descargar la demo o índice de contenidos desde aquí:
http://aplicaexcel.galeon.com/manual_400.htm
Do While Sheets("Hoja1"). Cells(j, 17) = "" And j < maxlin
Con este ajuste ya estará bien
Sdos
Elsa
PD) Todos los bucles explicados paso a paso en cap del manual 400MacrosPlus. No dejes de descargar la demo o índice de contenidos desde aquí:
http://aplicaexcel.galeon.com/manual_400.htm
