Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir planilha e al...
 
Notifications
Clear all

Abrir planilha e alimentar inputbox

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
801 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, bom dia.

Estou trabalhando em um planilha onde preciso abrir uma outra via VBA. Até aqui tudo bem!!

Quando abro essa planilha aparece uma inputbox. Quero que meu código alimente essa inputbox com a palavra "cpct".
Alguém sabe como?

O código da inputbox na planilha que quero abrir está assim:

Distrito = InputBox("Favor Inserir o Distrito Desejado!" & Chr(13) & "" & Chr(13) & "CPCB  para  Cubatão" & Chr(13) & "CPCT  para  Catalão" & Chr(13) & "CPOV  para  Ouvidor" & Chr(13) & "CPSP  para  São Paulo-Corporativo" & Chr(13) & "CPCF  para  Consolidador Copebrás" & Chr(13) & "", "Seleção de Distrito")

If UCase(Distrito) = "CPCB" Then
Escolha = "OK"

ElseIf UCase(Distrito) = "CPCT" Then
Escolha = "OK"

ElseIf UCase(Distrito) = "CPOV" Then
Escolha = "OK"

ElseIf UCase(Distrito) = "CPSP" Then
Escolha = "OK"

ElseIf UCase(Distrito) = "CPCF" Then
Escolha = "OK"

Else
Escolha = "ERROR"
End If

Desde já obrigado!

Att,

 
Postado : 24/06/2014 6:04 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Já tentou algo assim...?

Public Sub MacroB(Optional RemoteInput As String)
     Dim Var As String
    If RemoteInput = "" Then
        Var = InputBox
    Else
        Var = RemoteInput
    End If
     '
     'Restante do código
     '
End Sub

...eu nunca tentei isso, mas tente adptar.

Att

 
Postado : 24/06/2014 6:56 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pela sugestão alexandrevba, mas não consegui o resultado que queria, meu código ficou assim:

 Sub MacroB(Optional RemoteInput As String)

    ChDir "P:RDI"
    Workbooks.Open Filename:="P:RDIRDI_2014.xls"
    
    Dim Var As String
    If RemoteInput = "" Then
        Var = InputBox
    Else
        Var = RemoteInput
    End If
    
    Sheets("RDI_ATvsBUD").Select
    
    Sheets("BASE").Visible = True
    
End Sub

Na verdade, não entendi como seu codigo colocaria CPCT no inputbox da outra planilha ...

Att,

 
Postado : 24/06/2014 7:50 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Nesta planilha que vou abrir a inputbox sempre abre sozinha ao iniciar a planilha, isso eu não posso mudar (pois a outra planilha não é minha).

Mas para mim serviria se quando eu abrir essa planilha através do meu código, este "cancelasse" a entrada da inputbox ...

 
Postado : 24/06/2014 7:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico