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

rsrasc · #1 08-22-2018, 08:11 AM

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 · #2 08-22-2018, 08:57 AM

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

rsrasc · #3 08-22-2018, 09:50 AM

Quote:

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.

Code:

 
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 · #4 08-22-2018, 10:12 AM

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.

Code:

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 · #5 08-22-2018, 12:17 PM

Quote:

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.

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Concatenate function for displaying numbers in words	officeboy09	Excel	13	08-09-2021 12:59 PM
Adding a function to this macro:	JohnGanymede	Excel Programming	6	12-22-2017 02:57 PM
How do you write a macro with an IF Function	Scheuerman1987	Excel	5	06-05-2013 06:04 AM
Macro or user function to Extract row height	Catalin.B	Excel	12	06-22-2011 09:21 AM
Help! for using an appropriate function/Macro in Excel	pawan2paw	Excel	1	06-04-2009 12:28 PM