Estoy tratando de escribir un código para cada célula a abrir un PDF incrustado

votos
0

Estoy trabajando en una hoja de cálculo que se puede enviar por correo electrónico a nuestros clientes. He escrito el siguiente código para que al hacer clic en el doble de la célula de la PDF para esa celda se abre. Estoy atascado en la escritura de la siguiente código para que la siguiente celda abriría otro PDF. Cualquier ayuda se agradece

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = $B$2 Then

Application.ScreenUpdating = False

Sheets(Attachments).OLEObjects(Object 1).Verb

Me.Activate

Application.ScreenUpdating = True

Cancel = True

End If

End Sub
Publicado el 13/01/2020 a las 23:49
fuente por usuario
En otros idiomas...                            

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more