Glad you could fix your problem 
Posts by Carim
-
-
1.1 Microsoft Office 95 1.2 Microsoft Office 97 1.3 Microsoft Office 2000 1.4 Microsoft Office XP 1.5 Microsoft Office 2003 1.6 Microsoft Office 2007 1.7 Microsoft Office 2010 1.8 Microsoft Office 2013 1.9 Microsoft Office 2016 1.10 Microsoft Office 2019 Source : https://en.wikipedia.org/wiki/History_of_Microsoft_Office
-
You are welcome
Thanks for your Thanks AND for the Like
-
its' MS office 7
Sorry MS Office 7 does not exist ...!!!
Is it Office 1997 or Office 2007 ... ???
-
-
If all of your data is generated by some kind of a download ... you could be facing a famous issue :
some cells are downloaded as Text ... and not as Values ... which would explain the errors ...
You should look into this aspect ...
-
Re,
Have you tested the macro in message # 8 ...?
-
Hello,
Which Excel version are you using ?
-
Re,
If there is no exception ... you can test following
Display MoreCode- Sub Adjust()
- Dim last As Long
- Dim c As Range, rng As Range
- Dim sh As Worksheet
- For Each sh In ThisWorkbook.Sheets
- last = sh.Cells(Rows.Count, 2).End(xlUp).Row
- Set rng = sh.Range("B2:B" & last)
- For Each c In rng
- If c = "Total Week" Then c.Offset(0, 6) = Evaluate("=F" & c.Row & "/G" & c.Row & ""): c.Offset(0, 6).NumberFormat = "0.00%"
- Next c
- Next sh
- End Sub
Hope this will help
-
You are welcome
Are you sure you need a loop for all the sheets ...?
Don't you have like an index sheet which would be an exception ...?
-
Hello,
You can test following
Code- Sub Adjust()
- Dim last As Long
- Dim c As Range, rng As Range
- last = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
- Set rng = Sheet1.Range("B2:B" & last)
- For Each c In rng
- If c = "Total Week" Then c.Offset(0, 6) = Evaluate("=F" & c.Row & "/G" & c.Row & ""): c.Offset(0, 6).NumberFormat = "0.00%"
- Next c
- End Sub
Hope this will help
-
Hello,
You can test following :
Code- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address <> "$A$3" Then Exit Sub
- ' Make sure to use your own password and replace "leroy"
- Me.Unprotect "leroy"
- Application.EnableEvents = False
- Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
- Target.Offset(-1, 0) = Date
- Target.Offset(-1, 1).Select
- Application.EnableEvents = True
- End Sub
Hope this will help
-
Thanks for the Like
-
-
-
Dear Carim,
I am getting subscription out of range message
I did copy ... without checking ... YOUR instruction
MyDate = Format(Worksheets("Training").Cells(4, "B").Value, "dd/mmm/yyyy")
-
Many thanks Carim. Works like a charm.
Thanks for your Thanks ...AND for the Like
For AliGW
You do remember very well ...that I keep forgetting about posting formulas ...
-
Dave is right ...
In addition ...
Already indicated to you ... Merged Cells should just be forbidden ...
-
Hello,
May be you have missed message # 3
Should you need further assistance ... please attach a sample file to describe your objective
-