Create a counter related to a word

[rcprito]

Hello guys! Can you help me?

I want to create a counter related to a word in a combobox that would give me the word writen in the combobox plus a sequencial number.

Imagine:

Combobox1:

OP5000
OX200
QR4000

So, in excell would appear me in data if the first of OP5000: OP5000-1

Then if I choose OX200 would appear me in data excel OX200-1

Then If I choose OP500 again it would appear me in data OP5000-2

.

I hope I was clearly enough!!!
Thanks for helping me guys!
Cheers!

[rcprito]

can anyone help me on this?

[Sniper]

Is this what you wanted?

[rcprito]

Well yes. But I need that in vb code. I'm trying to do that. But it's in the beginning.

The programm is only counting and isn't writing the name with the action.

Dim j, counter As Integer
Dim coluna As Long ' introduzir a coluna de ordem de extrusão

coluna = Folha2.Range("G" & Rows.Count).End(xlUp).Row

counter = 1

For j = 2 To coluna

If ComboBox3.Value = Folha2.Range("G" & j) Then
counter = counter + 1
End If

Next
Folha2.Cells(k + 1, 10) = counter

Can u give one idea?

Thanks for helping me

[Sniper]

Is this what you need?

[rcprito]

No!

The first one you put it was the right one. Let me explain it better.

image.png

When I choose an "ordem de extrusão" in the combobox, I would like it to appear in the data excel the "ordem de extrusão" plus the number of that "ordem the extrusão" in the "código bobine" just like you did in that excel file. The problem is that I cannot write it in VB.

Thanks for your help!

[Sniper]

I see, is the column: código bobine a manual field? do you add 1, 2, 3 etc? Do you want to select a cell Column G ie. G5 and then when you select an item from the combobox it will replace the selected cell value = G + J?

[rcprito]

no no, "codigo bobine" isn't a manual field. It should be automatic!

Exactly. When you choose in ComboBox, one item from column G, in Column J it should appear the G + (the sequencial number of G).

Did you get it?

Thanks

[Sniper]

Ok i think I understand, look at example.

[Sniper]

here is better one

[rcprito]

yeah that's IT. but how do you write that in vba code? because it doesn't work for me..

ty

[Sniper]

Its already done in vba, just go and look at the code on the combo box

[rcprito]

OK, it's done!

Thanks a lot for your help!