If Decimal Found then move the data from after decimal to before decimal

**Zaeguzah** · 08-26-2020, 06:20 AM

Hi Experts,

I am looking for a macro that will do the the things mentioned below
Macro will be placed in a macro.xlsm
macro.xlsm & 1.xls both are located in different path so the path should be hardcoded in the macro, so i can change it as per my needs

In column K, If after decimal if the second digit is 0 then Move all the data from after decimals to before decimals
K2 has data that has the second number after decimal is 0, so the output would be in K2 10030.00

Thnx For the Help
https://excelfox.com/forum/showthrea...4821#post14821

**vba_php** · 08-26-2020, 12:21 PM

more than likely, no one will do it for you. although many people here do post code. what is the other link? verbatim to this? are you both users? hmmm....

**Zaeguzah** · 08-26-2020, 12:41 PM

I posted this question, in another forum also so i shared the link

**vba_php** · 08-26-2020, 01:01 PM

using 2 usernames is probably not going to go over well.

**MoldyBread** · 08-26-2020, 01:16 PM

sorry for reply

**MrShorty** · 08-26-2020, 01:24 PM

I don't fully understand what you are trying to do. Based on the two examples and the brief description given, it looks to me like you want to multiply column K by 100.

If that is correct, without using VBA, you could enter 100 into a cell -> copy that cell to clipboard -> select column K -> paste special -> multiply. An equivalent process should be fairly straightforward in VBA -- if VBA is required.

That's just a guess. If that's not correct, then I think we need a better explanation of what you need to do.

**Zaeguzah** · 08-26-2020, 01:42 PM

Bro U r Awesome MrShorty Sir
What A Idea &a Great Suggestion to solve this Problem with so much Ease
Yes Sir i am looking for the same
May i get the macro For the same Sir

**MrShorty** · 08-26-2020, 01:51 PM

This is what the macro recorder gave me for that process:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("O2").Select
    Selection.Copy
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

**Zaeguzah** · 08-26-2020, 03:01 PM

Sub Macro2()
Dim Wb1 As Workbook
Dim WS1 As Worksheet
Set Wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\1.xls")
Set WS1 = Wb1.Worksheets.Item(1)
With WS1

    Range("O2").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("O2").Select
    Selection.COPY
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
        
End With
        
Wb1.Save
Wb1.Close

End Sub

I made this Working Fine & Awesome & If any changes are required as per u Sir then plz let me know Sir

**MrShorty** · 08-26-2020, 05:54 PM

If it is working correctly, I see no need to change it. If you are interested in learning how to "tidy up" recorded macro/VBA code, you might review these two essays:
http://www.tushar-mehta.com/excel/vb...rder/index.htm
https://peltiertech.com/how-to-fix-a-recorded-macro/

**Zaeguzah** · 08-26-2020, 06:00 PM

No Problem Sir, I am seeing the details
Problem Solved
Thnx Alot Sir
Have a Awesome Day

If Decimal Found then move the data from after decimal to before decimal

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Re: If Decimal Found then move the data from after decimal to before decimal

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Calculating decimal places in a non decimal format (ie sixes not tens)

how can i show from web import data with dot decimal, as comma decimal

Conversions of Decimal Feet to Decimal Inches - Formula??

Conversions of Decimal Feet to Decimal Inches - Formula??

Paste two decimal number in excel without extra decimal places appearing

Batch converting CSV files from comma-decimal to period-decimal

Converting 2-place decimal value to floating point decimal number with leading zero

[SOLVED] FIXED 2 DECIMAL PLACES, MUST ENTER ALL ZEROES AFTER DECIMAL POINT.

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions