urgent help

[JUANANDERSON]

I need you to help me complete a macro, I want to pass a data from the macro to the linked page and then bring the information back to the macro.

 

[JUANANDERSON]

Private Sub CommandButton1_Click()
Dim url As String ' Se define la variable url como texto

url = "http://190.223.57.18:8083" ' se asigna la página a abrir

ActiveWorkbook.FollowHyperlink url

Application.WindowState = xlMaximized
bClick = True

Application.Wait Now + TimeValue("00:00:02") ' Aquí se personaliza el tiempo de espera, con 1 no funciona.

SendKeys "{TAB}", True ' Presiona la tecla "TAB" para desplazarse a la siguiente casilla

SendKeys "jzaldivara", True ' Aquí pones tu nombre de usuario
Application.Wait 1000
SendKeys "{TAB}", True ' Presiona la tecla "TAB" para desplazarse a la siguiente casilla

SendKeys "est123", True ' Aquí pones la clave de acceso a la cuenta

Application.Wait 1000

SendKeys "~", True ' Activa y presiona la tecla INTRO o Enter

SendKeys "{NUMLOCK}", True
End Sub