Sorgu için arama sonuçları: ping

Ping gönderince kap engelleme atıyor. Yapılamaz hocam

Aşağıdaki link de konuyla ilgili; Soru - toplu ping atma | Excel WEB TR Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri .

...Gereksiz yazışmalara neden olmazdınız. ChatGpt'nin kodlarını uyarladım, sonucun doğru olup olmadığını bildirirseniz ben de merak ediyorum. Sub PingIP() Dim IP As String Dim PingObj As Object Dim PingResult As Variant Dim rng As Range Dim lRow As Long Dim iCol As...

selamlar ekte bir dosya paylaştım ping listem bu şekilde olucak sayı değişkenlık gosterebilir hücreyi boyamasını istiyorum

ChatGpt'nin önerisi , daha detayla sorulsa belki farklı kodlar önerebilirdi. ben sadece ping nasıl atılır diye sordum. Sub PingAt() Dim Hostname As String Dim PingResult As Variant Dim ShellObj As Object ' Ping atılacak host adını belirtin Hostname = "www.example.com"...

Merhabalar A-b-c-d-e-f-g-h-j- Stunlarında pingler vardır aşşağıya doğru gitmektedir bu pingler bu ip lere 1 kere ping atacak sonrasında ping alamadıgını hücreyi boyamasını istiyorum bir tablo var bu tablo degıskenlık gosterebilir sağdan ve yukardan ölçü alıp başlıyacak a2 başlama olabilir a2...

Sub ping_at() Dim sonuc As Boolean Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Dim mail_text, mail_text_baslik As String lastrow = Worksheets("data").Cells(Rows.Count, "A").End(xlUp).Row...

Merhabnalar, Ekte paylaştığım makroda Her sabah Saat: 07:00 da ping atmaya başlamasını ve 07:10 pingi durdurması için nasıl bir yol izleyebilirim yardımlarınızı rica ederim.

Merhabalar, Bir tablom var bu tabla "a.b.c" sutunlarından oluşmaktadır. ve 500 satırlı bir ping yollama sistemi var bu ping yollama sisteminde c sütününde "Offline" olarak yazanları bulup yada filtreleme yaparak Belli bir maile offline olan cihazların listesini atmak istiyorum. Konu hakkında...

...set LogFile=aktifdegil.txt If exist "%LogFile%" Del "%LogFile%" for /f "delims=, tokens=1*" %%a in ('type liste.txt') do ( ping -n 1 %%a|find "TTL">nul if not errorlevel 1 ( rem echo %%a AKTIF>>%LogFile% ) else ( echo %%a AKTIF DEGIL>>%LogFile%) )

https://stackoverflow.com/questions/21020077/ping-ip-address-with-vba-code-and-return-results-in-excel Sub GetIPStatus() Dim Cell As Range Dim ipRng As Range, RngEnd As Range Dim Result As String Dim Wks As Worksheet Set Wks = Worksheets("Sheet1") Set ipRng =...

Merhabalar, Excel makroda Süntünlara yazdıdım örnek A1 sütununda "ping 10.25.25.25 -t " komutunu yazarak çıkan sonuca göre b1 komutunu kırmızı veya yeşile boyamasını istiyorum . yeşil yanması için cmd ekranında aşağıdakinı okuması gereklidir. Pinging 10.131.10.13 with 32 bytes of data: Reply...

Kendine göre uyarladın mı Sayfa 1 bende hata vermedi İp adresler Sayfa 1 a1 sütününda başlıyor ping durumunu b sütününa yazıyor, ne hatası verdi mödüle ekleyip mödülü çalışırtırın

Öncelikle teşekkürler. Sonuç alamadım hocam

Sub PingIPAddresses() Dim ws As Worksheet Dim SonSatır As Long Dim i As Long Set ws = ThisWorkbook.Sheets("sayfa1") SonSatır = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = 2 To SonSatır If Not IsEmpty(ws.Cells(i, 1).Value) Then...

Arkadaşlar işyerimde bulunan 50 adet bilgisayarıma excel üzerinden ping atmak istiyorum. Bununla ilgili bazı yerlerden dosyalar buldum ancak çalışmıyor. Mesela 50 satırım var ve her birinde IP adresleri mevcut. 192.168.90.12 ...... şeklinde adresler var. Ping at dediğimde online - offline...

Bu linkte ping komutları paylaşılmış. Kendi dosyanıza uyarlayabilirsiniz. https://www.excel.web.tr/threads/excel-ile-ping-goenderimi.115823/

Sayın Korhan Ayhan, öncelikle teşekkür ederim ama yeni bir konu açmadan önce incelemiştim çözüm buılamadım.

Merhaba, Arşiv konularını inceleyiniz. https://www.excel.web.tr/search/345089/?q=ping&o=date