Boa noite joaozinho Antes de criar um tópico, utilize primeiro a ferramenta de pesquisa do fórum, pois já temos tópicos sobre o assunto como este aqu...

Supondo que seus texts, sejam TextBox1 a 6 Pode Experimentar: Sub Soma_0() Dim x As Integer, Total As Double For x = 1 To 6 If Me.Controls(&q...

Josy, se procurar entender a formula verá que pode ser ajustada, por exemplo, pegue uma das abas e adicione colunas a partir da coluna A até chegar na...

Não entendi o Titulo, mas veja se é isto o que pretende. Troque esta linha : While Linha < QuantDados + 1 Por esta : While Linha < QuantDados ...

. Eu ia melhorar a formula, como ela está funcionando, e estou só de passagem, só ajustei para não preencher quando estiver em branco ... testa aí ......

Boa tarde Leituga Para utilizarmos a função PROCV, conforme o Copa já comentou (que vai deixar a tua formula bem menor), precisamos que você coloque ...

Boa tarde!! Já tentou algo assim? Dim files As Variant, file As Variant files = Split(filepath, ",") For Each file In files .attac...

. Leituga, vendo só a formula assim fica difícil fazer alguns testes ... sugiro que você poste esse arquivo com apenas umas 10 linhas para vermos a si...

Na planilha Referidos, celula C171 há um erro, corrija essa celula e rode sua rotina novamente

Bom dia Synth É claro que posso te ajudar. Clique na célula G2 e observe na barra de formulas que é mostrado o mês como um texto (apenas formatação),...

Só uma obs nas instruções passadas pelo Marcelo, as mesmas formatam as colunas inteiras independente de ter dados ou não, eu a principio não utilizari...

Foi o que citei acima referente ao uso de "Offset", e como desconheço o layout de sua planilha não tenho certeza onde quer colocar o resulta...

Altere a linha : intLastRow = Sheets("cadastroORI").Range("A1").End(xlDown).Row + 1 para : intLastRow = Sheets(&qu...

Conforme a dica do Marcelo altere para : [B1048576].End(xlUp).Offset(2, 1).Font.Bold = True [B1048576].E...

. Troca o início ... =SE($A11="";0;SE( .