COPYING A CELL VALUE TO ANOTHER CELL WITH SAME FORMAT WITH FORMULA

[annadinesh]

Hi Team

I want to copy cell value of C23 & C24 to A2 based on Date via formula =IF(TODAY()-G6>730,C23,C24)

but the value comes on G6 should as same as in C23 & C24 format.


Please help


Dinesh Saha
9932022569

 

[Siddharth Rout]

Yess BOSS u r right C23 and C24 are Merged , Copy Problem Solved, But Please help me with the Format of C23 and C24 value

Would it be possible to see your Excel file so that I can give you a more accurate solution?

 

[annadinesh]

Would it be possible to see your Excel file so that I can give you a more accurate solution?

YES, HOW

 

[Siddharth Rout]

Take a screenshot of Range A1:E30 and post the image here. Ensure the column and row headers are also captured so it is easier to identify the range.

 

[annadinesh]

I want cell value of C23 & C24 to C4 based on Date via formula =IF(TODAY()-G6>730,C23,C24)

but the value comes on C4 should as same as in C23 & C24 format.


Please help


Dinesh Saha
9932022569

 

[Siddharth Rout]

What happens if you try this?

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range
  
    '~~> Change to relevant sheet
    Set ws = Sheet1
  
    With ws
        If Date - CDate(.Range("G6").Value2) > 730 Then
            Set rng = .Range("C23")
        Else
            Set rng = .Range("C24")
        End If
      
        rng.Copy .Range("C4")
    End With
End Sub

or simply

Option Explicit

Sub Sample()
    Dim ws As Worksheet

    '~~> Change to relevant sheet
    Set ws = Sheet1

    With ws
        If Date - CDate(.Range("G6").Value2) > 730 Then
            .Range("C23").Copy .Range("C4")
        Else
            .Range("C24").Copy .Range("C4")
        End If
    End With
End Sub

 

[annadinesh]

What happens if you try this?

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range
 
    '~~> Change to relevant sheet
    Set ws = Sheet1
 
    With ws
        If Date - CDate(.Range("G6").Value2) > 730 Then
            Set rng = .Range("C23")
        Else
            Set rng = .Range("C24")
        End If
     
        rng.Copy .Range("C4")
    End With
End Sub

or simply

Option Explicit

Sub Sample()
    Dim ws As Worksheet

    '~~> Change to relevant sheet
    Set ws = Sheet1

    With ws
        If Date - CDate(.Range("G6").Value2) > 730 Then
            .Range("C23").Copy .Range("C4")
        Else
            .Range("C24").Copy .Range("C4")
        End If
    End With
End Sub

its copying but all in black colour, Same format not copying

 

[Siddharth Rout]

Ok do this. Upload the file in say dropbox or any other free file sharing site and share the link here. We will take it form there

 

[annadinesh]

Ok do this. Upload the file in say dropbox or any other free file sharing site and share the link here. We will take it form there

Ok that will we manage with the Black Text, Please help me for the following

1ST FS	2ND FS	3RD FS	LAST PMS
04.03.2019	23.06.2020	03.01.2021
26.02.2005	29.07.2005	15.10.2005
30.07.2018	06.05.2019	04.01.2021

I have 4 colomns E to H in which i want in cell of coloumn H the value should shows the value like this

if value of a cell in coloumn E is in red colour then the value of cell H will be value of cell E, if the value of E & F is Red then the Value of cell of coloumn H should be the value of F, if the value of E F & G are red then the value of H should be value of G

Hope you understood my question


Regards


Dinesh Saha
9932022569

 

[Siddharth Rout]

I suggest that you post this as a new question else this thread will never end