Para o Botão Excluir Private Sub CommandButton2_Click() Dim i As Integer, nLin As Integer For i = 0 To ListBox_pesq.ListCount - 1 If ListBox_...

Para o botão inserir Private Sub BTN_INSERIR_Click() Dim campos As Variant Dim k As Byte Dim h As Integer Application.ScreenUpdating = False Sh...

Desculpe, mas não entendi. Estou (re)postando o arquivo que está corrompido. À moderação, peço excluir o arquivo anterior, visto que meu usuário (Rein...

Gilmar, não entendi direito mas, primeiros cometários: Uma range nomeada, pode ser referenciada no VBA como se "chama" uma range normal Sup...

Experimente assim: ActiveWorkbook.SaveAs Filename:="D:UsuáriosTerminalDesktopORÇAMENTOS - 2015" & "ORC - " & NUME & &q...

Note que na proposta do Alexandre, Col_A e/ou Col_B são ranges nomeadas (veja guia formulas -->Gerenciador de nomes) Para aplicar em outras Range/C...

Experimente assim: Sub toTexto() Dim x As Long For x = 2 To Sheets("CADPROD").Cells(Cells.Rows.Count, "A").End...

Além das ótimas dicas do Gilmar, segue uma rotina que talvez auxilie. Sub toTexto() Dim x As Long For x = 2 To Sheets("Original").Cells...

Ale pode utilizar a propriedade HasFormula do Help VBA True se todas as células do intervalo contiverem fórmulas, False se nenhuma das células do inte...

Como trata-se de uma pesquisa que pode retornar de Zero a N resultados, então deve ser tratada como Array. Então a maneira de utilizar a função altera...

Veja se auxilia Sub Macro1() Dim Arquivo As String, ArqBase As String Arquivo = InputBox("Digite o nome do arquivo.", "Nome do AR...

Veja se auxilia. Obs.: Postagem tambem em

Não é que vá assumir o padrão, o padrão de Display no Excel é o definido no sistema operacional. Porem internamente, como data é "arquivada"...

A informação de inconsistência, normalmente e "dada" quando o Excel tenta "padronizar" as formulas em uma determinada range, assim...

Como disse, é preciso tratar o texto da combo. Ao utilizar 'ComboBoxMesAno.SetFocus vMesAno = Format(ComboBoxMesAno.Text, "MMM/YYYY&quo...