Gregorio Villarreal

De acuerdo, Miguel prueba este código y me avisas, estoy tomando la premisa que indicas de las columnas (A-B-C-G), si los datos son idénticos en esas columnas, se los vuela. Sub Elimina_Duplicados_2() Dim FilasT Dim Filas Dim Dato1 Dim Dato2...

Prueba con este código y me avisas. Sub FormatoText() Sheets("Hoja1").Select Columns("G:G").Select Selection.NumberFormat = "@" Columns("H:H").Select Selection.NumberFormat = "@" End Sub

Prueba con este código y me avisas. Sub Elimina_duplicados() Dim FilasT Dim Filas Dim Dato1 Dim Dato2 Application.ScreenUpdating = False Range("h2").Select FilasT = Selection.CurrentRegion.Rows.Count Filas = 2 y = 2 For Filas = 2 To FilasT Dato1 =...

Antonio lo que se me ocurre es que borres la formula de "A25" y crees una macro que la realice cuando termines, esta macro la ejecutarías y actualiza el calculo guarda y cierra, prueba con este código: Sub Act_Celda() Dim Dato1 Dim Dato2 Dim Dato3...

Prueba con este código mientras alguien más te da un código más sencillo, importante que los códigos sean exactos para que pueda conseguir el dato. Prueba y me avisas: Sub Trasladar_Registros() Dim CantCod Dim CantH Dim CantH2 Dim Cod Dim Dato Dim...

Debes sombrear toda las filas donde está el cuadro y luego pegar sombreando de igual forma toda la fila, la cantidad de filas sombreadas antes de pegar vana a ser igual a 200 por la cantidad de filas que tiene el cuadro.

Julio buenas tardes intenta con esta sentencia y me comentas Sub BUSCA_E_INSERTA() Dim FILA Dim DATO FILA = 2 DATO = 0 Do Until DATO = "4.000.000.0000" DATO = Cells(FILA, 5) FILA = FILA + 1 Loop Cells(FILA, 5).Select Selection.EntireRow.Insert End Sub