ana rodriguez

Dante Amor respondió: Los datos en la columna A están separados por comas, por punto y coma o por algún separador que indique la separación de los datos. Puedes poner una muestra representativa de cómo están los datos y cómo los quieres.

Dante Amor respondió: H o l a: Puedes poner las macros completas, necesito ver qué eventos tienen y supongo que los quieres en la misma hoja.

José Saúl Méndez Alonso respondió: Te dejo un código que puede servirte para rellenar la columna con la fórmula y detenerse cuando encuentre una celda vacía. Sub Rellenar() On Error GoTo Err_Rellenar Dim nCel As Integer nCel = 2 While Not Trim(Range("O" & nCel).Value) = "" Range("P" &...

José Saúl Méndez Alonso respondió: Te dejó una macro que puede servir para tu propósito. Sub Colores() On Error GoTo Err_Colores Dim nCel As Double Dim sDato As String nCel = 2 While Not Trim(Range("J" & nCel).Value) = "" sDato = Range("J" & nCel).Value If UCase(Left(sDato, 1)) = "J"...

Dante Amor respondió: H o l a: Te anexo la macro Sub CambiarValor() 'Por.Dante Amor With Range([B1], Range("B" & Range("C" & Rows.Count).End(xlUp).Row)) .Formula = "=IF(RC[1]=""Z1B8032254"",1,IF(RC[1]=""Z1B8040407"",2,""""))" .Value = .Value End With End Sub La macro...

Elsa Matilde respondió: Podemos agregar un bucle que recorra las 11 hojas realizando la misma acción, el tema es si tenés + hojas, de alguna manera habrá que indicar en la rutina de qué hojas se tratará. En mi ejemplo coloqué 1 hoja que debe ser excluida, como para que...

Luis Mondelo respondió: Crea una pestaña nueva llamada RESUMEN y después ejecuta esta macro y listo: Sub resumen() For Each hoja In ActiveWorkbook.Sheets If hoja.Name <> "resumen" Then hoja.Select columna = Range("mm1").End(xlToLeft).Column ultima =...