Adriel Ortiz Mangia

Adriel Ortiz Mangia

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

Actividad pública reciente

Voto positivo a la respuesta

Cómo bloquear y proteger celdas sin que desactive las macros

respondió: Realiza lo siguiente: Desprotege la hoja.Selecciona tu botón con el botón derecho del mouseEntra a las propiedadesEn la pestaña propiedades, desmarca la casilla "Bloqueado" Otra opción: Cuando protejas la hoja marca las casillas Modificar objetos y...
Voto positivo a la respuesta

Problema con una fórmula de Excel

respondió: Te anexo una fórmula para Masculino =SUMAPRODUCTO(SUBTOTALES(103;DESREF(C9;FILA($C$10:$C$19)-FILA($C$9);;1))*($C$10:$C$19="M")) Cambia en la fórmula lo siguiente: M por F para contar Femenino C9 por la celda donde tienes el encabezado de Género $C$9...
Voto positivo a la respuesta

Solicitud para confirmación de fórmula

respondió: Te confirmo, si no quieres el 0, entonces puedes poner =SI(I10>=12500;ABS((I10*0,01-250)-I10);"")
Voto positivo a la respuesta

Excel Macro Realizar tabla con una Combinación de letras

respondió: Te anexo la macro. Funciona de acuerdo a tu ejemplo. Antes de ejecutar la macro debes considerar lo siguiente: - Funciona para celdas que tienen 2 letras ejemplo: "VL" o una letra ejemplo: "V". No funciona para celdas que tengan más de 2 letras. -...
Voto positivo a la respuesta

Mostrar en textbox registro con la fecha más reciente

respondió: Pon el siguiente código en tu botón de buscar. En el textbox1 pon el número de cliente En textbox2 quedará el nombre En textbox3 quedará la fecha En textbox4 quedará el importe Private Sub CommandButton1_Click() 'Buscar 'Por.Dante Amor ' If TextBox1...
Voto positivo a la respuesta

Macro pegar rango de valores para un ciclo

respondió: Te anexo la macro Sub Copiar_Valores() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") 'destino Set h2 = Sheets("Hoja2") 'datos ' h1.Cells.Clear ' j = 1 For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row h1.Range("A" & j & ":D" & j) =...
Voto positivo a la respuesta

Eliminar una fila o celda cada vez que encuentre una palabra especifica

respondió: Prueba con esta macro, busca y elimina los registros que cumplan con el criterio que planteaste, cuando ya no hay ni uno te mostrara un mensaje. Sub buscayborra() Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count On Error...
Voto positivo a la respuesta

Ordenamiento de txt separado por "|"

respondió: Sin usar macros usa esta fórmula =EXTRAE(A1, HALLAR(" 66", A1, 1), 6) esto te dejara la tabla así, luego simplemente seleccionas los registros y ordenas
Voto positivo a la respuesta

Extraer datos específicos de un xml (campos repetidos)

respondió: Envíame un correo nuevo, en el asunto del correo pon tu nombre de usuario: "Systemas" Me envías ejemplos de xml y en un excel me pones los datos que quieres de los xml
Voto positivo a la respuesta

Quiero saber si se puede que cada cierta hora un textbox o ComboBox se ilumine o cambie de color

respondió: Prueba con lo siguiente, ajusta los nombres de tus controles. La idea es una macro que revise cada cierto tiempo la hora. Yo puse que se revise cada 30 minutos, pero lo puedes ajustar a cada 10 minutos o cada 50 minutos. Private Sub...
Ha respondido en y en 2 temas más

Tengo una hoja de excel con nombres y más de 2 correos electrónicos en la misma celda

[Hola Te paso la respuesta del generoso Dante Sub Separar_Numeros() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 2 For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row datos = Split(h1.Cells(i, "B"), ";")...
Voto positivo a la respuesta

Problema con las multiplicaciones y los decimales en excel:

respondió: Intenta lo siguiente. Entra a las opciones de excel, Avanzadas y activa la casilla "Establecer precisión de pantalla" . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame cualquier duda .
Voto positivo a la respuesta

Macro: Repetir rutina 05 veces uso de For i

respondió: Tienes que tener información en la celda A26 Prueba con lo siguiente: Sub ArmarFila() If Sheets("Hoja2").Range("A26") = "" Then MsgBox "Falta dato en la celda A26" Exit Sub End If For i = 1 To 5 'Sentencia que permite ocultar la operación y flujo del...
Voto positivo a la respuesta

Macro validación Campos: Completar celdas condicionadas a rellenar celda inicial.

respondió: Prueba con lo siguiente, cambia "Hoja2" por el nombre de tu hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Act.Por.Dante Amor Set h = Sheets("Hoja2") Set rng = h.Range("A1:A20") h.Select For Each celda In rng If celda.Value <> "" Then If...
Voto positivo a la respuesta

Revisión de código para guardar imágenes en una carpeta en especifico

respondió: Claro que puedes agregar una imagen a la carpeta IMAGENES, pero tiene que tener extensión jpeg, ya que la segunda macro, solamente lee archivos con extensión jpeg. If Dir(ruta & Target & ".jpeg") <> "" Then Image1.Picture = LoadPicture(ruta & Target...

Trabajo

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