Posts

Showing posts from October, 2015

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel)

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel) Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Select

Preventing Problems With Worksheet Renaming

Preventing Problems With Worksheet Renaming ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "SummarySheet" Renames the object value of the worksheet. Comes in handy and streamlines the code. I suspect VBA needs programmatic access to teh project model which can be solved here: ''RESOLUTION ''For any Automation client to be able to access the VBA object model programmatically, the user running the code must explicitly ''grant access. To turn on access, the user must follow these steps. '' ''Office 2003 and Office XP ''Open the Office 2003 or Office XP application in question. On the Tools menu, click Macro, and ''then click Security to open the Macro Security dialog box. '' ''On the Trusted Sources tab, click to select the Trust access to Visual Basic Project check box to turn on access. ''Click OK to apply the setting. You may need to restart the application for the

Folder Maker and shortcut creater AND REcurse Checker

MODULE FOLDER MAKER Option Explicit Private fso As New FileSystemObject Dim RecurseCheck As New recurselimit Dim WSH As WshShell Public Sub CreateFolderStructure () Set WSH = CreateObject( "WScript.Shell" ) ''WshShell ''Set lnk = CreateObject("WScript.Shell") ''As WshShortcut RecurseCreateFolders "00-ROOT" ''entry point iis to pass name of root sheet to recursive process ''Set lnk = Nothing Set WSH = Nothing MsgBox "DONE" End Sub Private Sub RecurseCreateFolders ( ByVal strWSSub As String , Optional ByVal strFPpfix As String ) '', Optional FN As String, Optional XCUT As String) Dim lastrow As Integer Dim I Dim strFP As String If strWSSub <> "00-ROOT" And RecurseCheck.LimitReached(strWSSub) Then Exit Sub If strFPpfix > "" Then If Right(strFPpfix, 1 ) <&g

Software Inventory Excel VBA

Option Explicit ''original source from '''http://www.mrexcel.com/forum/excel-questions/535773-list-softwares-installed-excel-using-visual-basic-applications.html ''updated by Ron E. Allen Private sFileName As String Private StrComputer As String Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare PtrSafe Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" ( ByVal lpBuffer As String , nSize As Long ) As Long Public sCompName As String Public strDomain As String Sub GetInstalledSoftware() 'Dim sTitle As String Dim s As String Dim wsh As New WshShell 'sTitle = "You are about to retrieve the software installed on your computer." 'MsgBox sTitle StrComputer = GetCompName If StrComputer = vbNullString Then Exit Sub StrComputer = Trim(StrComputer) If StrComputer = "" Then StrComputer =

Acoustics Modeling | ANSYS e-Learning | CAE Associates - YouTube

Acoustics Modeling | ANSYS e-Learning | CAE Associates - YouTube

Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube

Looks interesting for rough acoustic evaluation in Revit... Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube