Queria inserir via código, usando caracteres. Tentei inserir os caracteres gravando uma macro, mas o gravador de macro não reconheceu nenhum. Já h...

@edsonbr Obrigado, Edson.

Obrigado. Vou aguardar para ver se alguém conhece uma forma que não usa Copy Paste.

Estes vídeos explicam:

Este vídeo explica: Private Sub CommandButton1_Click()Dim linhalistbox As Long, rng As RangeDim LR As Long, r As Range, LRf As Long, cod As LongD...

Já está com todos os casos.

Por favor, não invente mais nada, pois já deu um trabalho ENORME.  busca-e-contagem-de-valores.xlsm

Moderadores, Sugestão para o título deste tópico: Atingir meta

O uso de Select deixa o código mais lento. Evite sempre que for possível. Sub AtingirMeta()Dim MargemDesejavel As DoubleDim linha As Long'Range(...

Private Sub btnFiltrar_Click()Dim linha As LongDim liSTA As ListItemIf Me.txtDataFinal.Text <> "" And IsDate(Me.txtDataFinal.Text) ThenIf Me.txt...

Este vídeo explica: Private Sub CommandButton1_Click()Dim linha As LongDim achou As Booleanachou = Falselinha = 2While Plan1.Range("A" & ...

fim = Range("A3").End(xlDown).RowFor i = 3 To fimIf TextBox1.Value = Trim(Cells(i, "A")) Thenapt = Trim(Cells(i, "A"))For y = 3 To fimIf TextBox2.Valu...

Option ExplicitSub InsereBloco()Dim Bloco As RangeDim lDestino As Range'Dim lFinal As Integer'Dim cFinal As IntegerActiveSheet.Unprotect'Application.C...