Notifications
Clear all

Caixa de Texto puxando dados de uma célula da planilha

6 Posts
2 Usuários
0 Reactions
2,011 Visualizações
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Olá Pessoal, eu coloquei uma caixa de texto (controle activex) na planilha, através de um outro botão, eu seleciono a pasta e o endereço dessa pasta (C:/Documents..) é gravado em uma célula, gostaria que fosse gravado nessa caixa de texto (preferencialmente) ou gravar em uma célula e a caixa de texto puxar o valor dessa célula.

 
Postado : 16/08/2012 10:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Um exemplo:

Sub Botão1_Clique()

    Dim b As Variant
    b = Application.GetOpenFilename("xls-files,*.xls", _
    1, "Selecione Para Abrir o Arquivo", , False)
    If TypeName(b) = "Boolean" Then Exit Sub
     
    ActiveSheet.TextBox1.Text = b
     
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/08/2012 4:33 am
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Bom dia!!

Um exemplo:

Sub Botão1_Clique()

    Dim b As Variant
    b = Application.GetOpenFilename("xls-files,*.xls", _
    1, "Selecione Para Abrir o Arquivo", , False)
    If TypeName(b) = "Boolean" Then Exit Sub
     
    ActiveSheet.TextBox1.Text = b
     
End Sub

Oi Alexandre, muito obrigado mais uma vez, não consegui implementar, de qualquer forma o diálogo que abre é para selecionar a pasta e não um arquivo, segue meu modelo totalmente funcional, com a exceção que está salvando em uma célula e não na caixa de texto. Se puder dar uma olhada, ficaria muito agradecido.

Abs.

 
Postado : 17/08/2012 9:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja o link para DownLoad.
http://www.sendspace.com/file/mw9umd

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/08/2012 11:22 am
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Agora entendi, huiauha. Era tão simples, só não sabia a linguagem para executar,

Bastava trocar [E9].Value por ActiveSheet.NOMEDACAIXADETEXTO.Text..

Estou mexendo com vba a pouco tempo, com tempo vou me acostumando. muito obrigado pela ajuda !!
Depois de conseguir com a sua ajuda colocar o caminho da pasta na caixa de texto aprimorei mais um pouco o código:

Antes ao apertar o botão para selecionar a pasta, se o usuário cancelava e não selecionasse uma nova pasta o caminho anterior era apagado e ficava em branco

Sub cmd_pasta1BT_Click()
    Dim Pasta As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        On Error Resume Next
        Pasta = .SelectedItems(1)
        On Error GoTo 0
    End With
    
    ActiveSheet.cmd_destino1.Text = Pasta
End Sub

Depois da modificação que fiz, quando o usuário cancela o diálogo de escolha de uma nova pasta, o caminho antigo é mantido a não ser que o usuário escolha uma nova pasta.

Sub cmd_pasta1BT_Click()
    Dim Pasta As String
    Dim Pasta2 As String
    Pasta2 = ActiveSheet.cmd_destino1.Text
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        On Error Resume Next
        If .SelectedItems(1) = Empty Then
        Pasta = Pasta2
        Else
        Pasta = .SelectedItems(1)
        
        End If
        On Error GoTo 0
    End With
    
    ActiveSheet.cmd_destino1.Text = Pasta
End Sub

Vlw

 
Postado : 17/08/2012 1:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Por favor Click na mãozinha!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/08/2012 6:26 pm