Copy it from here, if you have trouble copying from the above post.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iReply As Integer
Dim rngTemp As Range
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Union(Range("A3:A30"), Range("B3:B30"), Range("AA3:AA30"))) Is...
Ok.. Here is what I have changed to combine both the loops. Give a try.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iReply As Integer
Dim rngTemp As Range
If Target.Cells.Count > 1 Then Exit Sub
'If Not Intersect(Target, Range("A3:A30", "B3:B30")) Is Nothing And Target <>...
Hi Prakash,
I need some more clarfication on this. Would you please upload a sample file with the data on it explaining your requirement. Will try to fix it . Thanks.
Well... we are all learning. There is no SHORTCUTKEY for it. Practice.... Practice.... Practice.
Make yourself time to follow the Excel forums (ofcourse Chandoo is too addictive) .You have a big bunch of Ninjas, Excel experts here answering the questions. Following it regularly will definetely...
Hi Prakash,
Replace your line of code where you check the Target.address (If Target.Address = "$A$13"........) with the below.
If Not Intersect(Target, Range("A20:A30")) Is Nothing And Target <> vbNullString Then
Hello All,
Can someone improvise the above formula to calculate the number or text characters in the cell placed random or repeatedly like
AB1BA = 4
AB2C1 = 3
A1C2B3 = 3
And also formula to extract unique alphabet count like :
AC1BA = 3 (A is repeated )
A2CAAC1 = 2 (A, C is repeated)
Though...
Hi Sachin,
This is purely not mine but have modified the formula built by some brilliance (http://office.microsoft.com/en-us/excel-help/extracting-numbers-from-alphanumeric-strings-HA001154901.aspx).
This works for your need, but am sure you will get much more simpler & better formulas from...
Hey PipBoy808,
Try this.
1) Place your cursor on cell C1 and go into the Define Name (Formulas -> Define Name/Name Manager)
2) Ener Name as "StrikeCheck" (of your choice if you want) and under "Refers to" enter this formula =Get.cell(23,!A1), Click OK
3) On Cell C1, enter =StrikeCheck, this...
Hi Jeff,
It looks like Excel 2007,2010 is not purely built from scratch but still holds lot from their ancestors. As you mentioned the issue happens when we refer the named range.
I tried with this line of code without the reference to the sheet and it works.
rstData.Open "SELECT * FROM...
Hey Nipendra,
Try this code please.
Sub OpenWordDoc()
'In order to use this code you must set a reference to the
'Word object library by doing this. In the VB Editor click
'Tools, References. Then search for Microsoft Word n.n Object Library
'where n.n will depend on your...
Hi Nipendra,
Do you want to create a new word document and insert the logo in it? or you have the list of Word documents in which the logo need to be inserted?
This is possible, just that you need to give more clarification on
1) New document or used docs
2) How are these logos stored in...
Hi Kanagat,
1) Apply the custom formatting with Traffic lights on the Sheet2 R/A/G Column.
2) Set the Sheet2 value on the Sheet1 (G6 ='2'!G6)
3) Copy the formatting from Sheet2 'G' Column to Sheet1 'G' Column using format painter.
4) If you want to show only traffic lights and no values on...
Hi Sushil,
Why do you have to force close the workbook with the line of code? (.Close savechanges:=False changed to .Close (False) by NARAYANK991) .
The Workbook_BeforeClose event expects the workbook to be alive until it executes completely and closes the file on its own. I guess, since...
Hi Bhupesh,
This worked for me. I am able to do the station search and get the train list. The code need to be tweaked to add some more parameters like date of search, quota type (Tatkal, General) etc. in case to be customized.
However, are we doing the right thing by speeding up our...
SirJB7,
Just figured out how to get these snakes out of the baskets after asking Hui to explain it. These scatters always look like Anacondas until you open the basket and realise you can make them dance to your Pungi. :D
Hui,
Many thanks for the scatter chart produced. This looks great. Can you please explain for all of us in steps to produce this. Though I do not have a requirement to produce such charts at work, but very keen in understanding how to do this.
Hi Webmax, do you mean customizing the ribbon?
If you want only the cells to be shown,
1) Goto View tab -> Uncheck options Formula Bar & Headings to hide .
2) Right click on any ribbon -> Choose Customize the ribbon (Also can do this through File -> Options-> Customize Ribbon) -> under Main...