Try this. Make sure you do not have any line breaks
Option Explicit
Sub CopyShtwitoutdecimals()
Dim i As Long
Dim lr As Long
Dim lc As Long
Dim mf As Range
For i = 1 To Sheets.Count
With Sheets(i)
lr = .Cells.Find("*", Cells(Rows.Count, Columns.Count) _
, , , xlByRows, xlPrevious).Row
lc = .Cells.Find("*", Cells(Rows.Count, Columns.Count) _
, , , xlByColumns, xlPrevious).Column
Set mf = .Cells.Find(What:="Activity", LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not mf Is Nothing Then
.Range(.Cells(mf.Row, 1), .Cells(lr, lc)).NumberFormat = "0.00"
End If
End With
Next
Sheets("Sheet1").UsedRange.Value = Sheets("Sheet1").UsedRange.Value
Sheets("Sheet1").Copy
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-----Original Message-----
From: Zafar Iqbal
Sent: Monday, January 23, 2012 11:15 PM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Paste Special Data with 2 decimals
(Permanently)
I pasted this line in macro last portion as mentioned below:-
Sheets(“sheet1”).UsedRange.Value = Sheets(“sheet1”).UsedRange.Value
Sheets("Sheet1").Copy
End Sub
I am getting message Complie Error: Variable not defined with yellow
selection at Sheet1.
Please help in this matter. Thanks
Regrads,
Zafar iqbal
On Jan 23, 7:35 pm, "dguillett1" <dguille...@gmail.com> wrote:
Oops. I also should have added this to change formulas to values before
copy
sheets(“sheet1”).usedrange.value=sheets(“sheet1”).usedrange.value
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Sam Mathai Chacko
Sent: Monday, January 23, 2012 9:21 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Paste Special Data with 2 decimals
(Permanently)
From what Don intended, I believe it is....
Dim i as long, lr as long, lc as long, mf as range
Regards,
Sam Mathai Chacko
On Mon, Jan 23, 2012 at 8:47 PM, Zafar Iqbal <ziqba...@gmail.com> wrote:
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
