Adriel Ortiz Mangia

Adriel Ortiz Mangia

La vida es hermosa
 252K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Actividad pública reciente

Voto positivo a la respuesta

Encontrar datos no coincidentes excel

respondió: Tendrás que utilizar matrices y diccionarios. Revisa los ejemplos: https://youtu.be/bmCJzc59K3I https://youtu.be/FRvI9loM7ns :)
Voto positivo a la respuesta

Macro eliminar filas con valor

respondió: Para eliminar cualquier error. Si tienes el error como valor: Sub Borrar_filas_v3() Application.ScreenUpdating = False On Error Resume Next Range("C1", Range("C" & Rows.Count).End(3)).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete...
Voto positivo a la respuesta

Filtrar información y luego pasar a otro libro

respondió: En el apartado de 'datos origen', a continuación de la instrucción uFila =, agrega las líneas que dejo a continuación: uFila = vbhojaorigen.Range("a" & Rows.Count).End(xlUp).Row 'filtrar x col 1 (A) con criterio ??? AJUSTAR ESTOS 2 ARGUMENTOS With...
Voto positivo a la respuesta

Utilizar fechas en una macro

respondió: Te anexo la macro Sub CrearTabla() 'Por.Dante Amor Application.ScreenUpdating = False If [C2] = "" Or [C3] = "" Then MsgBox "faltan fechas" Exit Sub End If If Not IsDate([C2]) Or Not IsDate([C3]) Then MsgBox "fechas inválidas" Exit Sub End If If [C3]...
Ha respondido en y en 2 temas más

Valores duplicados en hoja de excel con macro

>Prueba esto Private Sub CommandButton_aceptar_Click() '>Adriel Ortiz ' Set h = Sheets("Datos") ' dni = Val(TextBox_dni) Set col = h.Columns("A") Set b = col.Find(dni, lookat:=xlWhole) ' If Not b Is Nothing Then MsgBox "En dni ya existe" Exit Sub...
Voto positivo a la respuesta

Llenar campos obligatorios para ejecutar una macro...

respondió: El problema puede ser porque en alguna de las celdas tienes error, por ejemplo #N/A, #¿NOMBRE?, etc Para resolverlo puedes poner lo siguiente: If Not IsError(Range("D7")) And Not IsError(Range("D9")) And _ Not IsError(Range("D10")) And Not...
Voto positivo a la respuesta

Crear rango variable en una macro

respondió: Prueba lo siguiente para la última fila y la última columna Dim uf As Long, uc As Long uf = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row uc = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Columns.Count).Count Range("K1",...
Voto positivo a la respuesta

¿Cómo ver el ultimo dato de listbox cuando se actualiza?

respondió: También puedes utilizar la propiedad TopIndex: ListBox1.TopIndex = ListBox1.ListCount - 1 https://www.youtube.com/watch?v=ch7sb2Mh_Ow&t=1024s
Voto positivo a la respuesta

Contar registros en informe (solo de los resultados)

respondió: Si quiere envíeme su base de datos a [email protected] con información ficticia y trato de colaborarle.
Voto positivo a la respuesta

Cómo hacer un filtro múltiple en formulario Excel?

respondió: Revisa los siguientes: https://youtu.be/ch7sb2Mh_Ow https://youtu.be/8NBcBOlvB6o Sal u dos Dante Amor
Voto positivo a la respuesta

Cómo obtener auto completado en un combo box de un formulario en excel

respondió: Selecciona el control Combobox. Desde la lista de Propiedades deja las siguientes de esta manera: MatchEntry = fmMatchEntryComplete MatchRequired = False ' si necesitas que te permita ingresar otros valores que no se encuentran en la lista. Sdos....
Voto positivo a la respuesta

Quiero combinar access con word para imprimir una plantilla de un contrato, mediante un botón de comando en formulario.

respondió: El problema en su código VBA es que está utilizando una sintaxis incorrecta y también hay errores en la lógica de cómo está configurando la combinación de correspondencia en Word. Private Sub cmdIMPRIMIRCTO_Click() Dim AppWord As Object Dim DocWord...
Voto positivo a la respuesta

Enviar una imagen desde access por whatsapp claro mediante un email o algo así^..

respondió: Es más ambigua la respuesta que da el sabio Enrique la pregunta es ¿Por qué no nos explica cómo se hace en VBA? Así todos aprendemos.
Voto positivo a la respuesta

Abrir Excel desde Access vba

respondió: Adapte este ejemplo: Private Sub btnAbrirExcel_Click() Dim xlApp As Excel.Application Dim xlWorkbook As Excel.Workbook Dim xlWorksheet As Excel.Worksheet Dim excelFilePath As String ' Ruta al archivo de Excel excelFilePath =...
Voto positivo a la respuesta

Crear autonumérico según mi criterio mediante código

respondió: Lo puede hacer con una tabla de control y una función. TABLA DE CONTROL IDcontador ---> Entero Largo Sufijo ----> Texto -- tamaño 1 La función y el ejemplo completo se lo envío a su correo, está probado
Voto positivo a la respuesta

Cómo agregar condiciones a macro que extrae valores únicos

respondió: Si estás interesado en aprender sobre macros, te recomiendo los siguientes: Sobre el uso de matrices: https://youtu.be/bmCJzc59K3I https://youtu.be/FRvI9loM7ns Sobre diccionarios: https://youtu.be/f_x8pstpNqc https://youtu.be/oAQ4e-m_m7g Sal u dos...

Trabajo

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