Ir para conteúdo
Fórum Script Brasil

Julio Nassif

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Julio Nassif

Julio Nassif's Achievements

0

Reputação

  1. Boa tarde pessoal, Eu estou criando um programa em VBA de cadastro de clientes/produtos e controle de estoque O cadastro e pesquisa está funcionando tudo bem. Para cadastrar a imagem eu estou usando o seguinte codigo: Private Sub Image1_Click() Dim myPictName As String Dim lLinha As Long myPictName = Application.GetOpenFilename If IsNumeric(txtCodigo.Text) = True Then Set currentFind = Worksheets("Plan1").Range("A:A").Find(txtCodigo.Text, , _ Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _ Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False) lLinha = currentFind.Row Else lLinha = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row + 1 End If If myPictName <> "" Then Me.Image1.Picture = LoadPicture(myPictName) Image1.PictureSizeMode = fmPictureSizeModeStretch Image1.Visible = False Image1.Visible = True Worksheets("Plan1").Cells.Range("E" & lLinha).Value = myPictName End If End Sub O problema é que o endereço da imagem ta ficando em outra linha que não a nova e quando eu faço a pesquisa do produto eu pego todos os dados e ele não carrega a imagem. Poderiam me ajudar? Att.
×
×
  • Criar Novo...