Marque como resolvido na parte que resolveu sua dúvida.

Private Sub TextBox1_Change() On Error Resume Next Worksheets(1).Range("a1").Value = CCur(UserForm1.TextBox1.Text) End S...

https://www.youtube.com/results?search_query=vba+pdv https://www.youtube.com/results?search_query=vba+controle+de+estoq...

Quando enviar código, aperte o botão Code. SUB TESTE() DIM LINHA AS LONG FOR LINHA =1 TO SHEETS("PLAN1").USEDRANGE.ROWS.COU...

Tirei todos os labels do frame4. Na propriedade caption dos checkboxes, coloquei o que estava na propriedade caption dos labels. Private Sub Command...

...............

Private Sub CommandButton1_Click() ' MsgBox "Tente criar uma planilha com o nome: planilha teste//////-----????? (crie exatamente com ess...

Só uma observação: Dizer Private Sub Worksheet É o mesmo que dizer nada com nada, pois o evento está incompleto. O evento completo seria: Private...

.............

Private Sub TextBox1_Change() Worksheets(1).Range("d4").Value = CCur(UserForm1.TextBox1.Text) End Sub Como você bloque...

https://www.google.com.br/search?q=VBA+RENOMEAR+TXT&oq=VBA+RENOMEAR+TXT&aqs=chrome..69i57.6626j0j7&sour...

..............

Consegui!!!

Anexar todos os arquivos ou, pelo menos, todos os arquivos de exemplo, já com dados e todos os controles (tipo botões, combobox, textbox) ou especific...