isaac10

Ander GS respondió: Isaac 10, Adjunto el código de la macro para el desarrollo de tu consulta según requerimiento y para su revisión. Sub Buscarcodigo() Set Hj1 = Worksheets("Hoja1") Set Hj2 = Worksheets("Hoja2") Set Rng1 = Hj1.Range("A1").CurrentRegion UltFila_Hj2 =...

Dante Amor respondió: H o l a: Te anexo la macro Sub Clasificar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("formato") ' u1 = h1.Range("G" & Rows.Count).End(xlUp).Row With h1.Sort .SortFields.Clear .SortFields.Add Key:=h1.Range("A3:A" & u1),...

Dante Amor respondió: H o l a : Te anexo la macro actualizada Sub EliminarFilas() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row ant = Cells(u, "A") j = u n = 0 For i = u To 1 Step -1 If ant <> Cells(i, "A") Then If valor <> "" And n > 1 Then Rows(j & ":" & i +...

Dante Amor respondió: H o l a: Te anexo la macro Sub EliminarFilas() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row ant = Cells(u, "A") j = u n = 0 For i = u To 1 Step -1 If ant <> Cells(i, "A") Then If valor <> "" And n > 1 Then Rows(j & ":" & i + 1).Delete...

excelforo - Ismael Romero respondió: Existe una función SI. ERROR que convierte un error en lo que quieras, en tu caso sería en C2 y luego arrastrar: =SI.ERROR(SI(B2/A2>1;100%;B2/A2);0) si quieres cero en lugar del error, y =SI.ERROR(SI(B2/A2>1;100%;B2/A2);"") Si quieres vacío Espero te...

excelforo - Ismael Romero respondió: Me despista bastante la última frase de tu consulta, pero entiendo quieres eliminar una serie de columnas (las que indicas) enteras.. En ese caso esta macro te podría servir: Sub ElimnarColumnas() 'Columnas a eliminar matriz = Array("A", "D", "F")...

Dante Amor respondió: H o l a : Te anexo la macro Sub ExportarDatos() 'Por.Dante AmoR Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") celda = "B1" ' If Range(celda) = "" Then MsgBox "Captura el centro en la celda: " & celda...