Vba Text Box value issue.

[needhelp2]

Hello Guys,

Today i cameup with another issue related to my last post's but still i need a little modification in kindly please assist me how can i handle it?
PFB my source Code.

Option Explicit

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub Submit_Click()
    Excel.Application.Cursor = xlIBeam
    LaunchGamil Me.TextBox1.Value, Me.TextBox2.Value
    Unload Me
    Excel.Application.Cursor = xlDefault
End Sub

Private Sub LaunchGamil(username As String, password As String)
    Const strURL_c As String = "http://gmail.com"
    Dim objIE As SHDocVw.InternetExplorer
    Dim ieDoc As MSHTML.HTMLDocument
    Dim tbxPwdFld As MSHTML.HTMLInputElement
    Dim tbxUsrFld As MSHTML.HTMLInputElement
    Dim btnSubmit As MSHTML.HTMLInputElement
   
    On Error GoTo Err_Hnd
    'Create Internet Explorer Object
    Set objIE = New SHDocVw.InternetExplorer
    'Navigate the URL
    objIE.Navigate strURL_c
    'Wait for page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    'Get document object
    Set ieDoc = objIE.Document
    'Get username/password fields and submit button.
    Set tbxPwdFld = ieDoc.all.Item("Passwd")
    Set tbxUsrFld = ieDoc.all.Item("login")
    Set btnSubmit = ieDoc.all.Item(".save")
    'Fill Fields
    tbxUsrFld.Value = username
    tbxPwdFld.Value = password
     password=range("a1")
      username=range("a2")

 'Click submit
    btnSubmit.Click
    'Wait for transistion page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
    'Wait for main page to load
    Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
    objIE.Visible = True
End Sub

Kinldy tell me how i can input values to "text box1.and text box2" from range("a1),("a2") respectively, infect i had tried but its not working look my attempt in bold. I need text box values should be taken from range as defined,

Thanks in Advance.

BR,
Smith

 

[VoG]

Try

tbxUsrFld.Value = Range("A1").Value
tbxPwdFld.Value = Range("A2").Value

 

[needhelp2]

Thank you VOG for prompt Reply,I am afraid its till now not picking values from define ranges

 

[VoG]

I just tried this successfully

Sub test()
With UserForm1
    .TextBox1.Value = Range("A1").Value
    .TextBox2.Value = Range("A2").Value
    .Show
End With
End Sub

 

[needhelp2]

check my that view over here http://www.imageupload.org/?d=84F581441

 

[VoG]

Shouldn't it be like this

Private Sub Submit_Click()
    Excel.Application.Cursor = xlIBeam
    Me.TextBox1.Value = Range("A1").Value
    Me.TextBox2.Value = Range("A2").Value
    LaunchGamil Me.TextBox1.Value, Me.TextBox2.Value
    Unload Me
    Excel.Application.Cursor = xlDefault
End Sub

 

[needhelp2]

Now its done.Thanks Dear VOG.