Dante Amor

Dante Amor

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

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Macro para asignar tareas a usuarios de outlook

En la siguiente respuesta están los parámetros para crear una Tarea en Outlook, reemplaza las celdas por los controles de tu userform Importar tareas de Excel a Outlook Por ejemplo: Set Tarea =...
Respuesta en y en 1 temas más a

Macro para guardar una área de impresión en PDF

Te anexo la macro Sub Macro8() ' ' Por Dante Amor ' Dim objWSHShell As Object warea = ActiveSheet.PageSetup.PrintArea ruta = "" On Error Resume Next Set objWSHShell = CreateObject("WScript.Shell") ruta = objWSHShell.SpecialFolders("Desktop") arch =...
Respuesta en y en 3 temas más a

Error 438 en tiempo de ejecución en macro

En la versión 2003 no puedes guardar como PDF, a menos que hayas instalado los complementos de office 2007 o que tengas la versión completa de Adobe Acrobat. Prueba lo siguiente, en tu archivo 2003, guarda el archivo de excel como y revisa si tienes...
Respuesta en y en 1 temas más a

Erro de código macro guardar excel y pdf

Te anexo la macro actualizada Sub Guardar_Hojas() 'Copiar 2 hojas como libro y como pdf ' ruta = "C:\trabajo\" nombre = Range("C1").Value 'Poner el nombre de las hojas a copiar Sheets(Array("full report", "data participants")).Copy 'si quieres...
Respuesta en y en 1 temas más a

Estoy intentando filtrar una tabla mediante una macro, con elementos diferentes a ciertos específicos, pero no funciona

Te anexo la macro Sub Macro2() 'Por Dante Amor ' Filtrar columna B con los elementos que aparezcan mas de 1 vez Dim arreglo() Set h = Worksheets("Foup_AllData") If h.AutoFilterMode Then ActiveSheet.AutoFilterMode = False u = h.Range("S" &...
Respuesta en y en 2 temas más a

Macro de Excel para automatizar tarea repetitiva

Te anexo la macro. Debes mantener los libros A y B abiertos. Pon la macro en el libro A. Cambia en la macro "Libro B.xlsx" por el nombre de tu libro B. La macro revisará si puede abrir el libro C, si no puede abrir el libro te pondrá un mensaje en la...
Respuesta en y en 1 temas más a

Buscar un valor de una hoja en otra, si no lo encuentra insertarlo

Te anexo la macro Sub Agregar_Codigos() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row codigo = h2.Cells(i, "A").Value Set b = h1.Columns("A").Find(codigo, lookat:=xlWhole) If b Is Nothing Then...
Respuesta en y en 1 temas más a

Agregar Combobox en Ejecución en formulario

Revisa las siguientes respuestas para crear controles (textbox o commandbutton) Crear controles textbox en userform de acuerdo a ciertos registros. Añadir controles con código VBA Como colocar varias filas de textbox con un ciclo en un formulario de...
Respuesta en y en 2 temas más a

¿Cómo contar valores con más de un criterio de coincidencia?

Por tú código supongo lo siguiente: En la columna "A" están los proyectos En la "I" los puestos En la "J" el tipo. En el combobox1 tienes las claves de proyecto. Entonces: Private Sub ComboBox1_Change() Set h = Sheets("Recomendación") cuenta =...
Respuesta en y en 2 temas más a

¿Cómo saber la Dirección física o MAC de mi PC en una macro excel vba?

Puedes poner el siguiente código en un módulo: Sub ObtenerAddress() 'Por.Dante Amor MiAddress = GetMACAddress Select Case MiAddress Case "00:11:22:33:44:55", "66:77:88:99:aa:bb" Case Else: ActiveWorkbook.Close False End Select End Sub ' Function...