Dante Amor

Responde en el siguiente orden: 1. Pon una imagen con ejemplos para ver cómo tienes los datos en la hoja. 2. Una imagen de cómo quieres los datos en el correo. 3. ¿De dónde se obtiene el correo para cada proveedor? 4. Qué va en el asunto del correo.

Prueba lo siguiente Sub Crear_Carpetas() Dim carpeta_inicial As String, carpeta_nombre As String Dim carpeta_fecha As String, carpeta_codigo As String ' carpeta_inicial = "C:\trabajo" carpeta_nombre = Sheets("Hoja1").Range("A2") carpeta_fecha =...

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el dato en el textbox1" TextBox1.SetFocus Exit Sub End If With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) =...

Revisa lo siguiente: Sub Abrir_Archivo() Dim arch As String Dim estado As Boolean ' arch = "c:\trabajo\diario de consulta.xlsx" ' On Error Resume Next Open arch For Binary Access Read Write Lock Read Write As #1 Close #1 estado = Err.Number Err.Clear...

Libro origen, cómo se llama el libro, la hoja y las celdas que quieres copiar. Libro destino, cómo se llama el libro, la hoja y las celdas dónde quieres pegar.

Si es sobre la mima macro, utiliza lo siguiente: Sub Copiar() Dim num As Variant Dim ruta As String ' num = Worksheets("Ficha").Range("F2").Value ruta = "C:\Users\Laura\Documents\" ' 'Buscar archivos en la ruta con el número arch = Dir(ruta & "*" &...

Prueba lo siguiente: Sub Copiar() 'Abre word prueba con cc If Worksheets("Ficha").Range("F2") = 41792953 Then Set WordApp = CreateObject("word.Application") WordApp.Documents.Open "C:\Users\Laura\Documents\prueba historia.docx" WordApp.Visible = True...

Selecciona los dato y Utiliza la funcionalidad de excel, en el menú Datos, Quitar duplicados:

Sin estar seleccionada la celda y teniendo su dirección $A$1 pertenece a un rango de A1:B6. Puedes explicarlo

H o l a José: Me mencionaron en esta pregunta y trataré de ayudarte. Tengo el procedimiento de como se extrae manualmente, pero necesito que el proceso sea automático Puedo enviar el procedimiento Puedes poner el procedimiento y lo que tengas de macro.