Este fórum está sendo desativado

[samarazamora]

boa noite a todos.

estou com um problema.

preciso de um comando em VBA que possa, ao clicar no botão do form salvar, ele faça o seguinte.

arquivo: c:\novapasta\foto1.jpg

fazer isso na planilha:

celula a1: c:\

celula b1: novapasta\foto1.jpg



desde já obrigada.

[osvaldomp]

Olá, @samarazamora .

Experimente:

Código: Selecionar todos

Dim k As Long, str As String
  str = "c:\novapasta\foto1.jpg"
  k = InStr(str, "\")
 [A1] = Left(str, k)
 [B1] = Right(str, Len(str) - k)

#
Se o texto do caminho pode variar e para não precisar alterar no código, então você pode colocá-lo em uma célula, por exemplo em D1 ~~~> str = [D1]

[samarazamora]

BOA NOITE @osvaldomp OSVALDO
OBRIGADA PELA DICA
SE PUDER ME AJUDAR
PRECISO DE UM CODIGO QUE SEPARE O ENDEREÇO DO PC DA PASTA QUE ESTA O ARQUIVO.

C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\FOTO (3).jpg -------------- ENDEREÇO DA FOTO

PRECISO DISSO:

TEXTBOX1 = C:\Users\Marce\OneDrive\Área de Trabalho ------ ENVIA PARA PLANILHA
TEXTBOX2= PLANILHA GERAIS\IMAGENS\FOTO (3).jpg------ ENVIA PARA PLANILHA

[osvaldomp]

Olá, @samarazamora .

Não entendi qual é a sua dificuldade para implantar esses comandos tão simples, pois você já trabalha com UserForm.

Ou não entendi o que você quer ?

Código: Selecionar todos

 TextBox1.Value = "C:\Users\Marce\OneDrive\Área de Trabalho"
 TextBox2.Value = "PLANILHA GERAIS\IMAGENS\FOTO (3).jpg"
 [A1] = TextBox1.Value
 [B1] = TextBox2.Value

[samarazamora]

DEIXA EU SER MAIS CLARA.
É O SEGUINTE:
CRIEI UMA USERFORM COM CADASTRO DE FOTOS.
MEU DESEJO É. QUANDO EU SELECIONAR UMA FOTO E O CAMINHO DELA VIER ESPECIFICADO.

QUE:
NA TEXTBO1. = CONTENHA O ENDEREÇO DO COMPUTADOR QUE ESTA PASTA ESTA. POR EXEMPLO:
FOTO: C:\AREA DE TRABALHO\NOVAPATA\IMAGEM\FOTO1.JPG

TEXTBOX1= C:\ÁREA DE TRABALHO.

OU ENTÃO SE TERIA UM COMANDO QUE IDENTIFICASSE ESSE ENDEREÇO ONDE A PASTA LOCALIZA-SE E FOSSE POSTO AUTOMATICAMENTE NO TEXTBOX.

[osvaldomp]

Disponibilize uma amostra do seu arquivo Excel.

Coloque alguns exemplos e coloque também os resultados desejados em cada caso.

Informe com exatidão o que você deseja, pois no seu primeiro post você pede para preencher A1 e B1. No segundo post mudou para TextBox1 e TextBox2 e aparece só "envia para planilha". Já no terceiro é citado que existe uma lista de fotos, suponho que a lista esteja em um outro Controle, e só aparece a TextBox1. A TextBox2 e "planilha" não aparecem mais.

[samarazamora]

pronto ai segue a planilha.
Private Sub CommandButton1_Click()
On Error Resume Next

FOTO = Application.GetOpenFilename(FILEFILTER:="IMAGEM, *.jpg")

Image1.Picture = LoadPicture(FOTO)

'COLOCAR O MEMSO NOME DA FOTO NO TEXTBOX PARA SALVAR
Dim CAMINHO, K As String
CAMINHO = FOTO
'PARA POR O DIRETORIO
K = InStr(CAMINHO, "")

'REPRESENTA O ARQUIVO
TextBox1 = Mid([CAMINHO], InStrRev([CAMINHO], "\") + 1)
===> quero que fique nessa textbox. somente a a pasta do arquivo com o endereço (pastanova\imagens\foto.jpg)

'REPRESENTA O CAMINHO
TextBox2 = Left(CAMINHO, K) & Mid([CAMINHO], InStrRev([CAMINHO], ":\"))
====> nessa quero que fique o endereço onde esta a pasta que fica os arquivos (c:\usuário\area de trabalho)

[osvaldomp]

Código: Selecionar todos

TextBox1 = Right(CAMINHO, Len(CAMINHO) - 41)
TextBox2 = Left(CAMINHO, 40)

#
Resultados para dois exemplos que estão na planilha P1 do seu arquivo:

exemplo em B2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\monstros gregos\E (1).jpg
TextBox1 ~~~> PLANILHA GERAIS\IMAGENS\monstros gregos\E (1).jpg
TextBox2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho

exemplo em B10 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\FOTO (127).jpg
TextBox1 ~~~> PLANILHA GERAIS\IMAGENS\FOTO (127).jpg
TextBox2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho