fazerbem, adaptei MG e RJ, Agora é só atribuir todos os quadrados à macro. E depois tratar algum possível erro e os ajustes necessários. Qualquer c...

Para mim está difícil entender o que deseja. Imprimir uma mesma planilha um determinado numero de vezes? e/ou imprimir varias planilhas diferentes ...

Normalmente o localizar /substituir do excel dá conta do recado

Private (Privado) indica que a rotina/macro estará disponível/visível somente no modulo/evento onde foi criada. Assim impede que essa rotina seja most...

Bom dia JPCS1976 Se são poucos dados dá para fazer com a função SE. Veja na planilha: 17_12_15_Cronograma_Patropi.xlsx Se forem muitos dados teri...

Boa noite acrnkovic Fiz o que vc pediu usando a função SOMARPRODUTO, que substitui com algumas vantagens as funções SOMASE, SOMASES, CONT.SE e CONT.S...

Não utilizo o share point, não sei dizer se tem haver ou não. Voçe manda o arquivo para o share e recebe de volta com alteraçoes?? Contudo voçe relato...

Entendo que a troca deva ser efetuada apenas em B1 da folha 1. Experimentou utilizar o substituir do Excel? Na guia de Menu --> Pagina Inicial, sel...

Boa tarde yaheei Seja bem-vindo(a) ao fórum! A tua pergunta está muito genérica, normalmente as pessoas anexam uma planilha com alguns dados, demons...

Segue em anexo o seu arquivo modificado. Clique no botão Ajuste e veja se executa Obs.: Desculpe deletei sua MP sem responder, porem não tenho Team Vi...

Como o texto de data vem com o ano abreviado, gera uma duvida na conversão para a formula, se 1916 ou 2016, você pode fazer o que o colega acima recom...

Boa tarde, Veja se este código atende: Sub CopiarNegrito() Dim i As Integer Dim Texto As String For i = 1 To [A1].Cu...

Denilson, primeiro você deveria dizer o que não está dando certo, só pela frase : "o que tu me indicou a fazer não esta dando certo" fica di...

Existem outra "shapes" em seu arquivo e o tamanho da imagem corresponderão a varias celulas mesclada Então exeprimente assim Sub AjustaTaman...

Talvez; mas seria mais correto (penso eu) algo assim: Apos o primeiro End With .... End With If LR<15 then LR=15 With ActiveShe...