Need repair in code...

[VBABEGINER]

Hello All,

I have new query..in col J i have date. in col I i have some Text's..
Col I

CG D2 42
GN 01 82

Col J

1/1/2002
12/1/2014

I'm trying to use concatenate this two...in col H. But in my "left" code, it picks up "1" instead of "01"...
and hence giving me a wrong output..like..

CG D2 42 - 1//2002

I want to Text + month (from date) i.e. 1st 02 digit + Year (from date)

this is my code..

Range("G1").Select
Dim RowCnt5 As Integer
RowCnt5 = Range("G3").End(xlDown).Row
    For m = 2 To RowCnt5
        Cells(m, "H").Value = Cells(m, "I") & " - " & Left(Cells(m, "J"), 2) & "/" & Right(Cells(m, "J"), 4)
    Next m

can any one pls fix this..

 

[Rick Rothstein]

I want to Text + month (from date) i.e. 1st 02 digit + Year (from date)

this is my code..

Range("G1").Select
Dim RowCnt5 As Integer
RowCnt5 = Range("G3").End(xlDown).Row
    For m = 2 To RowCnt5
       [B][COLOR="#FF0000"] Cells(m, "H").Value = Cells(m, "I") & " - " & Left(Cells(m, "J"), 2) & "/" & Right(Cells(m, "J"), 4)[/COLOR][/B]
    Next m

can any one pls fix this..

Try replacing the red highlighted line of code with this one and see if that works for you...

[table="width: 500"]
[tr]
	[td]Cells(m, "H").Value = Cells(m, "I") & " - " & Format(Cells(m, "J"), "mm/yyyy")[/td]
[/tr]
[/table]