jawaharprm
Member
Hi All,
The above code is Concatenate B&C columns is working fine, but it is not filldown till last row
code no 2
the above code is for find duplicate if the values are same it should not update and popup msg will display
but if i enter non duplicate & duplicate value it is updating in the next sheet and popup msg is show, can u pls help on same
Thanks
Jawahar
Code:
Dim lrow As Long
Dim cl As Range
Dim cel As Range
lrow = [MSPPData].Cells(Rows.Count, 1).End(xlUp).Row
Range("N2").FormulaR1C1 = "=RC[-12]&RC[-11]"
Range("N2:N & lrow").FillDown
The above code is Concatenate B&C columns is working fine, but it is not filldown till last row
code no 2
Code:
'finding duplicate values
For Each cl In MSPPData.Range("N2", Range("N" & Rows.Count).End(xlUp))
If Application.CountIf(Range("N:N"), cl.Value) > 1 Then
MsgBox "Hi " & Application.UserName & " - Duplicate found, please check the list"
Exit Sub
End If
Next cl
the above code is for find duplicate if the values are same it should not update and popup msg will display
but if i enter non duplicate & duplicate value it is updating in the next sheet and popup msg is show, can u pls help on same
Thanks
Jawahar