Hello all,
I'm a beginner with VBA and I did all my code with some example on forum.
I have some "Data Table" and I would like to fill an Intranet Web Form faster than I used to.
I did an Excel Form which is used to log on the intranet and Navigate to the correct Web Form.
But after that I would like to fill the Form with my table's datas.
I've select the Range with
Now, what I need and what I'm struggling with :
In this select Range, I would like to put :
ACell = value of cell in column A in the first row, BCell = value of cell in column B, etc
And then past it in my webform with: idoc.all.P2300.Value = ACell, idoc.all.P2400.Value = BCell
And then restart with the next row until the last selected row.
(Hope my English is fine, it's not my mothertongue)
Thanks in advance for your help.
I'm a beginner with VBA and I did all my code with some example on forum.
I have some "Data Table" and I would like to fill an Intranet Web Form faster than I used to.
I did an Excel Form which is used to log on the intranet and Navigate to the correct Web Form.
But after that I would like to fill the Form with my table's datas.
I've select the Range with
VBA Code:
Sub GetRange()
Dim ACell As String
Dim BCell As String
'(etc)
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Set rng1 = Cells.Find("*", [a1], xlFormulas, , xlByRows, xlPrevious)
Set rng2 = Cells.Find("*", [a1], xlFormulas, , xlByColumns, xlPrevious)
If Not rng1 Is Nothing Then
Set rng3 = Range([a16], Cells(rng1.Row, rng2.Column))
Application.Goto rng3
End If
End Sub
Now, what I need and what I'm struggling with :
In this select Range, I would like to put :
ACell = value of cell in column A in the first row, BCell = value of cell in column B, etc
And then past it in my webform with: idoc.all.P2300.Value = ACell, idoc.all.P2400.Value = BCell
And then restart with the next row until the last selected row.
(Hope my English is fine, it's not my mothertongue)
Thanks in advance for your help.