generate a random unique ID?

[cloobless]

Hi, there.
Is there a way to generate a unique ID in for a row based on some adjacent cells?

1. If the row is unique from any other row, it gets a unique ID. What would make it unique is if just one of the cells' values is different from another row.
2. If the end of row doesn't yet have an ID (e.g. is newly added), it will get one (button press?).
3. New rows would get added all the time. It's very unlikely that a new row would have an exact match to a previous row.

dateshipped	datereceived	palletname	itemname	uniqueID
12/1/2017	12/1/2018	CITRUS	ORANGE	aba124
12/1/2017	12/1/2018	CITRUS	LIME	ggh392
2/1/2018	4/1/2018	VEGGIES	CUCUMBER	hhf356
2/1/2018	4/1/2018	VEGGIES	LIME	(generate)

<tbody>
</tbody>

I looked through the "random" function but have no idea of how to apply it here. Any ideas?
Thank you.

 

[DanteAmor]

Try this

Sub generate_ID()
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        If Cells(i, "E") = "" Then
            wcount = WorksheetFunction.CountIfs( _
                Range("A2:A" & lr), Cells(i, "A"), _
                Range("B2:B" & lr), Cells(i, "B"), _
                Range("C2:C" & lr), Cells(i, "C"), _
                Range("D2:D" & lr), Cells(i, "D"))
            If wcount = 1 Then
                'generete id
                For j = 1 To 3
                    a = WorksheetFunction.RandBetween(1, 26) + 96
                    cad = cad & Chr(a)
                Next
                For j = 1 To 3
                    a = WorksheetFunction.RandBetween(1, 10) + 47
                    cad = cad & Chr(a)
                Next
                Cells(i, "E").Value = cad
            End If
        End If
    Next


    MsgBox "Done"
End Sub

 

[cloobless]

Hello, Dante. This works superbly. I am very thankful that you were willing to share your time and expertise to help me solve this problem. Thank you, kindly. Best.

 

[DanteAmor]

im glad to help you, thanks for your kind comments.