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.

Código para preencher a combobox Private Sub UserForm_Initialize() 'COLOCAR OS ANOS NA COMBOBOX Dim I As Integer For I = 2015 To 2023 Me.ComboB...

Seria interessante chamar a macro sempre que mudasse de célula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call ContaRegistros End ...

Que eu saiba, algumas versões mais antigas do OFFICE não têm a opção de salvar como PDF. Isso não está relacionado ao Windows 10. Verifique qual versã...