Juro que nao entendi.

Opa...obrigado pela atenção !
Vou tentar reformular. É como se eu tivesse uma imagem de um formulário de uma pesquisa qualquer, com (Número, Nome, Endereço,...) e a imagem está salva no meu computador ou em um servidor. Eu tenho uma aplicação para cadastrar as informações que vou visualizar na tela, só que a imagem tem 2 páginas e para que eu consiga digitar o campo do email que fica no final da 2ª página tenho que usar (Alt+Tab) para voltar na imagem, descer com a barra de rolagem até o final da página.
Ao invés disso, eu queria que enquanto eu digito as informações no programa (UserForm) e quando pular de um Text para outro, a imagem acompanhe da mesma forma. Quando digitar o campo (Número) no (UserForm) e pular para o campo (Nome) no (UserForm) o mesmo aconteça na imagem.

Eu já vi esse esquema no Visual Basic 6, quando iniciava o programa de cadastro já trazia a imagem de fundo com o foco colorido no fundo do campo (Número) na própria imagem. Como se os 2, tanto a imagem quanto a aplicação estivessem "linkados".

Olá boa-noite,
Tenho um formulário de cadastro e gostaria que ao digitar o cep fizesse uma busca no site dos correios e jogasse as informações nos texts. Já tentei algumas vezes e não tive sucesso.
Se alguém puder dar uma ajuda, agradeço.

Att,

Francisco

Bom são dois assuntos diferentes, o primeiro continuo sem entender, como disse disponibilize um arquivo modelo, o segundo acredito que nao seja possivel pq vc precisa ter acesso a base de dados dos correios, nao sei se da pra vincular o seu textbox ao campo de pesquisa do site dos correios.

Eu tenho o código, ele faz a pesquisa tudo certinho só não retorna as informações para os texts. Tenho outro código que pesquisa no site da Rebuplica Virtual, mais esse tá vinculado na célula, direto na planilha e não consegui adaptar para o textbox do "Userform".
Mais tarde te passo os 2 códigos, se você conseguir algum resutlado, agradeço.

Att,

Francisco

Boa Noite.
Código 1:

Sub pega_tabela()
    
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Width = 800
        .Height = 600
        .Resizable = False
        .AddressBar = False
        .Top = 60
        .Left = 560
        .Visible = True
        .Navigate "http://www.buscacep.correios.com.br/"
        Do Until .ReadyState = 4: DoEvents: Loop
        Set myTextField = .Document.all.Item("relaxation")
        myTextField.Value = UserForm1.txt_busca_cep
        ie.Document.Forms(0).Submit
              
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        Set doc = ie.Document
        
        Do While ie.LocationURL <> "http://www.buscacep.correios.com.br/sistemas/buscacep/resultadoBuscaEndereco.cfm"
        Loop

        If ie.LocationURL = "http://www.buscacep.correios.com.br/sistemas/buscacep/resultadoBuscaEndereco.cfm" Then
        Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE:
        Loop
        End If
                      
        puxa_dados doc, 3 ' 3 é referente a terceira tabela da página....
        
        '.Quit
    End With
    
End Sub


Código 2:

Sub lsPesquisaCEP(ByVal sCEP As String)
    On Error GoTo TratarErro
    
    Range("Consulta!a1:H1").Clear
    
    If sCEP <> "" Then
        With ActiveWorkbook.XmlMaps("webservicecep_Mapa")
            .ShowImportExportValidationErrors = False
            .AdjustColumnWidth = True
            .PreserveColumnFilter = False
            .PreserveNumberFormatting = False
            .AppendOnImport = False
        End With
        ActiveWorkbook.XmlImport URL:= _
            "http://republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _
            Nothing, Overwrite:=False, Destination:=Range("Consulta!$a$1")
            
            
    End If
        
    Calculate
    
Sair:
    Exit Sub
TratarErro:
    MsgBox "CEP não cadastrado!"
    GoTo Sair
    Resume
End Sub

Disponibiliza o arquivo com o codigo.

So o codigo nao da pra ajustar

O arquivo está em anexo logo acima (Cadastro.xls). Mais eu retirei o código. Se você conseguir anexar, agradeço !

Segue anexo...