Adriel Ortiz Mangia

[hola revisa esta pagina https://www.udemy.com/ , para excel puedes visitar esta web

Pon un imagen de tu información y donde se va pegar los datos filtrados

Ajusta de esta manera ruta = ThisWorkbook.Path & "\" FOTO = ruta & Sheets("DESCRIPCION").Range("F6").Value ' ActiveSheet. Shapes("foto"). Fill.UserPicture (ruta & "NO.JPG")

Prueba y comentas Macro Sub copiar() Dim LibroDestino As Workbook Application.ScreenUpdating = False Set LibroOrigen = Workbooks.Open("\\Consignatria 2020.xlsx") Set LibroDestino = Workbooks.Open("C:\PruebaCarga.xlsx") 'Abre libro destino On Error...

Macro Private Sub CommandButton2_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then Fila = b.Row ' h.Cells(Fila, "B") = TextBox1 h.Cells(Fila, "C") = TextBox2 Select Case...

Macro Private Sub CommandButton1_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' h.Cells(fila, "B") = TextBox1 h.Cells(fila, "C") = TextBox2 ' 'vas agregando...

Macro Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' TextBox1 = h.Cells(fila, "B") TextBox2 = h.Cells(fila, "C") ' 'vas agregando el...

Macro para cargar el segundo combobox Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub crea una nueva petición para mostrar...

[Hola después de tu filtro pon esto fila = Worksheets("Hoja1").Range("B" & Rows.Count).End(xlUp).Row If fila = 1 Then MsgBox "No existe registros"

Prueba de esta manera Private Sub cmd_salirMenu_Click() Application.DisplayAlerts = False Application.EnableEvents = False ' Application.Visible = True 'Habilita los libros de Excel ThisWorkbook.Save 'Guarda los cambios del Excel Automaticamente...