How to put slash with word and ascending numbers in excel

[Sam1023423]

How to put slash with word and ascending numbers in excel with VBA
Thanks in advance.

 

[RobOrBob]

Do you really need to do it in VBA? Its quite a simple formula:

Column D Cell 1
=IF(A1="","",A1&"Category/"&ROW())

Column E Cell 1
=IF(B1="","",B1&"Category/"&ROW()+1)

 

[Sam1023423]

Hi Rob
Yes I need VBA formula because I have 10000 categories.

 

[RobOrBob]

Formulas generally outperform VBA code though.

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Question How to put slash with word and ascending numbers in excel with VBA
and How to put slash with word and ascending numbers in excel with VBA
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Sam1023423]

The above one working fine but it put numbers before words and I need after words

Sub marine()
Dim n As Long
Dim r As Range
n = 10000

For Each r In ActiveSheet.UsedRange
If r.Value <> "" Then
r.Value = n & "/" & r.Value
n = n + 2
End If
Next r
End Sub

 

[Cubist]

Try

Sub AppendCategories()
    Dim a, b
    Dim i As Long, j As Long
    Dim numRow As Long, counter As Long
    Dim ws As Worksheet
   
    Set ws = ThisWorkbook.Worksheets("Sheet1")  'Change as needed
    numRow = Cells(Rows.Count, "B").End(xlUp).Row
    a = ws.Range("A1:B" & numRow).Value
    counter = 1
   
    ReDim b(1 To numRow, 1 To 2)
   
    For i = 1 To numRow
        For j = 1 To 2
            If Not IsEmpty(a(i, j)) Then
                b(i, j) = a(i, j) & "/category" & counter
                counter = counter + 1
            End If
        Next j
    Next i
   
    ws.Range("D1").Resize(UBound(b, 1), 2).Value = b

End Sub

 

[Sam1023423]

Sub blah()
Z = 1
For Each cll In Range("A1:D1000").SpecialCells(xlCellTypeConstants, 3).Cells
cll.Value = cll.Value & "/c" & Z
Z = Z + 1
Next cll
End Sub

This one working but numbers are not coming like show in my screenshot.

 

[Cubist]

Have you tried the code in #7? If you did, what didn't work?