Please Subscribe our Youtube Channel For more Videos
EXCEL MAP
Advanced EXCEL | MACROS | VBA | SQL | ACCESS
Friday 29 December 2017
Break the Excel Sheet Password Without any software
Please Subscribe our Youtube Channel For more Videos
Monday 5 October 2015
Extract text Based on Font Color from a Cell in Excel
'VBA: Extract text based on font color
Function GetColorText(rng As Range) As String
Dim x As String
Dim y As String
Dim i As Long
y = rng.Text
For i = 1 To VBA.Len(y)
If rng.Characters(i, 1).Font.Color = vbRed Then
x = x & VBA.Mid(y, i, 1)
End If
Next
GetColorText = x
End Function
Type this Formula =GetColorText(A1) (A1 indicates the cell you want to extract text from), press Enter key to get the needed text, then drag autofill handle to fill the formula to the range you want.
Now you can see all red text are extracted.
Function GetColorText(rng As Range) As String
Dim x As String
Dim y As String
Dim i As Long
y = rng.Text
For i = 1 To VBA.Len(y)
If rng.Characters(i, 1).Font.Color = vbRed Then
x = x & VBA.Mid(y, i, 1)
End If
Next
GetColorText = x
End Function
Type this Formula =GetColorText(A1) (A1 indicates the cell you want to extract text from), press Enter key to get the needed text, then drag autofill handle to fill the formula to the range you want.
Now you can see all red text are extracted.
Tuesday 29 September 2015
Excel VBA Macro To Change Border Line Styles
Excel VBA Macro To Change Border Styles
Sub Borders()
Sheets.Add
'Borders
Range("B5:e15").Borders.LineStyle = xlContinuous
Range("B5:e15").Borders.LineStyle = xlDot
Range("B5:e15").Borders.LineStyle = xlThick
Range("B5:e15").Borders.LineStyle = xlSingle
Range("B5:e15").Borders.LineStyle = xlDouble
Range("B5:e15").Borders.LineStyle = xlNone
End Sub
Friday 25 September 2015
EXCEL Macro(VBA) Code to Sort the Data
EXCEL Macro(VBA) Code to Sort the Data Based on One Particular Column
First Enter the large data in Excel sheet then Execute this Macro
Sub Sorting()
Dim X As Integer
X = InputBox("Enter The SortBase Column:")
Columns(X).Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Cells(1, X), _
SortOn:=xlSortOnValues,
Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:H300")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
First Enter the large data in Excel sheet then Execute this Macro
Sub Sorting()
Dim X As Integer
X = InputBox("Enter The SortBase Column:")
Columns(X).Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Cells(1, X), _
SortOn:=xlSortOnValues,
Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:H300")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Thursday 10 September 2015
Subscribe to:
Posts (Atom)