Format specific columns to currency

try this

Please Login or Register  to view this content.

PHP Code: 

Dim message As String
    Dim titleOfWindow As String
    Dim standardRange As String
    Dim rangeSelected As Range
    Dim i      As Variant
    Dim j      As Integer
    Dim ws     As Worksheet

    i = 1

    message = "Give your range please"
    titleOfWindow = "Formatting cells"
    standardRange = "A:D"

    Debug.Print standardRange

    Set rangeSelected = Application.InputBox(message, titleOfWindow, standardRange, Type:=8)
Debug.Print rangeSelected

    
With Range(rangeSelected.Address).EntireColumn

        .Style = "Currency"
        .NumberFormat = "_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"
    End With
End Sub 


I have changed the

PHP Code: 

With Range(rangeSelected.Address).Entirerow 


with

PHP Code: 

With Range(rangeSelected.Address).EntireColumn 


from your code as I want to select the entire column. Your code was very helping thanks a lot for it.
Perhaps I ask you another question relating the code.

I am getting the range at the moment through the Inputbox. Is it possible to
build this code in such a way that the code knows which cells have already been selected. For example I have a workbook open and have selected some cells already and these exactly these cells should be formatted.

In this way I can get rid of inputbox and my solution would be time saving and dynamic.

Use Selection

Please Login or Register  to view this content.