still usable. for some reason The command wasnt running coming from vba because it was thinking that the numbers in the string were still strings and wasnt accepting it as an actual value. but other than that runs great
@@nsbirdsformns4515 probably theyre experiecing technical concern or intermitent network connection, i was just thinking is anyone can actually add more columns to show real time speed test
Solved Error - "Method or data member not found" in the vba replace sheet1 with Sheets("Sheet1") in each instance it occurs. Don't replace the whole line just 'sheet1'. For example - Do Until sheet1.Range("F1").Value = "STOP" WILL NOW BE - Do Until Sheets("Sheet1").Range("F1").Value = "STOP"
Another method would be to use ActiveSheet.Range("F1").Value = "STOP" instead of sheet1.Range("F1").Value = "STOP". In this case you can name the sheet whatever you want to.
Sheet1 will not work if your Excel is not in English. Because of that, you can use the name of the Sheet or its caption, like you've said, Sheets("CaptionOfTheSheet")
Is it possible to add Time in the next column, since when any line is down ? This is very much needed tool, I searched a lot for his. Thank You Very Much.
I have questions 1. I want the destination ip should show in right side where start and stop have then what we have to change? 2. Are they ping packet going simultaneously to every destination or one by one each as i shaw they were blinking one by one? 3.if i add one more ip in those ip row so that will also work?
Hi, great addon would be on adding that if Offline then it sends a email containing in Subject the IP Addres and Name of which is offline if offline for more then 10 checks or something similar!
Use the zom closest to the screen to compose poems. I access the Internet through my mobile phone. I don't have a notebook. I am Brazilian. I do not speak English. I use English translation.
This is very useful video thank you very much, i have a doubt in this if we have 50 ip address to test how it is working after finish 50 ip address test then only it will check first ip or the each ip will check each sec can you please help me to clear on this
Function Ping(strip) Dim objshell, boolcode Set objshell = CreateObject("Wscript.Shell") boolcode = objshell.Run("ping -n 1 -w 1000 " & strip, 0, True) If boolcode = 0 Then Ping = True Else Ping = False End If End Function Sub PingSystem() Dim strip As String Dim ws As Worksheet Set ws = Worksheets("Sheet1") Do Until ws.Range("F1").Value = "STOP" ws.Range("F1").Value = "TESTING" For introw = 2 To ActiveSheet.Cells(65536, 2).End(xlUp).Row strip = ActiveSheet.Cells(introw, 2).Value If Ping(strip) = True Then ActiveSheet.Cells(introw, 3).Value = "Online" ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 0, 0) Application.Wait (Now + TimeValue("0:00:01")) ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 200, 0) Else ActiveSheet.Cells(introw, 3).Value = "Offline" ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 0 ActiveSheet.Cells(introw, 3).Font.Color = RGB(200, 0, 0) Application.Wait (Now + TimeValue("0:00:01")) ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 6 End If If ws.Range("F1").Value = "STOP" Then Exit For End If Next Loop ws.Range("F1").Value = "IDLE" End Sub Sub stop_ping() Dim ws As Worksheet Set ws = Worksheets("Sheet1") ws.Range("F1").Value = "STOP" End Sub ****must use this code "Dim ws As Worksheet"
@danielnav5053 check debug if some issue with boolcode line then change it boolcode = objShell.Run("C:\Windows\System32\ping.exe -n 1 -w 1000 " & strip, 0, True)
HI, awesome video, Question: is it possible, in a corporate network, knowing the machine name of a user's PC, to send pop-up messages with the Windows MSG command? Thanks in advance Lorenzo
So usefull. Btw, i have an idea, can you write an excel file that can show an text file (or log file) in a remote server when input server fqdn or ip (require authenticate) and keyword, time to search in that server.
Some people set up their systems so useful info is on a certain web page. Set the machines up via cron to populate it in the morning. Then they use excel to suck all that data down and work on it. How long it has been up, how many people used the machine, disk used, cpu used, memory used, OS type, last patch, name of system. Things like that.
When they interview and ask how good are you in Ms Excel.
This guy be like: bring me laptop. I will hacked your system using excel.
1st he will respond text to speech
Next video: How to built a OS using Ms Word 😉
😂😂😂
Naye desh ka naya swag
😂😂😂😂😂😂
You are crazy man wkwkw
Hahahhaha
Thank you for all free tutorials you give us. God bless you
I was in need of this 10 years ago.
This is what I am looking for. thanks a lot :)
Amazing! This is exactly what I needed! Thank you!
Thank you very much. Exactly what i needed and works perfect!
Thank you so much! Exactly what I needed. Greetings from Panama!
Glad it helped!
Thank you for all free tutorials you give us. God bless you 👍
Thanking you very much. It's working perfect !
You're welcome!
Thank you very much.
😊 السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 😊
Thank you very much 😊
That was amazing 👏
Works perfect! Thank you!
You're welcome!
Did you implement this in a corporate network?
Nice, please also give some idea to get Mac address in saperate column near online offline status column
Is it possible to put separate tab to capture date and time when the ping went offline and one more tab when it came online
Holy shit! Subbed.
It will help me with literally whole corp network diagnosis♥️
angry ip scanner
Wow you are the best and got a subscriber :cheers:
Amazing videos, hope the next video is how to use remote desktop without lock screen.
Great, this is what i need. Keep it up.
You are genius.
Thank you man 💕
Deu certo aqui para mim tambem, show de bola. Brazil
still usable. for some reason The command wasnt running coming from vba because it was thinking that the numbers in the string were still strings and wasnt accepting it as an actual value.
but other than that runs great
Thank you.
We have more than 200 Client and now ı ll see on one page which is working
Bro actually all time it will online status only showing every time I have to put offline but it showing online
@@nsbirdsformns4515 probably theyre experiecing technical concern or intermitent network connection, i was just thinking is anyone can actually add more columns to show real time speed test
Solved Error - "Method or data member not found" in the vba replace sheet1 with Sheets("Sheet1") in each instance it occurs. Don't replace the whole line just 'sheet1'. For example - Do Until sheet1.Range("F1").Value = "STOP" WILL NOW BE - Do Until Sheets("Sheet1").Range("F1").Value = "STOP"
Thanks for the fix
Another method would be to use ActiveSheet.Range("F1").Value = "STOP" instead of sheet1.Range("F1").Value = "STOP". In this case you can name the sheet whatever you want to.
Sheet1 will not work if your Excel is not in English. Because of that, you can use the name of the Sheet or its caption, like you've said, Sheets("CaptionOfTheSheet")
Thanks More Videos Excel learning 👍❤️👍
you deserve more subscribers
you are right.
Is it possible to add Time in the next column, since when any line is down ? This is very much needed tool, I searched a lot for his. Thank You Very Much.
I am definitely going to use this for footprinting for pentesting and ethical hacking.
Muito obrigado! Funcionou aqui! Só tive que adaptar para PT-BR no código de Sheet1 para Planilha1!💡💡💡
I have questions
1. I want the destination ip should show in right side where start and stop have then what we have to change?
2. Are they ping packet going simultaneously to every destination or one by one each as i shaw they were blinking one by one?
3.if i add one more ip in those ip row so that will also work?
you add one more ip in that ip row it still works normally
Hi, great addon would be on adding that if Offline then it sends a email containing in Subject the IP Addres and Name of which is offline if offline for more then 10 checks or something similar!
Thanks. Working correctly.
Enjoy
Thank you for the great new video and the download link. Great work.
This is great. Thank you!
You're very welcome!
Thank you very much. 👍
You are welcome!
Use the zom closest to the screen to compose poems. I access the Internet through my mobile phone. I don't have a notebook. I am Brazilian. I do not speak English. I use English translation.
Thanks!
Welcome!
Thanks for the video. Good one for beginners like me..
thank you very much. I really admire you
So nice of you
Good job Visual Basic
You bloody genius😂
Much needed. Thanks a lot 😁
Amazing as always happy 😊 thanks a lot
I am going to be waiting for it
This is very useful video thank you very much,
i have a doubt in this if we have 50 ip address to test how it is working after finish 50 ip address test then only it will check first ip or the each ip will check each sec
can you please help me to clear on this
Would be cooler if you added the time for latency monitoring. 👍
Did you found something about that? I'm trying to do the same but can't find anything..
I am also looking for that
He did it
th-cam.com/video/KYl0oEw2edE/w-d-xo.html
@@SeaWolfy Are you still looking for this feature?
Perfect perfect 👌👍👍
Thanks a lot for this !
Thank you
thanks brother
Welcome
Thank you sir
Wow thank you so much
nice man can you make video if ip is offline then automatically send email or send telegram notification its really help us
This is very cool...will the vb script allow you to ssh to a different host first then only run the ping?
Nice and useful information. Thanks for sharing. Can you show us How to get a notification or mail alert if any IP address failed to ping.
No reply?
thanks you are the best
thank you for the video. Is possible you can find city name instead on/off line?
Any help to make it work with Libre Office?
Me interesó, el video, por alguna casualidad no lo podría hacer en español para entenderle mas al tema
Tampoco es que explique mucho el tema. Sólo te dice que hacer. Lo cuál lo logras sólo viendo el vídeo. Pero no da detalles del tema
Hi, did you use the 32bit Version of Excel? for macro features?
That's why I always say that my Excel is basic!
Great video, I advise you to use your real voice next time, trust me it would be more beautiful than robot voice .
Obrigado!!!
thanks
Welcome
thank bro
Thanks
Thanks
Thanks.. 👍👍👍👍
Sir Nice vedio and very usefull. But can be solved if same ip address found then show ip conflict it can be possible please help
Great video.
Could it be possible to use the command "arp" to add MAC address to the IP addresses which were online?
this exact requirement i have made a video
th-cam.com/video/0nDUNp19_OU/w-d-xo.html
Thank You........
Function Ping(strip)
Dim objshell, boolcode
Set objshell = CreateObject("Wscript.Shell")
boolcode = objshell.Run("ping -n 1 -w 1000 " & strip, 0, True)
If boolcode = 0 Then
Ping = True
Else
Ping = False
End If
End Function
Sub PingSystem()
Dim strip As String
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Do Until ws.Range("F1").Value = "STOP"
ws.Range("F1").Value = "TESTING"
For introw = 2 To ActiveSheet.Cells(65536, 2).End(xlUp).Row
strip = ActiveSheet.Cells(introw, 2).Value
If Ping(strip) = True Then
ActiveSheet.Cells(introw, 3).Value = "Online"
ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 0, 0)
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 200, 0)
Else
ActiveSheet.Cells(introw, 3).Value = "Offline"
ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 0
ActiveSheet.Cells(introw, 3).Font.Color = RGB(200, 0, 0)
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 6
End If
If ws.Range("F1").Value = "STOP" Then
Exit For
End If
Next
Loop
ws.Range("F1").Value = "IDLE"
End Sub
Sub stop_ping()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.Range("F1").Value = "STOP"
End Sub
****must use this code "Dim ws As Worksheet"
Ty
@danielnav5053 check debug if some issue with boolcode line then change it
boolcode = objShell.Run("C:\Windows\System32\ping.exe -n 1 -w 1000 " & strip, 0, True)
Привет, сможешь ли ты помочь? Хотелось бы пинговать цепочку коммутаторов и чтобы это отображалось в веб форме.
thank u
Great, can we extract hosname of live IPs?
Meanwhile on the Mystery History channel: Scientists believe that our reality is a simulation built on "something like Excel".
thx!!!
Net admin: I'm boring, but I have excel... Hmmm🙃🙂🙃🙂
Good work..
thank you. can you share how to monitoring url website if it's up or down?
good job :)
Next video : How to hack NASA using MS Excel 😎 (I'm waiting)
Superb
NICE SIR
Using this, shall we can check health status of all vm servers... if yes means we need to put this code in master server or our desktop itself?
Well_done
Great 👍
integrating mac would be worth it?
If possible to send whatsapp message in excel through different names
Please tell me what to do online/offline status is showing in IP address column not in ping status bar.
How to query an ip address with a port?
His voice🌻❤😳
is it possible in online google spreadsheet ?
HI,
awesome video,
Question: is it possible, in a corporate network, knowing the machine name of a user's PC, to send pop-up messages with the Windows MSG command?
Thanks in advance
Lorenzo
for further reped modification ask to chatGPT
How many ping packets does it send at once ?
So usefull. Btw, i have an idea, can you write an excel file that can show an text file (or log file) in a remote server when input server fqdn or ip (require authenticate) and keyword, time to search in that server.
Some people set up their systems so useful info is on a certain web page. Set the machines up via cron to populate it in the morning. Then they use excel to suck all that data down and work on it. How long it has been up, how many people used the machine, disk used, cpu used, memory used, OS type, last patch, name of system. Things like that.
Hello, could you write monitoring the temp for every switch device?
Is there a way to add the device name to the spreadsheet (Ping -a IPAddress)?
This is what I am looking for
Holam como estas, sabes que no resuelve a nivel lan local, a que se podria deber?
Great 🎉
Do we need internet in PC for this???