RIGHT Function With Concatenate (?) VBA-Need Help with Macro

[rsrasc]

Hi all,



I have a file with multiple sheets having the same information in Column B and C.

Not sure if the RIGHT Function is the most appropriate function to accomplish this task.

In Column B, from B4:B98 I have the following accounts in the following format.

B4: AF-600-51000
B5: AF-600-51001
.
.
B98: AF-600-51098

in Column C, same range (C4:C98), I have the names associated with the accounts

C4: Unit Name
C5: Promotions
.
.
C98: Other CC


The macro should be able to get the last 5 digits from Column B and combine it with the text in Column C and put the end result in Column A using the same range (A5:A98).

For example, in cell A4 (and so on) will look like this:

A4: 51000 Unit Name
A5: 51001 Promotions
.
.
A98: 51098 Other CC


My end goal is for the macro to be able to do this for 16 sheets in the file.

As always thank you for your assistance and cooperation.

Cheers!
rsrasc

[Kenneth Hobson]

=right(b4,5) & " " & c4

[rsrasc]

Originally Posted by Kenneth Hobson

=right(b4,5) & " " & c4

Hi Kenneth,

Thank you for your response. I already tested this formula but I'm looking for a macro that when I run it it's going to apply it to 16 sheets in the file. I recorded a macro and this is what I got.

 
Sub Macro1()
'
' Macro1 Macro
'
'
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],5)&"" ""&RC[2]"
    Range("A5").Select
End Sub

But I don't like it.

Will see if someone can come out with a better option.

Thanks anyway!

[Kenneth Hobson]

It is just a matter of iterating the sheets. Of course protection may need to be addressed if used. I normally do that in the workbook open event so that code can make changes.

Sub Main()
  Dim ws As Worksheet, c As Long, s$
  For Each ws In Worksheets
    With ws
      c = .Cells(.Rows.Count, "B").End(xlUp).Row
      s = "=Right(B4,5) & " & """" & " " & """" & " & C4"
      'Debug.Print s
      .Range("A4").Formula = s
      .Range("A4").Copy .Range(.Range("A4"), .Cells(c, "A"))
    End With
  Next ws
End Sub

I normally use a string variable to build a formula to easily debug if needed.

[rsrasc]

Originally Posted by Kenneth Hobson

It is just a matter of iterating the sheets. Of course protection may need to be addressed if used. I normally do that in the workbook open event so that code can make changes.

Sub Main()
  Dim ws As Worksheet, c As Long, s$
  For Each ws In Worksheets
    With ws
      c = .Cells(.Rows.Count, "B").End(xlUp).Row
      s = "=Right(B4,5) & " & """" & " " & """" & " & C4"
      'Debug.Print s
      .Range("A4").Formula = s
      .Range("A4").Copy .Range(.Range("A4"), .Cells(c, "A"))
    End With
  Next ws
End Sub

I normally use a string variable to build a formula to easily debug if needed.

Hi Kenneth,

Thank you for the code. Much appreciated. The macro seems to be a little bit complicated to my level of understanding but I think it will help me in the future for future projects.

Took less than probably a second or two and done.

It's working great.

Thank you for your effort and cooperation.

Cheers,
rsrasc