Relative referencing Excel VBA command buttons.

[zafyar]

I have several user names and passwords, which I need to enter on one website. I have saved those user name and passwords (one record per row) in an excel 2007 macro enabled file. I have found out how to open and fill in the fields of that website and click the submit button with the help MrExcel Forum.

I've created one command button against row2 and assigned that macro to it, when clicked it opens the webpage and fills the user name and password then click the submit button to log in.

I want to create other command buttons on respective rows and assign the same macro to it so that it can fill in the user name and password from the corresponding row.

Any help will be appreciated.

my macro code is given below:

Option Explicit

Public Sub mButton()

Dim objIE As SHDocVw.InternetExplorer
Dim htmlDoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

Set objIE = New SHDocVw.InternetExplorer

With objIE
.Navigate "http://mywebsite"
.Visible = 1
Do While .readyState <> 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:05"))

'set user name and password
Set htmlDoc = .document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.readyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.Name = "username" Then
htmlInput.Value = [d2]
Else
If htmlInput.Name = "password" Then
htmlInput.Value = [e2]
End If
End If
Next htmlInput

'click login
Set htmlDoc = .document
Set htmlColl = htmlDoc.getElementsByTagName("input")
Do While htmlDoc.readyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If Trim(htmlInput.Type) = "submit" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End With

End Sub