Abraham Valencia

[Hola Mira esta forma: Sub CopiarPegar() Dim Hoja As Worksheet Dim MiRango As Range Dim MiImagen As Chart Dim ruta$ Dim MiappWord As Object Let ruta = ThisWorkbook.Path & "\grafico.bmp" Set MiappWord = CreateObject("Word.Application")...

[Hola Quizá sea más fácil ayudarte si muestras cómo lo haces ahora y sobre esa base darte alguna sugerencia. Y segundo, y que no mencionaste ¿cuál de todos los registros se elegiría? Simplemente ¿el primero que aparece? Abraham Valencia

[Hola Lamentablemente el tipo de captchas como el usado en esa web, en donde por ejemplo salen figuras de taxis para elegir, justamente están hechos para impedir la automatización desde otros programas como el VBA y lamentablemente no hay forma de...

[Hola Prueba abriéndolo así: Workbooks.Open ThisWorkbook.Path & "\NombredelLibro.xlsx", UpDateLinks:=0 Solo adáptalo a tus instrucciones ya que no especificaste como has intentado en específico. Comentas Abraham Valencia

[Hola Dicho control no es compatible con los Userform de VBA, es solo compatible con los formularios personalizados de Microsoft Outlook por ende no puedes usarlo en Excel. Recomiendo usar el Control Calendar 8.0 que es compatible con (casi) toda...

[Hola Cuando se está editando/ingresando datos dentro de una celda (combinada o no) el control de la aplicación lo tiene el usuario, no el mismo Excel y/o VBA, por lo que no es posible hacer, en automático, lo que estás mencionando. Tanto con...

[Hola Después de esta línea: Me.DATA_OT.RowSource = Clear Coloca esta: Me.DATA_OT.List = Range(Cells(1, 1), Cells(1, 18)).Value Y ya podrás quitarle el apóstrofe a los datos que antes no se llenaban en el Listbox. Abraham Valencia

[Hola Usa el evento "BeforeDoubleClick" de la hoja. Pega esto en el módulo de la hoja en donde quieres obtener el efecto al hacer doble click en alguna celda del rango en cuestión: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel...

[Hola Debes usar la opción "Compartir Libro": https://support.office.com/es-es/article/acerca-de-la-caracter%C3%ADstica-de-libro-compartido-49b833c0-873b-48d8-8bf2-c1c59a628534 Comentas Abraham Valencia

[Hola La forma "sencilla" es colocar: = A1 & ";" & A2 & ";" & A3 & ";" & "A4"... Etc. La otra forma es: Sub Concatenar() Dim ultimaFila As Long Dim Celda As Range Let ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row For Each Celda In Range("A1:A" &...