Put this code in sheet module:
Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Address
End SubPosts by Ingo_Ingo
-
-
Try:
ClientMatch.Font.ColorIndex = 3
or
ClientMatch.Font.Color = vbRed
-
Yes, AliGW has a steeper style, but she's right.
The title must be representative.
I don't think that you should treat a certain forum member like eggs, and if the forum member considers himself offended by the "poor title" answer, then maybe he should read/re-read the forum rules.
How does a title like "HELP" help??
-
For me work this:
CodeSub T() Dim ws As Worksheet: Set ws = Worksheets("EchellesIndexed") Dim rng As Range: Set rng = ws.Range("c2:bv104") Dim toCalc As Range For Each toCalc In Range("c2:bv104").Cells toCalc = toCalc * 2 Next toCalc End Sub -
Use this:
=IF(A3<=3,"Q1",IF(A3<=6,"Q2",IF(A3<=9,"Q3","Q4")))
-
-
Quote
Unfortunately, I need to have 2 values populated in Cell C10 and C11 each, which are reffered to By A10 and A11 on sheet B
So, if it works, it needs to look like this:
5,6 120 Receiption, Cleaner 7,8 125 Gardener, Maintenance Manager in C10 sheet B:
=VLOOKUP(--LEFT(A10),A!$A$6:$D$13,2,0)&", "&VLOOKUP(--RIGHT(A10),A!$A$6:$D$13,2,0)
and drag to C11
-
-
Hi,
1. Maybe we can make your formula smaller. Show your formula.
2. Try to use Name_Range.
3. Cut your formula in small pieces. Depend of your version of Excel you can reduce formula.
-
Hi,
Yes, I already deleted them.
Thank you.
-
Thank you RoyUK.
VBA code working perfect.
-
I get this file from a program. I have no acces to this program.
This is the file. With some data.
-
No.
Is like in post 18
Say in A2:A54 are data like this:
06:30 cell A2
15:25
---------
21:45 cell A3
06:30
--------
22:30 cell A4
05:45
-------
------=
13:35 cell A54
23:20
and result will be in cells (B2:B54), like 08:15, 12:10, 07:45....
I need also to calculate working hour like this: start time 22:30 and end time - say 05:45
Thank you.
-
Thanks for reply RoyUK.
My data is in column A from A2:A54 and need answer in column B
-
Hi,
I need little help with a VBA code to calculate working hour.
Data is like here:
Start hour and end hour are in same cell (Alt+Enter)
Say in A2:A54 are data like this:
06:30 cell A2
15:25
---------
21:45 cell A3
06:30
--------
22:30 cell A4
05:45
-------
------=
13:35 cell A54
23:20
and result will be in cells (B2:B54) something like: 8:20, 11:15, 9:35 etc
Similar with this post but need to calculate hour passing hour 00:00
Collecting data from multiple rows in one cell
Thank you.
-
This calculates the time for one cell- C6.
Code
Display MoreSub ProduceTimesheets() Dim TempName As String Dim StartTime As Date, EndTime As Date StartTime = Left(Trim(Cells(6, 3).Value), 5) EndTime = Right(Trim(Cells(6, 3).Value), 6) MsgBox Int(DateDiff("n", (TimeValue(StartTime)), TimeValue(EndTime)) / 60) & " hours " & _ DateDiff("n", (TimeValue(StartTime)), TimeValue(EndTime)) - Int(DateDiff("n", (TimeValue(StartTime)), TimeValue(EndTime)) / 60) * 60 & " minutes" End SubRoyUK,
Can you modify your VBA code to work with hour after 23:59.
Say in A2:A54 are data like this:
06:30 A2
15:25
---------
21:45 A3
06:30
--------
22:30 A4
05:45
-------
------=
13:35 A54
23:20
and result will be in cells (B2:B54)
Thank you.
-
If you want use VLOOKUP then use this formula:
=VLOOKUP(SMALL(I8:I17,COUNTIF(I8:I17,"<"&B5)+1),CHOOSE({1\2},I8:I17,H8:H17),2,0)
-
If in A1 are that time and you want to copy in E1, then
CodeSub Iancox01() [e3] = [a1] [e3].WrapText = False End Sub -
,
When I posted formula, you were online ...
Was it so hard to tell if it was OK or not?
A simple thank you would have been enough.
-
Try this:
Instead Tech Grade 1 in B1, use Custom Formatting "Tech Grade "# then in cell B1 put just number (1 or 2 or ...)
In Sheet1, cell B2, use this formula:
=IF(SUM(ISNUMBER(FIND("TG" & B$1,Sheet2!$B$2:$C$7))*(Sheet2!$A$2:$A$7=$A2))=1,"y","") than drag down till last name
and if you put in C1 number 2, then you can drag formula from B1 to C1 then drag down and so on.
Name Tech Grade 1 Tech Grade 2 Tech Grade 3 Joe y y y Dave y y Karen y y Bob y y