Só respondo quando a pessoa apresenta algum código, anexa o arquivo e explica qual parte não está conseguindo. O mínimo que você deve fazer é, pelo m...

O que você quer fazer é semelhante a um cadastro: https://www.youtube.com/results?search_query=vba+cadastro

Arquivo anexo

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