bir listede düşey ara yaptırmak

[hulyab]

Arkadaşlar,
excelde bir form yapmaya çalışıyorum. kullanıcı bu form üzerinden ürün özelliklerini girecek ve sistemde daha önce böyle bir ürün varsa o ürün kodunu gösterecek o ürün yoksa yeni bir ürün kodu verecek.
yeni ürün kodunu da otomatik sırayla vermeyi planlıyorum.
bunu yapmak için ilk etapta aşağıdaki gibi bir kod yazmam gerek.yardımcı olabilir misiniz.

G5 hücresini G2:G4 arasında arayıp eğer aynısı varsa "bu kod zaten var" mesajı verip o kodu K2 hücresine yazsın, aynısı yoksa "yeni kod" mesajı verip "doğrudoğru" şeklinde L2 hücresine yazsın

ekte çalışma sayfamı ekledim.xlsm uzantılı idi ama onu eklemedi.xlsx e dönüştürdüm
teşekkür ederim.

 

[Necdet]

Merhaba,

Kodları inceleyiniz, umarım doğru anlamışımdır.

Sub Bul()
 
    Dim c As Range
    
    Set c = Sheets("veri").Range("G2:G4").Find(Sheets("veri").Range("G5"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sheets("veri").Range("K2") = Range("G5")
        MsgBox Range("G5") & " Değeri Var....."
    Else
        MsgBox "Yeni Kod...."
        Sheets("veri").Range("K2") = "DoğruDoğru"
    End If
 
End Sub