Bom dia!! Tente assim.. Sub FiltraAleVBA_13343(stRegion As String) With ActiveSheet.PivotTables("TAXA_BOLETO").PivotFields("...

Bom dia!! Leia:

Bom dia!! Veja um modelo pronto. Att

Bom dia! O primeiro passo é formatar a sua base de dados como tabela do excel, não deixe linhas entre os dados, a segunda é vc dar uma olhadinha nest...

Bom dia!! Se eu entendi, grave uma macro!.... Sub BA() ActiveSheet.PivotTables("TAXA_BOLETO").ClearAllFilters With Active...

Bom dia!! Eu fico feliz em ajudar, obrigado pelo retorno!! Att

Bom dia!! Mande seu arquivo modelo!! Att

Bom dia!! Veja o modelo, abra uns 3 arquivos, depois click no botão para chamar o formulário, e veja os arquivos que estão abertos. Attt

Wolney, se quer simplesmente verificar quais arquivos (Excel) estão abertos, use a rotina abaixo : Sub Checar_Arquivos_Abertos() Dim wbk As Workbook...

Neste caso o erro irá continuar pois DOUBLE e INTEGER são Numéricos e não aceitam tipo Texto, a diferença só está no tamanho de alocação : Veja a tabe...

Analisando no Visual, estou supondo que o que está digitando no InputBox não é NÚMERO, uma vez que definiu as Variáveis : Dim VarNumeroNf As Integer...

Se eu entendi o que vc quer, a coluna I da planilha Acompanhamento_Corte terá que estar preenchida com o número do programa, senão não tem como eu vou...

Verifique antes se os nomes das abas correspondem aos nomes colocados no Array, se os nomes estão todos da forma que colocou acima, a linha deverá ser...

Boa tarde!! quando clicar em "Nova Chamada" além de abrir o formulário tu deseja inserir a hora? Att

Boa tarde!! Porque não foi posto as outras guais!!! Sheets(Array("jan", "dez")).Select Att