How to create a self expanding chart ? 

Level:Beginner

Thinking of automatic chart update?.. Here is the way folks..

When u add new data to a worksheet , how can me make the chart self expandable?

Solution:

• Select the data u want to make a chart
• Choose Insert->Tables-> Tables to convert the range to a table

Making Chart:

• Now select data table
• Choose insert-> chart -> type of chart

Note:  Excel recogonizes the data as a table, and data added to the table is shown in chart

Chart will adjust automatically according to the data.

Thanks,

Raegle

How to check the color of the cell using VBA?
 
   Doing task automation? Struggled to find the color of the cell? Here is the way.......

 Steps:


 1. Press Alt + F11
 2. Insert->Module
 3. Write the below simple code


Sub CheckColorOfTheCell()
MsgBox ThisWorkbook.Sheets("Sheet1").Range("T1").Interior.ColorIndex
End Sub


Thanks,
Raegle

How to crack the Sheet Protection password?  (Excel 2007 and Above version: ) -VBA method :

        Folks,  Interested to know how to crack the sheet protection password. Here is the simple solution.....

Steps:

      1. Open the Excel workbook which you want to break the sheet password.

      2. Press Alt + F11

      3. Select insert-> Module

      4. And then paste the below code in the module

Public Sub OverrideSheetprot()

Dim intPress As Integer,Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

Dim wbsh, tmstrt, attmpt

tmstrt = Timer

attmpt = 0

On Error Resume Next

Set wbsh = ActiveWorkbook.ActiveSheet

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

attmpt = attmpt + 1

wbsh.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

DoEvents

If wbsh.ProtectContents = False Then

MsgBox "Match found : " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) & vbCrLf & "Sheet is now un protected."

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

And then just press F5 key!! 

Thats it !!


Thanks,

Raegle

 

Hello Every One,

          This Blog will help you to Snatch and explore the Excel World

Rgds,
Raegle.