VBA Code assistance for Hyperlink populate Loop

[sintek]

Hello World

I have the following code which opens hyperlink and populates specific sheet with information,saves and closes. This works well for my first hyperlink in Range("C7"). I have hyperlinks down the entire column C. How can I amend code to add a loop to go down column and populate all linked sheets.

Please Login or Register  to view this content.

[sintek]

Hi All

I've come up with following - Not sure if I am on the right track. Comes up with overflow error. Please HELP

Please Login or Register  to view this content.

[sintek]

Change Dim from Integer to Long now code runs non stop in a loop ?

[sintek]

Hi Guys

Code is now as below. What I need it to do is as follows:

Open Hyperlink, Select sheet, populate sheet, Save sheet and close.
Then move down to next row and repeat. I am LOST.

Please Login or Register  to view this content.

[sintek]

Hey there World

I've got my code to run without errors. It is however not populating as it should.

Please Login or Register  to view this content.

[sintek]

Eureka !!!!. I managed to solve it.

Sub StatPop()
Dim RefRow As String
Dim numRow As Integer
Dim x As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Payment transactions").Activate
numRow = 2


Do While Workbooks("Debtors").Sheets("Payment transactions").Range("c" & numRow).Hyperlinks.Count > 0
Workbooks("Debtors").Sheets("Payment transactions").Range("c" & numRow).Hyperlinks(1).Follow
Sheets("Statement").Activate

RefRow = Workbooks("Debtors").Sheets("Payment transactions").Range("J" & numRow).Value

If RefRow = "50% Deposit" Then
Sheets("Statement").Range("b14").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("I" & numRow).Value
Sheets("Statement").Range("c14").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("J" & numRow).Value
Sheets("Statement").Range("d14").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("H" & numRow).Value
Else
If RefRow = "30% Payment" Then
Sheets("Statement").Range("b15").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("I" & numRow).Value
Sheets("Statement").Range("c15").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("J" & numRow).Value
Sheets("Statement").Range("d15").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("H" & numRow).Value
Else
Sheets("Statement").Range("b16").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("I" & numRow).Value
Sheets("Statement").Range("c16").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("J" & numRow).Value
Sheets("Statement").Range("d16").Value = Workbooks("Debtors").Sheets("Payment Transactions").Range("H" & numRow).Value
End If
End If


ActiveWorkbook.Close SaveChanges:=True



Sheets("Payment transactions").Activate
numRow = numRow + 1
Loop


Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub