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...
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
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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.