Boa tarde!! Olha eu não sei é isso que você precisa! Sub Botão_127() Dim ws As Worksheet 'Define o nome da ABA Set ws = ThisWorkbook.Sheets(&quo...

Meu forte não é a integração com o Word, estou mexendo um pouco só para ajudar um pessoal aqui no serviço, ainda estou engatinhando, mas pelo que ente...

Sabe dizer em que linha exatamente ocorre o erro ? Geralmente este erro está associado a tentar acessar alguma área fora do limite, ou algum erro no ...

Boa tarde regomes Como você é novato(a), para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.php?f=7...

Bom dia!! Já tentou algo assim: ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter Att

Bom dia! Veja se ajuda... Att

Bom dia!! Eu creio que não! Att

Boa tarde!! Eu não entendi. Seria algo do tipo maximizar o UserForm? Private Sub UserForm_Initialize() Application.WindowState = xlMaximize...

Boa tarde!! Use nossa base de dados

Boa tarde!! Não testado! Sub Teste_Macro() Dim I As Integer Dim J As Integer 'Dim As Integer Dim w As Worksheet Dim senha As String senha = "1...

Boa tarde cmbruno Favor acessar o link abaixo para aprender como agradecer aos colaboradores e como marcar corretamente o tópico como Resolvido. Nest...

Boa tarde!! Tente algo desse tipo. Sub teste() Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp)....

Bom dia!! Enquanto isso....

Bom dia!! Use o Gravador de Macros Att

Pelo que entendi, a questão é que você quer salvar uma cópia do arquivo mas manter o original aberto, se for isto o comando SaveAs salva o arquivo ori...