Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 2 temas más a

Requiero incluir en una programación un lookup que corrobore si en la hoja de excel ya existe un valor

En lo personal, para buscar, se me hace más práctico lo siguiente: Sub buscarConsecutivo() 'Por.Dante Amor consecutivo = 123 Set b = Sheets("Matriz").Range("C:C").Find(consecutivo) If Not b Is Nothing Then MsgBox "El registro ya existe" Else MsgBox...
Respuesta en y en 1 temas más a

Ingreso de contraseña en un TextBox para abrir base de datos.

Tengo que ver todo el código para ver si tienes otros eventos que afectan al textbox, por default los textbox aceptan números y letras, a menos que en el algún evento le indiques lo contrario.
Respuesta en y en 3 temas más a

Ocupo programar en VBA de Excel una macro utilizando la fórmula Lookup

La macro funcionaría así: Sub vl() 'Por.Dante Amor Set Consecutivo = ActiveCell ActiveCell.FormulaR1C1 = _ "=+VLOOKUP(" & Consecutivo.Value & ",'[PRUEBA Matriz de registro de pruebas y evaluaciones.xls]Matriz'!C3:C48,6,FALSE)" End Sub Pero la fórmula...
Respuesta en y en 1 temas más a

Duda con traslado de datos en Excel

Para hacer la macro y poder "trasladar" los datos de una hoja a otra hoja es necesario que me digas cuáles celdas quieres "Archivar" y exactamente en dónde las quieres. También tienes que poner el nombre de las hojas. Si pudieras poner un caso real...
Respuesta en y en 2 temas más a

Macro para IR A, hoja determinada y seleccionar la fila que tenga el valor indicado, POR FAVOR...

Te anexo la macro para que la pongas en tu botón ir_a Private Sub ir_a_Click() 'Por.Dante Amor Set b = Sheets("SOCIOS").Range("socios").Find([F5], lookat:=xlPart) If Not b Is Nothing Then Sheets("SOCIOS").Select b.Select Else MsgBox "El socio no se...
Respuesta en y en 1 temas más a

Macro vb para ordenar los ficheros por fecha

Podrías poner un ejemplo de cómo se llaman los archivos y cómo quieres que se llamen. Entiendo que ordenas los archivos por fecha de creación, ¿tomando esa lista ordenada quieres que se renombren los archivos?
Respuesta en y en 2 temas más a

Ir a hoja al haber ejecutado una macros previamente

¿Pero cuál es la condición para que no se ejecute lo de arriba?
Respuesta en y en 2 temas más a

No permitir imprimir si no se llena celdas requeridas...

Pon lo siguiente al principio de tu macro If Range("O27") = "" Or Range("Q11") = "" Or _ Not IsNumeric(Range("O27")) Or Not IsNumeric(Range("Q11")) Then MsgBox "No se puede continuar" Exit Sub End If
Respuesta en y en 4 temas más a

Macro Borrar celdas, según condición

Te anexo la macro, cambia en la macro la columna "C" por la columna que tiene la palabra "Cta" Sub EliminarNoCta() 'Por.Dante Amor col = "C" For i = 2 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row If Cells(i, col) <> "Cta" Then...
Respuesta en y en 2 temas más a

Ejecutar una macro dependiendo de otra macro?

Una opción es guardar en una hoja en alguna celda un valor. Pon la siguiente macro en los eventos de workbook Private Sub Workbook_Open() 'por.Dante Amor Sheets("hoja1").Range("P1") = 0 End Sub Con lo anterior, le indicamos que no hay impresiones....