Loop range keep same value format

[christian2016]

Hi Guys,

Is there anyway to keep the same value format when looping a range.

Example - cell.value is a date or a percentage, when writing the cell.value to a particular cell it retains the same format.

I know there is a way to do this via copy and paste but there are lots of cell values i need to use in if statements and to write to cells and dont want to copy and paste all the time.

Any help is greatly appreciated.

Thanks

 

[My Aswer Is This]

Well you can do it like this. Using copy and paste is not required. Paste is assumed.

Sub My_Cell_Value()
'Modified 12/16/2021  5:23:00 AM  EST
Dim i As Long

    For i = 1 To 26
        Cells(i, 1).Copy Cells(i, 2)
    Next

End Sub

If you would show us some of your code we may be able to use Case
Instead of a lot of if statements.

 

[My Aswer Is This]

Here is a example of searching for dates in column A and if found copies column A Value and formatting to column B
Using Case not IF

Sub My_Cell_Value()
'Modified 12/16/2021  5:50:00 AM  EST
Dim i As Long
    For i = 1 To 26
        Select Case Cells(i, 1)
            Case "1/1/2021", "1/5/2021", "1/8/2021"
                Cells(i, 1).Copy Cells(i, 2)
            Case "1/15/2021", "1/18/2021", "1/21/2021"
                Cells(i, 1).Copy Cells(i, 2)
        End Select
    Next
End Sub

 

[christian2016]

Here is a example of searching for dates in column A and if found copies column A Value and formatting to column B
Using Case not IF

Sub My_Cell_Value()
'Modified 12/16/2021  5:50:00 AM  EST
Dim i As Long
    For i = 1 To 26
        Select Case Cells(i, 1)
            Case "1/1/2021", "1/5/2021", "1/8/2021"
                Cells(i, 1).Copy Cells(i, 2)
            Case "1/15/2021", "1/18/2021", "1/21/2021"
                Cells(i, 1).Copy Cells(i, 2)
        End Select
    Next
End Sub

Thank you so much. Didn't know about select cases rather than if statements. I know how they work now. Will incorporate within my vba code.

 

[My Aswer Is This]

For a range of dates:
Try this using Case:
Case "1/15/2021" To "1/21/2021"
This would be from "1/15/2021" To "1/21/2021