learning harddiskin free space etc .. Free Excel Macros (VBA) | Excel Programs

Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

Learning Harddiskin Free Space Etc ..

Online Excel and Excel Macro (VBA) Courses

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Aktif sayfada
Private Sub Workbook_Activate()
Call Festplatten
End Sub

Sub Festplatten()
Const TEILER As Long = 1073741824
Dim objFSO As Object, objDrive As Object, colDrives As Object, varFree, intCount As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
intCount = 5
With LW
  .[b6:i100].ClearContents
  For Each objDrive In colDrives
      If objDrive.DriveType = 2 Then
          intCount = intCount + 1
          .Cells(intCount, 2) = objDrive.DriveLetter
          .Cells(intCount, 3) = objDrive.TotalSize
          .Cells(intCount, 4) = objDrive.TotalSize / TEILER
          .Cells(intCount, 5) = objDrive.FreeSpace
          .Cells(intCount, 6) = objDrive.FreeSpace / TEILER
          If objDrive.IsReady Then
            .Cells(intCount, 7) = "Bereit"
          Else
            .Cells(intCount, 7) = "Nicht bereit"
          End If
          .Cells(intCount, 8) = objDrive.SerialNumber
          .Cells(intCount, 9) = objDrive.VolumeName
      End If
  Next
End With
End
End Sub

Report problem with this macro

Report error

ALL MACROS

Youtube Channel
The following macros may be useful for you.

Similar Results
No	Macro Name
1	learning harddiskin free space etc ..
2	excel operators hk
3	Detailed report on harddisk
4	remove sheet / page protections
5	show file path list in detail fields of files file path etcâ € ¦
6	learning user name and pc name
7	wmi motherboard
8	excel fonts 2
9	wmi windows
10	return one or more values in a macro
11	learning with classmodule
12	show free space
13	learning the message with classmodule2
14	learning screen resolution
15	Search for a word in 30 excel files
16	number of sheet / page prints with message box (prints even if the sheet / page is blank)
17	active cell printing
18	printing and prompting
19	fonts in word
20	Add Quick Access to custom Lists. Add custom List Access to the Right-Click Menu

Excel Free Macros (VBA)

Learning Harddiskin Free Space Etc ..

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords