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