Gregorio Villarreal

Yeison te dejo este código, prueba y me avisas si es lo que necesitas, estuve probando y funciona, pero bueno en la práctica es que se ve la realidad. Sub RedondeaTex() Dim Largo, Part1, Part2 As String Dim DatoO, DatoM As String Dim Indicador,...

Miguel buenas tardes prueba con este código: Sub DiasT() Dim Registros As Integer Dim Dias As Integer Dim FechaF, FechaI As Date Range("a1").CurrentRegion.Select Registros = Selection.Rows.Count For i = 2 To Registros If Range("f" & i) = Empty Then...

Prueba con este código, sólo le falta lo del timer, pero seguro otro usuario se lo agrega, de todas formas trataré de aplicarlo y te lo completo. Prueba y me avisas Saludos Sub Rep() Dim cant As Integer cant = InputBox("Favor Indicar cantidad que...

Botón derecho en cualquier pestaña y seleccionar todas las hojas, luego eliminas la columna que desees y la fila que desees, esa acción se replicará en todas las pestañas seleccionadas.

Alejandro declara una variable que se puede llamar fila para identificar cual es la celda activa e intenta agregar este código luego del "Wend": Dim FILA As String FILA = ActiveCell.Address If FILA = "$A$46" Then MsgBox ("Hoja ya está completa") Exit...

Prueba con este código y me avisas, esto siempre y cuando la lista de personas estén en una hoja llamada "Hoja1" y comiencen en la fila 2, porque hice referencia directamente a ellas. Utilice la variable tipo integer lo que indica que no deberían ser...

Juan por favor prueba y valida este código a ver si te sirve para lo que necesitas, se está tomando como campo de revisión la columna "c" suponiendo que la data comience en la fila 6 tal y como está en la primera imagen, la macro tiene un bucle que...

Andres, si vas a utilizar una variable, primero debes darle valor, es decir cuando usas la variable radicado en asunto, todavía no le has dado valor, copia y pega la sentencia donde le das valor a la variable "radicado", antes de darle valor a la...

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

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