20 Como ler a area de tranferencia para Excell comentada em 10/07/2019 12:04 Tecnologia Ricardoch2 em 01/07/19 13:25 comentada em 10/07/2019 12:04 Sub Lclip() With New MSForms.DataObject If (CountClipboardFormats() = 0) = True Then MsgBox "Clipboard está vazio" Range("H10") = "" Else On Error Resume Next .GetFromClipboard a2 = .GetText(1) If Err.Number <> 0 Then MsgBox "Clipboard não contem texto" Err.Clear Range("H10") = "" Else Range("H10") = a2 End If End If End WithEnd Sub