Ir para conteúdo
Fórum Script Brasil

samara.vba

Membros
  • Total de itens

    19
  • Registro em

  • Última visita

Posts postados por samara.vba

  1. @Basole, olá novamente.

    estou criando um mapa dinâmico em vba, e para isso criei cada pedaço em pnd que tem o fundo transparente.

    quero colorir apenas a imagem dessa foto no excel. oproblema é que quando ponho esse código.

     módulo colorir

    ActiveSheet.Shapes.Range(Array("Picture 6")).Select

    ele pinta somente o fundo da imagem e a imagem não.

    tem algum código que possa pintar a imagem e não o fundo?

    desde já obrigada pela atenção.

  2. @Basole perfeito amigo, se não for incomodar muito, daria para abrir uma lista suspensa? como um combobox? e ir aparecendo as opções à medida que fosse digitando?

    exemplo:

    textbox1>>>>>>>> mari  >>>>>>>>>>>>>>>>maria a>>>>>>>>maria al>>>>>>>>>>maria alm

    lista suspensa>>>>maria almeida>>>>>>>>>>maria almeida>>>>maria almeida>>>>>maria almeida

                                     maria gonçalves>>>>>>>>maria alencar>>>>>maria alencar

                                     maria feitosa>>>>>>>>>>maria afonso

                                    maria alencar

                                    maria afonso

    podendo ter a opção de apagar e selecionar abaixo.

    e obrigada pela ajuda @Basole

  3. Em 27/04/2022 em 18:01, samara.vba disse:

    boa noite a todos

    estou com um problema.

    tenho um fomrulário de pesquisa baseada em um combobox.

    gostaria que ele agisse da seguinte forma. ao digitar algo, uma lista suspensa aparecesse e fosse filtrando de acordo com os dados, conforme acontece com 

    o site de pesquisa google.

    exemplo:

    banco de dados >>>>>>>>>>>>>>>> combobox_  mari >>>>>>>>>>>>>>maria vi >>>>>>>>>>>>maria vieira s

    nomes                                                                             maria                                 maria vieria                       maria vieira sousa

    maria                                                                               maria vieira                       maria vieira sousa

    maria vieira                                                                     maria vieria sousa

    maria vieira sousa

    que fosse filtrando a medida que for digitando.

    desde já agradeço.

    @Basolepoderia em ajudar?

    @Basole e para eu fazer a mesma coisa, mas utilizando uma textbox ao invés de uma combobox. como ficaria?

  4. @Basole estou quase conseguindo. mais de mês que esse problema me assola.

    vou explicar direitinho.

    tenho um app vba que salva o cadastro com uma foto.

    #o meu problema é: que quando mudo o app para outro pc, o caminho da foto fica desatualizado, logo não exibe mais a foto

    no fomrulário quando se quer pesquisar.

    preciso de um comando que: individualize as partes do caminho para futura atualização.

    ou mesmo um comando que atualize ao abrir o excel. por exemplo.

    computador 1 >>>>> c:\maria\desktop\app\foto\imagem.jpg. [este é o caminho da foto do cadastro]

    #o meu problema é: quando passo essa planilha com a pasta para outro computador. o caminho fica desatulizado.

    computador 2 >>>>>d:\joão

    o caminho fica : >>>> c:\maria\desktop\app\foto\imagem.jpg<<< logo, a foto não aparece na imagem do app vba.

    **********************o que eu peço ajuda:******************************************************

    que quando, eu mude essa planlha para outra máquina, o endereço atualize:

    computador 1: >>> c:\maria\desktop ------ endereço: >>>>>c:\maria\desktop\app\foto\imagem.jpg

    ao mudar

    computador 2: >>>d:\joão\area de trabalho -------endereço atualize para : >>>>> d:\joão\area de trabalho\app\foto\imagem.jpg

    *********************************ou em segundo caso:******************************************

    um comando que ao clicar salvar foto na planilha separe:

    caminho : c:\maria\desktop\app\foto\imagem.jpg

    parte 1: >>> c:\maria\desktop

    parte 2: >>> app\foto\imagem.jpg ou então : >>>>imagem.jpg

    desde já agradeço a atenção está me ajudando demais.

  5. boa noite a todos

    estou com um problema.

    tenho um fomrulário de pesquisa baseada em um combobox.

    gostaria que ele agisse da seguinte forma. ao digitar algo, uma lista suspensa aparecesse e fosse filtrando de acordo com os dados, conforme acontece com 

    o site de pesquisa google.

    exemplo:

    banco de dados >>>>>>>>>>>>>>>> combobox_  mari >>>>>>>>>>>>>>maria vi >>>>>>>>>>>>maria vieira s

    nomes                                                                             maria                                 maria vieria                       maria vieira sousa

    maria                                                                               maria vieira                       maria vieira sousa

    maria vieira                                                                     maria vieria sousa

    maria vieira sousa

    que fosse filtrando a medida que for digitando.

    desde já agradeço.

    @Basolepoderia em ajudar?

  6. 6 horas atrás, Basole disse:

    @samara.vba entendi agora.

    Deixa eu ver aqui.....

     

    @samara.vba fiz um exemplo aqui, veja se é isso...

       ....sempre vai salvar na próxima linha vazia

    Sub Botao_Salvar()
    
        With Worksheets("Plan1")
            .Cells(.Cells(Rows.Count, 2).End(xlUp).Offset(1).Row, 2).Value = VBA.Environ("USERPROFILE")
            .Cells(.Cells(Rows.Count, 3).End(xlUp).Offset(1).Row, 3).Value = "\Desktop\programa\foto1.jpg"
        End With
    
    
    End Sub

     

    @Basole obrigada. quase isso.

    só essa parte do código que representa a parte do arquivo. preciso que ela seja preenchida de acordo com caminho da foto que vou carregar no: openfile. na image. o caminho da foto que será preenchido, mas sem o dire´torio.

  7. 1 hora atrás, Basole disse:

    Você pode colocar um comando para quando abrir a Pastade_Trabalho, automaticamente, já inserir o caminho na celula [ C1 ], por exempo:

     

    Em um módulo padrão:

     

    Sub Auto_Open()
    
        With Worksheets("Plan1")
        .Range("C1").Value = VBA.Environ("USERPROFILE") & _
        "\Desktop\Excel\" & Range("A1").Value & ".jpg"
        End With
        
    End Sub

     Não sei é isso exatamente, que que está se referindo...

    @Basole acho que me expressei mal. seguinte:

    nome: textbox1 =======fernanda

    foto: image1.picture.======c:\maria\programa\foto1.jpg                         vamos supor que esse é meu formulário:

    ao clicar no botão salvar:

    computador : c:\maria

    célula A1                  célula B1             célula C1

    fernanda                  c:\maria              \programa\foto1.jpg

    se teria um código para quando eu licar no botão salvar ele divida o caminho em duas partes:

    parte 1 (célula B1) ====== só o usuário - c:\maria

    parte 2(célula C1) ====== só a parte do caminho começando pela pasta, ou seja, sem o usuário. - \programa\foto1.jpg

    mas isso levando em consideração que é um form. e que será salvo um embaixo do outro, toda vez que clicar no botão salvar. automatizar essa divisão.

  8. 12 minutos atrás, samara.vba disse:

     

    @Basole MUITOOO OBRIGADA DEU SUPER CERTO. JUSTAMENTE O QUE EU ESTAVA PRECISANDO.

    MIL AGRADECIMENTOS.

    @Basole, NÃO QUERENDO ABUSAR,  mas já abusando (rsrsr). tem algum código que eu possa salvar somente o caminho da pasta do arquivo? para cocatenar com esse vba.environ? em uma célula ?

    @Basole

    computador: c:\maria

    célula A1                     célula B1                                     célula C1

    c:\maria                  \pasta1\farnanda.jpg                c:\maria\pasta\fernanda.jpg

    =usuário()                     ?????                                      =A1 & B1

    vba.environ                   ?????

  9. 3 horas atrás, Basole disse:

    @samara.vba bom dia ! 

    Voce pode concatenar os dados junto com a função (udf), abaixo para retornar o usuário da máquina atual:

    Exemplo:

    Na célula B1 =>  

    =Usuario() & "\desktop\excel\" &A1& ".jpg"

     

    A função abaixo cole em um mólulo padrão:

    Function Usuario()
    
    Usuario = VBA.Environ("USERPROFILE")
    
    End Function

     

     

    3 horas atrás, Basole disse:

    @samara.vba bom dia ! 

    Voce pode concatenar os dados junto com a função (udf), abaixo para retornar o usuário da máquina atual:

    Exemplo:

    Na célula B1 =>  

    =Usuario() & "\desktop\excel\" &A1& ".jpg"

     

    A função abaixo cole em um mólulo padrão:

    Function Usuario()
    
    Usuario = VBA.Environ("USERPROFILE")
    
    End Function

     

    @Basole MUITOOO OBRIGADA DEU SUPER CERTO. JUSTAMENTE O QUE EU ESTAVA PRECISANDO.

    MIL AGRADECIMENTOS.

    @Basole, NÃO QUERENDO ABUSAR,  mas já abusando (rsrsr). tem algum código que eu possa salvar somente o caminho da pasta do arquivo? para cocatenar com esse vba.environ? em uma célula ?

  10. Em 25/03/2022 em 16:35, Basole disse:

    @samara.vbanão entendi sua questão  

    seguinte.

    tenho um cadastro de clientes com fotos no excel.

    e ao cadastrar o caminho de uma foto, ela fica registrada ao lado do nome da pessoa exemplo:

    computador 01: c:\joão\área de trabalho

    célula A1                   célula B1

    Fernanda                  c:\joão\área de trabalho\excel\fernanda.jpg

    ao mudar o arquivo de computador: o caminho fica como se fosse o computador 01 e não localiza o local do arquivo.

    computador 02: d:\maria\área

    célula A1              célula B1

    Fernanda             c:\joão\área de trabalho\excel\fernanda.jpg

    queria uma código que atualizasse esse caminho automaticamente ou por meio de um botão para:

    célula A1       célula B1

    Fernanda       d:\maria\área\excel\fenanda.jpg.

    Agora, samara.vba disse:

    seguinte. @Basole

    tenho um cadastro de clientes com fotos no excel.

    e ao cadastrar o caminho de uma foto, ela fica registrada ao lado do nome da pessoa exemplo:

    computador 01: c:\joão\área de trabalho

    célula A1                   célula B1

    Fernanda                  c:\joão\área de trabalho\excel\fernanda.jpg

    ao mudar o arquivo de computador: o caminho fica como se fosse o computador 01 e não localiza o local do arquivo.

    computador 02: d:\maria\área

    célula A1              célula B1

    Fernanda             c:\joão\área de trabalho\excel\fernanda.jpg

    queria uma código que atualizasse esse caminho automaticamente ou por meio de um botão para:

    célula A1       célula B1

    Fernanda       d:\maria\área\excel\fenanda.jpg.

     

  11. boa tarde.

    estou com um problema. fiz um cadastro de cliente com foto.

    esta foto é salva em uma célula com o caminho que ela esta.

    estou precisando de um código que atualize este endereço ao passar esta pasta para outro computador.

    computador 01: c:\joão

    pasta x: contém 01 pasta com fotos e o arquivo do excel.

    célula: c:\joão\área e trabalho\pasta x\fotos\01.jpg

    ao mudar os arquivos para outro computador gostaria que esse caminho da célula atualizasse para o novo local.

    computador 02: d:\maria

    célula: c:\joão\área e trabalho\pasta x\fotos\01.jpg >>>> d:\maria\área e trabalho\pasta x\fotos\01.jpg

     

    desde já agredeço

×
×
  • Criar Novo...