hücredeki adrese ping atma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub GetIPs() 
     
    Dim c As Range 
     
     'Range("A2:A4") contains the domain names to ping
    For Each c In ActiveSheet.Range("A2:A4") 
        c.Offset(0, 1) = PingAddress(c.Text) 
    Next c 
     
End Sub 
 
Function PingAddress(strDomain As String) As String 
     
    Dim fso As Object 
    Dim WshShell As Object 
    Dim RetVal As Long 
    Dim strTemp As String 
    Dim colOutput As New Collection 
    Dim OutputItem 
    Dim i As Long 
     
    Set WshShell = CreateObject("Wscript.Shell") 
    RetVal = WshShell.Run("cmd /c nslookup.exe -ls " & strDomain & " > C:NSLOOKUPDATA.TXT", 0, True) 
     
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set txtstream = fso.OpenTextFile("C:NSLOOKUPDATA.TXT", 1) 
    Do 
        strTemp = txtstream.ReadLine 
        colOutput.Add strTemp 
    Loop Until txtstream.AtEndOfStream 
    txtstream.Close 
     
    For i = colOutput.Count To 1 Step -1 
        If Left(colOutput(i), 10) = "Addresses:" Then 
            strTemp = Trim(colOutput(i)) 
            PingAddress = Trim(Right(strTemp, Len(strTemp) - InStr(1, strTemp, "Addresses:") - 9)) 
            Exit For 
        End If 
    Next 
    If PingAddress = "" Then 
        For i = colOutput.Count To 1 Step -1 
            If Left(colOutput(i), 8) = "Address:" Then 
                strTemp = Trim(colOutput(i)) 
                PingAddress = Trim(Right(strTemp, Len(strTemp) - InStr(1, strTemp, "Addresses:") - 9)) 
                Exit For 
            End If 
        Next 
    End If 
     
    If PingAddress = "" Then PingAddress = "Domain name not resolved" 
     
    Set txtstream = Nothing 
    Set fso = Nothing 
    Set WshShell = Nothing 
     
End Function

Benzer Sonuçlar
No	Makro Adı
1	hücredeki adrese ping atma
2	hücredeki otomatik tarih formati
3	a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum
4	hücredeki değere göre mesaj veya makro
5	check atma a1:a10 hücreleri
6	hücreye check atma
7	ayrı sayfalardaki belli hücreleri toplatmak
8	Excel'i konuşturmak, seçili hücredeki yazıları sesli okutmak, cümle okutmak
9	Excel'de seçili hücrede yazan ifadeyi Google'da arat
10	Inputbox'la bulma
11	excel operatörleri hk
12	sütunu hücredeki veriye göre daraltma
13	Hücredeki fontu Kalın,İtalic ve Altı Çizgili yapmak
14	hücredeki sayıyı bir üst binliğe tamamlar
15	hücredeki ad soyadı ayırmak
16	hücredeki veri mesaj kutusunda 2
17	Hücre içerisindeki formülü gösterme / Hücrenin içerisindeki formülün İngilizce formatını gösterir
18	aktif hücredeki metni harflere (sütunlara ayırır)
19	Seçilen hücredeki harfleri teker teker göster
20	aktif hücredeki metni harflere (sütunlara 3 er karaktere bölerek ayırır)

Benzer Sonuçlar

Makro Adı

hücredeki adrese ping atma

hücredeki otomatik tarih formati

a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum

hücredeki değere göre mesaj veya makro

check atma a1:a10 hücreleri

hücreye check atma

ayrı sayfalardaki belli hücreleri toplatmak

Excel'i konuşturmak, seçili hücredeki yazıları sesli okutmak, cümle okutmak

Excel'de seçili hücrede yazan ifadeyi Google'da arat

Inputbox'la bulma