Em domingo, 5 de janeiro de 2014 04h45min51s UTC-2, Milin Sulakhi escreveu:
>
> Dear All,
>
> I cannot write macros hence need your help on it . This Macro will achieve
> what I have mentioned below.
>
> 1. There is a range which I will select in excel.
> 2. Run Macro
> 3. Number format will change as below in selected cells based on Criteria.
> These numbers are random and will end with Dr or Cr only.
> Numbers ending with Dr will be changed as Negative numbers
> Numbers ending with Cr will be changed as Positive numbers
> There could be some blank cells within range which need to be ignored.
>
> Example as below :
>
> Existing Revised
> 123.00 Dr -123.00
> 123.00 Cr 123.00
> 111.00 Cr 111.00
> <Blank Cell> <Ignored>
> 125.00 Cr 125.00
> 126.00 Dr -123.00
>
> 4. Macro ends.
>
> Kindly help me with this.
>
> Regards,
>
> Milin Sulakhi
>
Dear Milin Sulakhi, also try this other option:
Sub ReplaNumber()
Dim i As Integer
Dim z As Long
Dim x As String
With ActiveSheet
z = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
For i = 2 To z
x = Trim(Right(Cells(i, 1), 2))
If x = "Dr" Then
Cells(i, 2) = "-" & NumberFormat & Left(Cells(i, 1), _
InStr(Cells(i, 1),
".") + 2)
End If
If x = "Cr" Then
Cells(i, 2) = NumberFormat & Left(Cells(i, 1), _
InStr(Cells(i, 1), ".") +
2)
End If
Next
End With
End Sub
'rgs,
'Basole
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
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) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
