Fiz pequenas alterações na estrutura.. veja se funciona.. Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Ob...

Acho q nao esta tão simples de entender... melhor postar uma planilha de exemplo

Veja se atende...

Teste assim Sub Verifica_Arquivo() Dim strPath As String Dim l As Integer l = 1 Do l = l + 1 If Cells(l, 1).Value = ""...

Tente assim: Dim EncontraString As String Dim Rng As Range Dim i As Integer Dim n As Integer Dim v As Integer n = 15 i = ...

Codigo do evento duplo clique do listbox Dim valor_lista As Integer Dim selecao As Integer selecao = ListBox_Pesquisarnome.ListIndex valor_list...

Anexo...

Segue anexo exemplo de como pode ser... não implementei todo o codigo apenas como exemplo. Utilize ToggleButton no lugar de CommandButton para carreg...

Segue anexo. Verifique se é isso...

Verifique as alterações no botão para chamar o formulário para incluir fornecedor e no botão salvar...

Ola ciutu... também trabalho com folha de pagamento e utilizo vários recursos do excel para montar n formulários. Como uma sugestão, simplificaria mui...

Duas alternativas: 1-Na coluna A inclua a extensão do arquivo, que ficaria assim: Imagem1.jpg Imagem2.jpg Imagem3.jpg Imagem4.jpg OU 2-Se as image...

O codigo faz um loop a partir da linha 1 e para se encontrar alguma vazia. Verifique se a primeira linha esta vazia... O codigo também verifica se a ...

Sub CarregaImg() Dim img As String Dim ht As Double Dim wt As Double Dim lt As Double Dim tp As Double Dim l As Integer Dim fs Set fs = C...

Xman, Por mim tranquilo... mas acho q você tem que montar o arquivo ai.. da forma que acha melhor.. e as duvidas que vão surgindo vai postando...