Gregorio Villarreal

Intenta agregándole este código, toma en cuenta el nombre de las hojas. Sheets("Hoja5").Select Range("A2").Select Selection.End(xlDown).Select Selection.Copy Sheets("Hoja1").Select Range("h68").Select ActiveSheet.Paste Application.CutCopyMode = False

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...

Más que tabla dinámica, sería preferible crear la tabla transpuesta con fórmulas de buscarv combinada con un si. Error(buscarv;""), por cada nombre, realizando una tabla de equivalencia numerada por cada materia, a fin que el buscarv no repita el...

intenta agregar una columna en base de datos, allí debes hacer una formula de contar por nombre / razon social "=CONTAR.SI(B:B;B3)" y la corres hasta el final, luego en la hoja factura realiza un buscarv con el maximo de la columna donde contaste,...

Prueba con este código, para contar la cantidad de filas me estoy parando en c4, prueba y me cuentas: Sub rellenar() Dim Filas Dim Linea Dim Fin Dim Ambito Dim Localidad Range("c4").Select ActiveCell.CurrentRegion.Select Filas =...

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