Milu Excel

Gracias ya lo he resuelto

Sveinbjorn El Rojo respondió: Haz una consulta de totales, donde agrupas por el campo Nombre y en cantidad sacas el Máximo. Así: Saludos.

Anónimo respondió: Una vez que creas el archivo nuevo, este queda activo, mientras esté activo, en algún lugar del código incluye ActiveWorkbook.SaveAs Filename:=NombreArchivo Salu2

Dante Amor respondió: Te anexo la macro Sub Quitar_Rangos() 'Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next For Each hoja In Sheets hoja.Select For Each wtabla In ActiveSheet.ListObjects nombre = wtabla.Name wtabla.Unlist Next...

Dante Amor respondió: Puedes poner tu macro para actualizarla

Dante Amor respondió: Utiliza la opción del menú Datos, Desde Texto. Cuando estés en la pantalla del asistente, selecciona el Calificador de texto {Ninguno} Selecciona el Separador, puede ser tabulación, coma, u el que tenga tu archivo. Presiona Siguiente En la siguiente...

Dante Amor respondió: Te anexo la macro Sub Filtrar() ' ' Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("criterios") On Error Resume Next h1.ShowAllData On Error GoTo 0 ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" &...

Dante Amor respondió: Te anexo la macro Sub Formatear_Numeros() 'Por.Dante Amor For Each h In Sheets uc = h.UsedRange.Columns(h.UsedRange.Columns.Count).Column For j = 1 To uc For n = 1 To 9 Set b = h.Columns(j).Find(n, lookat:=xlPart) If Not b Is Nothing Then If...