We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub InsereFotografia() On Error Resume Next Dim result() As String result = Split(ActiveCell.Value, "-") Dim num As Long num = result(0) ActiveCell.Offset(-2, 0).Select ActiveSheet.Pictures.Insert( _ "P:\Backup Montagem Final\ARQUIVO\Agenda MF 2011\FOTOS MF 2011\000" & num & ".JPG").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel formula to append date to end of url||6||30|
|Can't save MS Office 2016 documents to "My Documents" folder||26||58|
|automatic updating of an excel spreadsheet hosted by sharepoint||12||51|
|merging or copying calender from 2 exchange mailboxes||3||16|