excel'den Ip adresine ping atmak

[ersoyalan]

Merhaba,

Ekli dosyada ping butonuna kod ekleme konusunda yardımcı olurmusunuz.Arama ile bulduğum ID'nin ip adresine ping çekebileyim.Hücre sınırlaması yoktur.65... kadar olabilir.

Bu işlemin cmd ekranında olması gerekiyor.

E.ALAN

 

[BG]

Sayın ersoyalan

Merhaba,

Ekli dosyada ping butonuna kod ekleme konusunda yardımcı olurmusunuz.Arama ile bulduğum ID'nin ip adresine ping çekebileyim.Hücre sınırlaması yoktur.65... kadar olabilir.

Bu işlemin cmd ekranında olması gerekiyor.

E.ALAN

ilk önce c:\ping klasörü oluşturun.umarım istediğiniz gibi olmuştur.

 

[Mahmut Bayram]

Arşivimde bir örnek buldum.
Umarım işinize yarar

 

[ersoyalan]

Brain merhaba,

Dediğini yaptım fakat olmadı cmd çalışmadı...



Mahmutt hocam çalışma çok güzel fakat istediğim bu değildi.

E.ALAN

 

[BG]

Brain merhaba,

Dediğini yaptım fakat olmadı cmd çalışmadı...



Mahmutt hocam çalışma çok güzel fakat istediğim bu değildi.

E.ALAN

bende çalışıyor, acaba bir şeyi mi atladın, c:\ping klasörünü oluşturduktan sonra excel i açıp "ping dosyası oluştur" butonuna tıkladığında c:\ping\ altında sheet1.bat isimli dosya oluşmuyor mu? eğer bu dosya oluşuyorsa sonra tek yapman gereken "ping" butonuna tıklamak

 

[ersoyalan]

Evet dediğin gibi birşeyi atlamışım onu düzelttim şimdi oluyor fakat oluşturulan ping dosyasında nekadar adres varsa hepsine ping çekiyor.Benim istediğim ise şu istediğime ben ping çekeyim.

E.ALAN

 

[BG]

Evet dediğin gibi birşeyi atlamışım onu düzelttim şimdi oluyor fakat oluşturulan ping dosyasında nekadar adres varsa hepsine ping çekiyor.Benim istediğim ise şu istediğime ben ping çekeyim.

E.ALAN

yani userformdaki listboxdan neyi seçersem ona ping atsın diyorsun doğru mu anlamışım

 

[ersoyalan]

evet aynen öyle.

 

[Kemal Demir]

Merhaba,

For y=2 to [a65536].End(3).Row
'[b]ip adresleri A kolonunda varsayıldı[/b]
'[b]Listbox'a aktarımını sağlayabilirsiniz.[/b]
adres=Cells(y,1)
'[b]10 sayısı adrese gönderilecek Ping sayısıdır[/b]
For x = 1 To 10
 Shell "command.com /c ping " & adres, 1
Next
Next
End Sub

 

[ersoyalan]

hocam tam olarak nereye yapıştırıcam bu kodu brain verdiği koda ilavemi edicem

 

[Kemal Demir]

Ek'teki örneği inceleyiniz.

Makro kısayol tusu Ctrl+r dir.

 

[BG]

listbox'taki seçilen satıra ping atmak ile istediğin dosya sanıyorum ekteki gibi bir şey olsa gerek, umarım istediğin gibi olmuştur, iyi çalışmalar dilerim.

 

[ersoyalan]

Brain merhaba,

Bugün inceleme fırsatı buldum.Kod çok güzel çalışıyor fakat her seferinde şu işlemi yapmak gerekiyor.İlgili ismi seçip ping dosyası oluştura basmak gerekiyor ve ondan sonra sadece ilgili isim için bat dosyası oluşturuyor.sedace ilgili isme ping çekebiliyorsun.Benim istediğim userform üzerinde ismi seçeyim ve ping butonuna bastığım zaman ping çeksin.

E.ALAN

 

[Kemal Demir]

Sn.ersoyalan,

Benim verdiğim cevap işinizi görmedi mi?

Ek'teki ornek listeden çift tıklatınız textbox 'a kac defa ping lemek istiyorsanız değer giriniz.

 

[ersoyalan]

Hocam açıkcası işimi görmedi sebebi ise şu illede cmd ekranında isteniyor.Çok kullanıcılı operasyon olduğu için herkesin anlıyabileceği ve vermiş olduğum örnek üzerinde isteniyor.Buda beni sıkıntıya sokuyor.

 

[Kemal Demir]

Peki . Siz bilirsiniz.

 

[ersoyalan]

Sn.ersoyalan,

Benim verdiğim cevap işinizi görmedi mi?

Ek'teki ornek listeden çift tıklatınız textbox 'a kac defa ping lemek istiyorsanız değer giriniz.

Kemal hocam merhaba,

Çok özürdilerim verdiğiniz excel dosyasını indirdiğim zaman masa üstündeki diğer dosyalarla karıştırmışım.Şİmdi tekrar kontrol ettim gerçekten çok güzel.Tam istediğim gibi.

Karışıklık için çok üzgünüm.

Syg,

E.ALAN