Private Sub UserForm_Initialize() Me.TextBox1.Text = ActiveCell.Value End Sub

Espero que você estude, entenda e adapte o código a seguir: Sub copiar() Dim intervalo As Range Dim cl As Object Set intervalo = Plan1.Range(&...

O que você está querendo demanda muito tempo para fazer o código. Dificilmente alguém vai mastigar tudinho. Se você fosse uma mulher muito atraente, a...

https://www.youtube.com/results?search_query=vba+importar+txt https://www.youtube.com/results?search_query=vba+exportar+...

Você pode importar do TXT para o Excel e depois exportar do Excel para o TXT.

https://www.youtube.com/results?search_query=vba+listbox https://www.youtube.com/results?search_query=vba+relatorio http...

mas qual código posso usar para fazer a substituição que faça a mesma finalidade Quando fizer uma pergunta, use ponto de interrogação.

Option Explicit Public vMes As String Public somaFarmaciaMes, somaFarmaciaAno As Double Public somaAçougueMes, somaAçougueAno As Double Public somaLe...

Private Sub Workbook_Open() With ThisWorkbook.Worksheets("Planilha1") MsgBox "inicio" If .CheckBox1&...

Select e Activate deixam mais lento.

Se quiser aprender Excel VBA, o Youtube é uma boa universidade. Mas é preciso ter muita força de vontade (coisa rara na humanidade): https://www...

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim linha, col As Long linha = 2 col = 2 While Plan1.Cells(1, c...

Estude listbox: https://www.youtube.com/results?search_query=excel+vba+listbox O que você está chamando de checkbox, nada mais é do q...

Form_sac.ListBox1.List(0) É o primeiro item. 1 é segundo, 2 é o terceiro

Anexe o arquivo