Adriel Ortiz Mangia

Adriel Ortiz Mangia

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

Actividad pública reciente

Voto positivo a la respuesta

Macro para vincular celdas de diferentes hojas

respondió: Siempre quieres que ponga E10 Prueba con lo siguiente y me comentas ActiveCell.FormulaR1C1 = "=Hoja2!R10C5" Significa R10 = Row 10 = fila 10 C5 = Column 5 = Columna E Siempre que ejecutes la macro en la celda que esté activa te va a poner = E10 [Si...
Voto positivo a la respuesta

Eliminar Datos repetidos y el Max y Min

respondió: Prueba esta macro de cada nombre elimina el dato con la menor y la mayor cantidad Sub eliminar_repetidos() Dim funcion As WorksheetFunction Set datos = Range("a1").CurrentRegion Set funcion = WorksheetFunction With datos .Sort _...
Voto positivo a la respuesta

Se Repite una Función Varias veces Macros Excel

respondió: Yo lo resumiría así: Private Sub txtcodigo_AfterUpdate() If modFormulario.consultarProducto(txtcodigo, 2) = "No existe" Then MsgBox "El codigo ingresado no existe", vbCritical, "Resultado" Exit Sub End If txtdescripcion =...
Ha valorado "Excelente" la respuesta

Config Hoja de impresión excel vba

respondió: Prueba con esto: ActiveWindow.View = xlPageBreakPreview ActiveSheet.ResetAllPageBreaks ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 Pero también debe existir un corte de página vertical, si los datos caben en una hoja te va...
Voto positivo a la respuesta

Buscar factura desde un listado de facturas (excel)

respondió: Va la macro Sub Buscar_factura() ' Por Dante Amor ' Set h1 = Sheets("factura") Set h2 = Sheets("compras_listas") ' factura = h1.Range("K8").Value If factura = "" Then MsgBox "Falta el número de la factura" End If ' fila = 25...
Voto positivo a la respuesta

MACRO para insertar un número de filas que el usuario indique al final de una tabla EXCEL

respondió: Si la tabla fue creada con la opción Insertar/Tabla, entonces ejecuta la siguiente macro: Sub Macro1() 'Por Dante Amor num = InputBox("Cuantas filas desea insertar?", "INSERTAR FILAS EN TABLA") If num = "" Or Not IsNumeric(num) Then Exit Sub End If...
Voto positivo a la respuesta

Contar registros únicos con varias condiciones

respondió: Para encontrar los únicos necesitamos utilizar otra columna. En la columna D, en la celda D2, pon la siguiente fórmula: =CONTAR.SI(B2:$B$16,B2) Cambia el 16 por la última fila con datos. Ahora pon la siguiente fórmula en G4...
Voto positivo a la respuesta

Guardar solo 4 hojas de un libro excel

respondió: Te anexo la macro Sub Guarda_Hojas() ' Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" Sheets(Array("Hoja3", "Hoja4", "Hoja5", "Hoja6")).Copy ActiveWorkbook.SaveAs Filename:=ruta & "hojas" &...
Ha empezado a seguir la pregunta

Como hacer un For que me recorra una columna de un libro con una columna de otro libro

Tengo dos libros en uno necesito que me recorra las filas desde la celda B4 hasta el ultimo nombre y que me los vaya comparando con las filas desde la celda B2 del otro libro, si encuentra un nombre que coincide con el otro pues que tome el valor que...
Voto positivo a la respuesta

Macro para hacer vlookup entre diferentes libros y con rango variable

respondió: Estoy un poco enredado. Para entender qué vas a buscar, en dónde lo vas a buscar, qué quieres de resultado y en dónde quieres poner el resultado, vamos a desglosar la fórmula BuscarV, te parece bien: - Nombre libro, Nombre Hoja y la columna donde...
Voto positivo a la respuesta

Macro para enviar un archivo adjunto diferente a diferentes destinatarios

respondió: [Hola Debes usar un bucle, mira por aquí: https://abrahamexcel.blogspot.com/2018/06/enviar-mensajes-masivos-con-microsoft.html Comentas Abraham Valencia
Voto positivo a la respuesta

Listbox con 20 columnas + filtro inteligente

respondió: Tengo varias respuestas sobre ese tema, puedes revisar los siguientes enlaces: Tengo un Listbox con 20 columnas pero sólo me muestra 10 Codigo VBA para un Listbox con mas de 10 columnas Error en mi listbox de 20 me marca solo 10 La idea básica es...

Trabajo

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