Here’s a IsWorkbookOpen function to check if a workbook is open or not. Returns TRUE or FALSE Public Function IsWorkbookOpen(ByVal wkbkname As String) As Boolean Dim Wb As Workbook ‘check if its already opened in the Windows collection For Each Wb In Workbooks If Wb.Name = wkbkname Then IsWorkbookOpen = True GoTo exitsub End If […]
Continue readingTwo of my colleagues in the office wanted to know how can they change the creation date of a workbook, and I knew there would be some property of the Workbook, which can be accessed thru VBA. So here is the simple sub to get the new creation date and the message boxes will show […]
Continue readingSteps to get your bookmarks in a database format First way: Open Excel>Data>Import External Data>New Web QueryPaste the address of your bookmark on your hardisk in the web query addressSelect the tableImport it to ExcelYou’ll see first column has all the addresses of the links, and after few columns the text for that hyperlinkPress Ctrl […]
Continue readingDefinition of palindrome as given in Answers.com pal?in?drome (p?l’?n-dr?m’) n. A word, phrase, verse, or sentence that reads the same backward or forward. For example: A man, a plan, a canal, Panama! Function IsPalindrome(sInput As String) As Boolean If sInput = StrReverse(sInput) Then IsPalindrome = True Else IsPalindrome = False End If End Function
Continue readingTo count number of asterisk (*) in a column use this formula: =COUNTIF(A1:A3, “=~*”)
Continue reading