Wmi Bios Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! 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 InfoBIOS() Dim MyOBJ As Object Dim MyBios As Variant Dim MyMsg As String On Error Resume Next Set MyOBJ = GetObject("WinMgmts:").instancesOf _ ("Win32_Bios") If Err.Number 0 Then MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _ "Windows Management Instrumentation" Exit Sub On Error GoTo 0 End If For Each MyBios In MyOBJ MyMsg = String(50, "-") & vbCrLf MyMsg = MyMsg & "Üretici Firma : " & MyBios.Manufacturer & vbCrLf MyMsg = MyMsg & "BIOS Seri Numarası : " & MyBios.SerialNumber & vbCrLf Next MsgBox MyMsg, vbInformation, "BIOS Bilgileri (Raider ®)" End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 wmi bios 2 wmi bilgi 3 wmi sistem 4 wmi windows 5 işlemci hızı 6 işlemci bilgilerini hücreye aktarma 7 wmi mouse 8 wmi network adaptörleri 9 wmi anakart 10 wmi ekran kartı 11 statusbar da (durum çubuğunda) kayan yazı 12 capslock'u açtırma (ışığını yakma) 13 disketten .bat dosyası açma 14 excel operatörleri hk 15 fare kursörünü gizlemek 1 16 Çift tekrar eden / aynı olan satırları silmek 17 veri olan iki ayrı sütunu birleştirme 18 işlemciyi uyutma 19 e10 hücresine yazı yaz sağdan sola kayarak yazsın 20 dosya dizinde mi bakar, varsa açar yoksa mesaj verir