Abraham Valencia

[Hola No existe una herramienta propia de Excel (o de Office o de VBA) que convierta un archivo de Excel a Word por lo que debe trabajarse con un objeto "Word" del siguiente modo: Sub CopiaraWord() Dim MiappWord As Object Set MiappWord =...

[Hola Tomando en cuenta las celdas que mencionas yo usaría el evento "Initialize" del "Userform" y colocaría algo así: Dim UltimaFila As Long Dim Celda As Range Let UltimaFila = Cells(Rows.Count, 4).End(xlUp).Row For Each Celda In Range("D2:D" &...

[Hola En general siempre seleccionar (Usar Select) vuelve a los procesos más lentos y no es recomendable hacerlo: https://abrahamexcel.blogspot.com/2017/12/el-uso-y-abuso-de-select-y-selection-en.html Y si bien una la solución a tu caso sí pasa por...

[Hola Tienes varias líneas que la final no hacen nada por lo que te sugiero usar algo así más bien: Dim UltimaFila As Long Dim Buscar As Range Let UltimaFila = Cells(Rows.Count, 3).End(xlUp).Row With Range("C3:C" & UltimaFila) Set Buscar =...

[Hola No me queda claro lo que necesitas exactamente pero sugiero hacer lo siguiente: - Activa tu grabadora de macros - Ahora (y sin desactivar la grabadora) anda a la pestaña "Datos" y en el grupo "Obtener datos externos" dale a "Desde web", en...

[Hola Necesariamente tienes que tener/guardar esos nuevos valores en algún lado: - Otra hoja del archivo (puede estar oculta) - Otro archivo Excel - Algún archivo de texto o similar - Alguna base de datos como Access - En el registro de Windows Por...

[Hola No me queda claro el dilema (siempre es más fácil con un archivo en vez de imágenes) pero creo que si hablamos de rangos te será relativamente fácil usar "BuscarV". Mira en mi blog el ejemplo que uso con notas a ver si te es útil:...

[Hola No me queda 100% claro lo que deseas, pero te dejo un ejemplo: Dim MiTextBox As MSForms.TextBox Set MiTextBox = UserForm1.TextBox1 MsgBox MiTextBox.Text En el "MsgBox" aparecerá el texto del "TextBox1". Espero se entienda. Saludos] Abraham Valencia

[Hola Esta línea: "<img src=cid:" & imag & "height=23 width=813>" & _ Cámbiala por esta: "<img src='cid:'" & .Attachments.Item(1).Filename & "'' height=813 width=75>" & _ Ah, ojo, no necesariamente dará el resultado esperado pero inténtalo. Abraham...

[Hola No se puede seleccionar ese objeto si está oculto, por eso el error. Déjalo solo así: Sheets("CP").Shapes("Check Box 4").Visible = True Saludos] Abraham Valencia