Dante Amor

Ho la y bienvenido a TodoExpertos. Si quieres una imagen el cuerpo del correo revisa el siguiente ejemplo: Envío de emal por Outlook desde excel Cuando hayas conseguido enviar una imagen en el cuerpo del correo, entonces seguimos con el siguiente...

Le doy referencia a un rango Puedes poner aquí ese rango. Si el rango es de la columna A a la D y empieza en la fila 1, entonces utiliza el siguiente código en lugar de utilizar el rango: Private Sub UserForm_Activate() Dim i As Long For i = 1 To...

Prueba también con lo siguiente: Cdbl(ListBox1. List(i, 1)) Si no te funcionan las opciones, podrías poner un ejemplo de cómo tienes el dato en el listbox y cómo debería quedar en la hoja. También pon aquí el código que estás utilizando para poner...

Prueba lo siguiente: Sub importar_Xml() Dim sPath As String, sFile As String Dim Book As Workbook, sh As Worksheet Dim lr As Long ' With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .DisplayAlerts =...

Prueba lo siguiente: Sub CopiarCodigos() Dim c As Range, f As Range For Each c In Sheets("Hoja2").Range("A2", Sheets("Hoja2").Range("A" & Rows.Count).End(3)) Set f = Sheets("Hoja1").Range("A:A").Find(c.Value, , xlValues, xlWhole, , , False) If f Is...

Utiliza la misma funcionalidad para Quitar Duplicados, solamente selecciona las columnas o los encabezados que forman la "llave" completa.

Para eso, cuando proteges la hoja, debes marcar las casillas - Seleccionar celdas bloqueadas - Seleccionar celdas desbloqueadas

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If If TextBox2.Value = "" Then MsgBox "Captura el segundo dato" TextBox2.SetFocus Exit Sub End If ' Dim...

De acuerdo cesar corado, con gusto te ayudo, pero quisiera que me ayudaras a ayudarte. El ejemplo que yo puse solamente son suposiciones, me gustaría que tú pusieras un ejemplo con datos y con imágenes de la siguiente manera: 1. Una imagen de la hoja...

Utilicemos esta opción: Las hojas pueden estar nombradas por ejemplo: "A" - "B" Pon el siguiente código en tu formulario: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If...