Should be easy.. do you know it?

[sinison]

Dear community,

I've been struggling for two weeks now and i can't figure it out. countless attempts of trying brought me here so I hope some of you experts are able, and willingly to help me out.

This is what I'm looking for:

Whenever the IP addres is changes, i need the webquery output changed aswell. I do not have, the slightest idea anymore on how to do this. i tried using macro's copy/pasting the addres, but that does not work.

I've tried to do this in VBA, but i do not poses the right skillset to get this functioning properly.

any suggestions?

 

[Special-K99]

I wont be answering this as I dont know the solution, however 26 views and not one reply would suggest you need to describe your problem in more detail, with examples of input data and what you expect the results to look like.

 

[sinison]

Sorry, you're right; here is a more detailed version

The Situation
I need to keep track of 100+ different counters, each, located on their own IP address. I want to automate the process so users only have to enter their own username, and then the data is retrieved accordingly.


I'm trying to make a query, which changes upon changing the Cell value
For example: 1.111.11.1 is entered in cell "A1", due to this value, the query automatically loads in the data of that IP address. However, when "A1" changes to, let's say; 1.111.11.2, the query needs to automatically erase the previous data, and return the numbers of the given IP address.


I've attached a image to this post; there it shows what i want to accomplish.


I think this should not be to hard, i've tried making the query in VBA, but, when i need to specify the URL, i don't know how to refer the the cell value.


Sub GetCourseList()


Dim URL As String
Dim qt As QueryTable
Dim ws As Worksheet

Set ws = Worksheets.Add

URL = "CELL VALUE?!?!"

Set qt = ws.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Range("A10"))

With qt
.RefreshOnFileOpen = True
.Name = "test"
.FieldNames = True
.WebSelectionType = xlAllTables
.Refresh BackgroundQuery:= TRUE
End With

End Sub


I've tried this code, did not work, i know entered ?!?! at the cell value part since this is the part i'm confused about.


Hope you guys can help!

<a href="https://ibb.co/dip2D8"><img src="https://thumb.ibb.co/dip2D8/Untitled.png" alt="Untitled" border="0"></a>