Very Useful Short VBA Codes

Resize Range

Range("a1").Resize(4, 5).Select


Filter Non-Blank Cells in a Range

Set rng=Range("a1").CurrentRegion

rng.autofilter Field:=5, Criteria:="<>"

or

rng.autofilter Field:=col, Criteria:="<>"

'Here col is a variable which holds column number

Filter Blank Cells in a Range

Set rng=Range("a1").CurrentRegion

rng.autofilter Field:=5, Criteria:="="

or

rng.autofilter Field:=col, Criteria:="="

'Here col is a variable which holds column number

Filter values other than some already known values in a Range

Dim var_Arr() as Variant, int_X as Integer

Dim rng_R as Range, rng_TitleRange as Range

ReDim var_Arr(10000) As Variant

        int_X = 1

        For Each rng_R In rng_TitleRange

                     If rng_R <> "A" And rng_R <> "B" And rng_R <> "C" And rng_R <> "D" And rng_R <> "E" And rng_R <> "F" And rng_R <> "G" And rng_R <> "H" And rng_R <> "I" And rng_R <> "J" Then

                           If rng_R = "" Then

                               var_Arr(int_X - 1) = "="

                               Else

                            var_Arr(int_X - 1) = rng_R.Value

                        End If

                        int_X = int_X + 1

                End If

        Next rng_R

    ReDim Preserve var_Arr(int_X)

    Range("A1").AutoFilter field:=int_col_1, Criteria1:=var_Arr, Operator:=xlFilterValues

Remove Filter Mode From A Worksheet

ActiveSheet.AutoFilterMode=False


Save Excel Workbook in .XLSM Format

ThisWorkbook.SaveAs "D:\Excel Practice\FileFolderPractice1stApr20", 52

Note: Here 52 is used to save the workbook in macro-enabled format.


Error Number and Error Description

Sub ErrNumber()

On Error Resume Next

i = 1 / 0

MsgBox Err.Number & "-" & Err.Description

End Sub


Find Column Number and assign it to a range

'-----Find Column Number-------------

Dim rng as Range

ActiveSheet.Rows("1:1").Select

'XYZ is the column name here

col = Selection.Find(what:="XYZ", After:=ActiveCell, LookIn:=xlFormulas, _

        LookAt:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, _

        MatchCase:=False, SearchFormat:=False).Column

Set rng = Range(Cells(2, col), Range(Cells(Rows.Count, col), Cells(Rows.Count, col)).End(xlUp))

or

Set rng = Range(Cells(2, col),Cells(Rows.count,col))


Open a folder using Shell Object

var_FD = Shell("explorer.exe" & " " & ThisWorkbook.Path & "\Input Folder", vbNormalFocus)

Here var_FD is a variant type variable.

Above 1 line code will open a folder.

Comments

Post a Comment

Popular posts from this blog

Power Automate - Automatically fetch data from Power BI in to Excel and Send the copy of the Excel file via Email

Image
Power Automate - Automatically fetch data from Power BI in to Excel and Send the copy of the Excel file via Email Step-1 Step-2 Step-3 Using Command text we can make changes in the data we fetch from the Power BI. Like add fields/columns, filter data, rename columns. It is a DAX formula. Step-4 Step-5      Step-6 Step-7 Posting message on Teams. We can post message to a Teams Group  also by selecting Group chat from Post in and select the Teams Group from the Group chat  dropdown that will appear after making selection. Step-8 Location:  We need to select the Group  on SharePoint in which our file is located. Document Library: We need to select the Documents option from the dropdown. File: Select the file on which you want to run the script. Script: Select the script to perform the desired action. Step-9 Step-10 Step-11 Using Filter Query  we can decide which file properties we want to get. We are performing this step to attach excel as an attach...
Read more

Function to Paste Excel Range on Outlook Mail Body (In text not image) Function Name - rngHTML()

Use the below function in your subroutine in the below mentioned way: .HTMLBody = str & rngHTML(Sheet1.Range("a13:g17"))  & .HTMLBody ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function rngHTML(rng As Range)     Dim fso As Object, ts As Object, TempWB As Workbook     Dim TempFile As String     TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"     '' copy the range and create a new workbook to paste the data into     rng.Copy     Set TempWB = Workbooks.Add(1)     With TempWB.Sheets(1)         .Cells(1).PasteSpecial Paste:=8         .Cells(1).PasteSpecial xlPasteValues, , False, False         .Cells(1).PasteSpecial xlPasteFormats, , False, False         .Cells(1).Select         Application.CutCopyMode = False         O...
Read more

Separate Text (Characters) & Numbers from Alpha Numeric String Using Formula and Macro (VBA)

Image
Have you ever come across the data where the text (characters) and numbers are put together in a single cell. Like Employee Name and Employee Code, Customer Name and Customer Number, etc. If the answer is Yes and you want to learn how to separate them using  formula  then this post is definitely for you. This type of data comes into three flavours: 1) Text and Number (Sujeet123) 2) Number and Text (123Sujeet) 3) Text and Numbers tangled (S1u2j3e4e5t6, 1s2u3j4e5e6t) We can separate the first 2 types using the formula and for 3rd type, we need to write a few lines of code (Macro). Let's start with the First one: 1) Text and Number (Sujeet123) Ex-1 Let's assume that  Cell A2  holds Sujeet123 in Sheet1. we will use the below formula with the Left and Right function to separate the Text and Number . =Min(find({01,2,3,4,5,6,7,8,9},A2&"0123456789")) The above formula will give us the starting position of the first Number. To find the Text Part  put the below...
Read more