Posts by Tom.Jones

Quote from StephenR

Here is one approach, if your text is in A1.
Sub x()

Dim oMatches As Object, i As Long, vOut As Variant, r As Range

Set r = Range("A1")

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\b(\w+)"
If .Test(r) Then
Set oMatches = .Execute(r)
ReDim vOut(0 To oMatches.Count - 1)
For i = 0 To oMatches.Count - 1
vOut(i) = oMatches(i).firstindex + 1
Next i
For i = LBound(vOut) To UBound(vOut)
r.Characters(vOut(i), 1).Font.Bold = True
Next i
End If
End With

End Sub

Display More

StephenR,

If you have in a cell:
One two Three
Your code result is:
One two Three

You have not received any answer, because I do not believe, someone understands, what you want.
Explain clearly what you want.
Example: I would like to apply the following cell range formula .... of sheets 1, 3 and 4.
With the total ....

Quote from agog1

Nilem replied me that ur question is a paid question
Y if its a free forum then this behaviour not acceptable at all

This forum is free and our members waste their time to answer.
For people with complex question/problem or in a hurry, they can choose to pay, to get answers.
It is fair to don't ask for complex answer for free. It's normal to pay for that.

PS I don't know what nilem answer you...

In first post you say...

Quote

I want to get color in the first cell (based on cell value) and remove all other cells color.

then

Quote from rajeshn_in

Thank you Mumps,

Well, I don't want every first number will be colored, I want, those first numbers, which the same second or third or etc. numbers were already colored. Please check my Post 1 attachment. My need mentioned from E2.

Thank you.

which one is correct?

You ignore my message where I mention that you can do this without VBA code.

You posted file without VBA code. What we modify?
You can do that without VBA code. Use conditional formatting.

OK. In that file, writte all the date (for say 12 years) that you need, and explain exactly what you want to do.

Quote

lets say you started a loan in 2006, but you are in 2018 and you want to pull the expenses for 2018

That mean first cell with date is any month in year 2006 and go to the right till 2018?
Maximum number in DV will be 30? and represent 30 years from the first year show in first cell with data?
Upload the file.

If I understand you...
change back 2001 to 1, 2002 to 2 and so on and change formula in E18 with:

=SUMPRODUCT((YEAR($B$1:$Y$1)=--("200"&$C$18))*$B$2:$Y$2)

I modified almost all formulas in your file.
See if it is what you want, in attach

riskier4ra test.xlsx

P.S. Why you change date in text then change back?

Upload the file.

Robert, BIG THANKS

If I select 4 sheets, the second VBA code rename only first 3 sheets
I manage to make a small change in your code and now is OK. Thank you for helping me.

Thank you very much, Trebor76.
Code VBA works well but I need to exclude sheet where run that code.
Thank you.

I did not manage to exclude the sheet from where I run the VBA code

Hello,

Can someone help me with a VBA code that will renames my selected sheets, depending on a list in a given sheet?
The sheets may be continuous or not.

Thanks in advance for any help.

Hi,

Where are those cells with January, February? etc.

Cross post

http://www.vbaexpress.com/foru…etween-sheets-with-Cycles

Thank you Roy,
This one work.
Treeview-Example-Simpsons GDI.xlsm (105.4 KB)

Hi,

I get "run time error 481"
Invalid pictures

How can I pass from that?
Thanks.

Cross post:
http://www.vbaexpress.com/foru…import-BDH-from-Bloomberg

royUK

Quote

To use a date range then the workbook will need some alterations. I'll look at it later

OK. Thank you.

@ darth chunk

Have you tested V3 in the same file you put on the site? In columns B1: NI1, in your file it is a real date?, or are text or something else?
Very curious...
I have tested on multiple computers with different SO and different Office versions, and did not work. We tested the file you put on the site and added the code to Mumps and royUK.

Hi,

@ darth_chunk
This one, SuperHero Patrol_VBA_TEST V2.xlsm(26.6 KB, 1 view), from Carim, is working very well

I tested SuperHero Patrol_VBA_TEST V3.xlsm(25.7 KB, 1 view)and it's not working.
If you choose any month, in A1, all columns till 'NI' column, are hidden. Have you tested?

royUK,

Yes, I downloaded (long time ago) that files, from links, and I used them. Thank you. :thumbcoo:

Hi,

For me, neither Mumps nor royUK's code works.
When selecting any month, all columns of data are hidden and all appear when selecting 'select data' in A1.
royUK, can you attach a file with code to work with?
Thank you.