Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Sub Summary() 'Summarization macro - is searching for a specific cell in every workbook in the folder and sums it up in a predefined cell Dim wb As Workbook, TheFile As String Dim MyPath As String, TheSum As Double Dim MyArray As Variant MyArray = Array("CLOOS-1323.003", "CLOOS-1324.004", "CLOOS-1325.005") TheSum = 0 MyPath = ThisWorkbook.Path ChDir MyPath TheFile = Dir("*.xlsx") Do While TheFile <> "" If TheFile <> ThisWorkbook.Name Then Set wb = Workbooks.Open(MyPath & "\" & TheFile) TheSum = TheSum + Sheets("1630.001 Montáž koles.jednot.").Range("G12:028") wb.Close End If TheFile = Dir Loop Sheets(MyArray).Range("G12:028") = TheSum End Sub
|Vlookup for in-between dates||4||38|
|VB Script: Correction backup files and folders v3||11||25|
|Need a simple script to SYNC/ Mirror a local folder to a network folder.||10||29|