No consigo hacer la macro que necesito
Hola experto.
Sigo con el asunto al que hace referencia la pregunta que publique el día 10 de Diciembre con el titulo: "Necesito un par de soluciones para columnas en Excel".
Amablemente me enviaste una macro que respondía perfectamente a lo que yo había expuesto pero analizando despacio me he dado cuenta que te explique mal lo que necesitaba.
Partiendo de la macro que me enviaste he intentado modificarla para que haga lo que necesito y no soy capaz con mi nivel de vba. Llevo varios días con ello y no avanzo nada.
Es por ello que solicito de nuevo tu ayuda. He elaborado con más claridad la explicación de mi problema que te la enviaré como archivo adjunto.
Mil gracias de nuevo por tu atención y tu tiempo.
Un saludo cordial y Feliz Año Nuevo.
1 Respuesta
Hola experto.
Acabo de enviarte el libro de Excel con la explicación a tu correo.
Saludos, Gracias
Te anexo la macro
Sub macro()
'Por.Dante Amor
Range("U5:Z19").ClearContents
For j = 5 To 10
con = 0
pin = 0
gru = Cells(3, j)
For i = 5 To 18
If Cells(i, j) <> gru Then
con = con + 1
If con >= 2 Then
If pin < 6 Then
If pin = 5 Then
pin = 0
Else
pin = pin + 1
Cells(i + 1, j + 16) = gru
End If
End If
End If
Else
con = 0
pin = 0
End If
Next
Next
End SubSaludos.Dante Amor
