Adriel Ortiz Mangia

[Hola ¿Pero deseas que el formato .PNG se mantenga?

[hola joaom Podemos crear o editar la macro, pero pon imágenes de tus datos y a partir ahí explica en que caso debe mostrar en mensaje, porque interpretar la macro línea por línea hace el trabajo más extenso.

[hola macro Sub adicionarC() For i = 2 To 5000 xcolor = Cells(i, 1).Interior.ColorIndex If xcolor = 6 Then Cells(i, 1) = Cells(i, 1) & "-1" End If Next i MsgBox "exito" End Sub

[hola no es posible cambiar la fuente. pero puedes crear tu propio msgbox con un formulario.

[hola macro Private Sub UserForm_Initialize() For Each hj In ThisWorkbook.Sheets If hj.Name <> "-" Then ComboBox1.AddItem hj.Name End If Next hj End Sub

[hola macro Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case "Liquidación Micro": TextBox1.Enabled = False Case Else: TextBox1.Enabled = True End Select End Sub

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

[Hola en la columna G multiplicar por 1 =F2*1 o también utiliza la función VALOR =VALOR(F2)

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")