Option Explicit Sub teste() 'este código percorre todas as planilhas 'cujo nome começa com "20" 'espero que consiga adaptar para a sua ne...

Em vez de "linguagem", diga "macro" ou "código". Em vez de "fórmula", diga "macro" ou "código&q...

MsgBox = Caixa de Mensagem InputBox = Caixa de Entrada Com inputbox não é possível. Só é possível se você inserir um formulário e uma caixa de texto...

Acostume-se a executar o código passo a passo, apertando F8. Foi só mudar de 6 para 7. Sub Retângulodecantosarredondados1_Clique() 'Sub Gera_Etiqueta...

Os nomes das caixas de texto estavam diferentes.

Uma solução que consigo imaginar agora, seria deixar o Excel sempre visível, mas as planilhas ocultas ou com células bloqueadas. Na internet há vários...

Há milhares de vídeos sobre Excel VBA: https://www.youtube.com/results?search_query=excel+vba Há vários vídeos explicando como fazer ...

Option Explicit Private Sub TextBox1_Change() On Error Resume Next If Me.textbox2.Text = "" Then Me.TextBox3.Text = Me&...

Cells(i + 1, col_ini_prospec) = CDATE(dia & "/" & mes & "/" & ano)

Se resolveu, marque como resolvido na parte que te ajudou.

Sub marcar() Dim numero, numero2 As Long Dim linha As Long linha = 4 While Planilha1.Cells(linha, 1).Value <> "" If Plan...

Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex >= 0 Then ListBox1.ColumnCount = 8 'ListBox1.RowSource = ComboBox1...

Tópico relacionado: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27185 Para percorrer todas as planilhas d...

Se resolveu, marque como resolvido na parte que te ajudou.