Bom dia!! Não testado. Sub AleVBA_20430() Dim Nome As String Nome = ActiveSheet.Range("A1").Value If Nome <> vbNullStri...

Bom dia!! Grave uma macro Sub AleVBA_20431() [N1].Value = "AleVBA" Columns("N:N").Select Se...

Bom dia!! Em nossa base há exemplos Essa parte: Filename:="C:UsersAleVBADownloads" é o local onde o arquivo será salvo Essa par...

Boa noite Megatron Usei fórmula matricial, portanto, no final, em vez de teclar ENTER, tecle CTRL+SHIFT+ENTER 19_05_16_Horas por Projeto_Patropi.zi...

kellyanems Utilizei a ferramente de pesquisa do fórum que retornou 8 páginas com a relação de tópicos sobre o assunto, veja:

Boa tarde!! Já tentou algo assim Sub ConformeIndiquei() 'Fonte: http://www.databison.com/pivot-table-vba-vba-to-read-modify-a-piv...

Boa tarde!! Sub ConformeIndiquei() 'Fonte: http://www.databison.com/pivot-table-vba-vba-to-read-modify-a-pivot-table-in-excel/ ...

Oi. Estou constrangido em voltar a te informar que está quase perfeita, mas ainda não está fazendo o último detalhe que é de centralizar o texto vert...

Boa tarde!! Poste seu arquivo modelo! Att

Boa tarde!! Se você remover a chamada (código que chama o userform), roda normal? Verificou se ha erro em seu código (isso pode envolver o local ond...

Com o exemplo fica mais fácil, mas o erro que citou no segundo procedimento foi devido a você ter habilitado as instruções que deixei só para ver o qu...

Boa tarde!! Poderia postar seu arquivo modelo? Att

Boa tarde Atoledo Como você é novato no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.p...

Boa tarde galvão Confira na planilha: 19_05_16_Somar com Critérios_Patropi.zip Se foi útil, clique na mãozinha. Dê retorno. []s