Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB...

Sub Sample() ShowFolderList ("C:teste") End Sub Sub ShowFolderList(folderspec) Dim fs, f, f1, fc, s, sFldr Set fs = CreateObject("...

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/6611027212 http://brzexceldeveloper.blogspot.com....

No Youtube há milhares de vídeos sobre VBA. Só não aprende quem não quer: https://www.youtube.com/results?search_query=excel+vba

Você não explicou em que células estão os produtos nem em que células estão os comentários nem como saber qual imagem vai em qual comentário. Você não...

Fiz outra versão, sem pular linha dentro da ficha.

Fiz outra versão, pulando uma linha a mais entre uma ficha e outra.

Já postei o anexo. Funcionou perfeitamente. Dá para inserir mais pessoas (linhas) e mais informações (colunas), sem precisar alterar o código. Com a m...

Teste o anexo postado abaixo

Sub Localizar() Dim i As Long Dim UltimaLinha As Long Dim Linha As Long Linha = 3 While Plan2.Cells(Linha, 2)....

Arquivo anexo abaixo

https://youtu.be/FAOQfKL5pXc

Apague a linha Option Explicit Ou declare as variáveis: Public c as Long Public a as Long

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

https://www.youtube.com/results?search_query=excel+vba+alterar+dados