Veri Doğrulama

[Ridan]

İyi akşamlar..

Veri doğrulama yöntemi ile alınacak bu kod ve metinler, veri doğrulamaya tıkladığımızda gelecek. Ancak, seçim yapıldığında hücrede sadece kod görünsün.

H2.1 Sarı
H3.5 Mavi
H1.2 Yeşil
H1.3 Kırmızı
H4.1 Siyah
.......
http://s5.dosya.tc/server3/hiehmv/veri_dogrulama.xlsx.html

 

[turist]

Sayfa Koduna aşağıdaki kodu yazıp, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Target.Value = Left(Target, 4)
End If
End Sub

 

[Ridan]

kod sürekli çalışıyor gözüküyor... sayfa üzerinde işlem yapamıyorum.

Kapatmak istediğimde Microsoft Excel programından çıkılamıyor hatası alıyorum.

 

[sakman26]

selam,
A kolonundaki Kodlar ve Anlamları,
B kolonunda Kodlar ve C kolonunda ise Anlamları (Renkler) olarak yazdırıldı.
G2:G11 aralığına ise Veri doğrulama ile açılır liste yapıldı.
Aşağıdaki kodlar ile G2:G11 aralığında açılır listeden Kod ve Anlamını seçtiğinizde , seçtiğiniz hücrede sadece kod kalmaktadır. Sağ yanındaki hücreye ise Renk ibaresi gelmektedir.

Eki incelersiniz...Sayfada gerekli açıklama yapıldı.

kodlar :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([g2:g11], Target) Is Nothing Then
   Application.EnableEvents = False
   On Error Resume Next
   Target = [liste].Find(Target).Offset(, 1).Value
   Target.Offset(, 1) = [liste].Find(Target).Offset(, 2).Value
   Application.EnableEvents = True
  End If
End Sub

link : http://s4.dosya.tc/server3/0r90x7/VD_Aktarim.rar.html

 

[Ridan]

teşekkürler sayın Sakman

 

[sakman26]

rica ediyorum..
kolay gelsin..