Adriel Ortiz Mangia

Adriel Ortiz Mangia

Los hombres aprenden mientras enseñan.
 170K puntos  Yurimaguas, Perú @temp01 desde - visto

Actividad pública reciente

Voto positivo a la respuesta

Excel macro guardar hoja datos

respondió: Te falta la instrucción para guardar el archivo. Por la extensión que pusiste, supongo que tienes excel 2003 Sub Exportarxls() With Application.FileDialog(msoFileDialogSaveAs) .Title = "Guardar archivo como" .AllowMultiSelect = False .InitialFileName...
Voto positivo a la respuesta

¿Como elaborar saldos anteriores y finales? VBA Excel

respondió: Un modo rápido es colocar tus fórmulas mediante VBA y luego convertirlas a valor si no te interesa dejarlas en la hoja. Explico los pasos a continuación. 1 a - Si ya tenés las 2 fórmulas en sus celdas, digamos F2 e I2. Entonces encendé la grabadora...
Voto positivo a la respuesta

Macro en VBA Excel 2010 copiar en columnas consecutivas

respondió: Primero en el campo i1 debes poner la fecha inicial y en la j1 la siguiente fórmula j1=i1+7, solo para efectos de prueba resta 7 días a la fecha de hoy y esa fecha la pones en i1, esto solo lo haces una vez la macro se encargara en lo sucesivo de...
Voto positivo a la respuesta

Copiar datos filtrados de un libro a otro

respondió: Recién publiqué una respuesta muy similar. Revisa si puedes adaptarlo a 2 libros. O tal vez decidas poner tu información en dos hojas en el mismo libro. Te dejo el enlace: Macro que filtre bace de datos según referencia y copie resultado a otra hoja...
Voto positivo a la respuesta

Quiero sacar datos duplicados en una macro

respondió: Esto es un ejemplo de lo que supongo quieres prueba con esta macro Sub copiar_unicos() Set origen = Worksheets("hoja1").Range("a1").CurrentRegion With origen f = .Rows.Count: c = .Columns.Count Set destino = Worksheets("hoja2").Range("a1").Resize(f,...
Voto positivo a la respuesta

Obtener fecha del mes pasado, ejemplo si estamos a 01/2018 busco obtener 12/2017 ( MM/YY )

respondió: Prueba con esta macro Sub test() Dim fecha As Date fecha = Date mes = Month(fecha) - 1 Dia = Day(fecha) If mes = 0 Then mes = 12: pyear = Year(fecha) - 1 nmes = CDate(Dia & ("/") & (mes) & ("/") & pyear) MsgBox ("mes anterior ") & nmes,...
Voto positivo a la respuesta

Insertar imagen debajo de la ultima fila utilizada con VBA

respondió: Para entender o asimilar una función, en ocasiones es preciso separar la instrucción en cuestión, y hacer pruebas de manera independiente. Por ejemplo: Sub Manejo_Top() For i = 1 To 5 arriba = Range("A" & i).Top MsgBox "El top de la fila " & i & " es...
Voto positivo a la respuesta

Fórmula que busque el numero mayor entre dos celdas

respondió: Supongo que encontraste el problema porque estabas poniendo el número "70" entre comillas...
Voto positivo a la respuesta

Distribuir resultados válidos en dos columnas

respondió: Puedes poner los valores a buscar en un arreglo. El primer dato encontrado se pondrá en la celda A4, el segundo en la celda B4, el tercero en la celda A5, el cuarto en la celda B5, y así sucesivamente, de esa manera estarás poniendo los resultados en...
Voto positivo a la respuesta

Recopilar datos específicos de todas las hojas

respondió: La macro que ocupas es similar a esta, recorre todas las páginas y almacena en una matriz los valores de las celdas e2, d27 y h27 de cada una de las hojas (excepto overall) en una matriz que luego descarga en la página overall. Sub recolectar_datos()...
Voto positivo a la respuesta

Restar un día al calendario DTpicker

respondió: Puedes hacerlo al cargar el "UserForm": Private Sub UserForm_Initialize() DTPicker1.Value = Date DTPicker2.Value = Date - 1 End Sub Ojo con algo, si la propiedad "Enabled" de los "DtPicker" está en "False", sus eventos "Doble Click", u otro, no...
Voto positivo a la respuesta

Formular en excel que me indique si esta duplicado el contenido de dos celdas sin importar su orden.

respondió: Te anexo una macro, en la columna C te va poner el mensaje en el par de celdas que coincidente Sub Revisar_Duplicados() 'Por.Dante Amor Columns("C").ClearContents fin = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To fin c1 = Cells(i, "A") c2 =...
Voto positivo a la respuesta

Resaltar fecha de vencimiento de una factura que no ha recibido pago.

respondió: Si tus datos están así: Realiza lo siguiente. 1. En la celda E2 pon la siguiente fórmula: =D2-B2 2. En la celda G2 pon la siguiente fórmula: =SI(E2>0,SI(F2="","VENCIDA","PAGADA"),"EN TIEMPO") 3. Crea un formato condicional. - Selecciona la celda D2,...

Trabajo

  • Monseñor Elías Olázar
    Asistente Administrativo , 2015 - actualidad