data validation

[tamer42]

Merhabalar,

Ekli dosyda açıklamaya çalıştığım üzere;

Sheet1 sayfasında A2 hücresine Data doğrulama (data validation) uyguladım,

Bu hücreye List adlı sayfada stok_kodu_1 alanını doğrulama ölçütü olarak aldım.


Sheet1 sayfasında A2 hücresinde açılır kutudan seçtiğim değerin, List sayfasındaki stok_kodu_2 karşılığını B2 hücresine almak istiyorum.

Bu işlemi VLOOKUP formülüyle yapabiliyorum. stok_kodu_2 değerini formül olmaksızın getirmenin bir yolu var mıdır?
İyi çalışmalar.

 

[asi_kral]

Merhabalar,

Ekli dosyda açıklamaya çalıştığım üzere;

Sheet1 sayfasında A2 hücresine Data doğrulama (data validation) uyguladım,

Bu hücreye List adlı sayfada stok_kodu_1 alanını doğrulama ölçütü olarak aldım.


Sheet1 sayfasında A2 hücresinde açılır kutudan seçtiğim değerin, List sayfasındaki stok_kodu_2 karşılığını B2 hücresine almak istiyorum.

Bu işlemi VLOOKUP formülüyle yapabiliyorum. stok_kodu_2 değerini formül olmaksızın getirmenin bir yolu var mıdır?
İyi çalışmalar.

Merhaba
Sayfada Veri - Doğrulamayı göremedim ama ben genede yardımda bulunayım istedim.

Sayfanın kod bölümüne kopyalayın ve deneyin.

--------------------------------------------

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu : Veri Karşılığını Bul
'Coder By : asi_kral_1967
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Sheets("List").Range("A:A"), Target) > 0 Then
Cells(Target.Row, "B") = WorksheetFunction.VLookup(Target, Sheets("List"). _
Range("A:B"), 2, 0)
End If
End Sub

---------------------------------------------

Dosyanız ekte

 

[tamer42]

sN asi_kral çok yardımlarınız teşekkürler,

yalnız Sayfanın kod bölümüne kopyaladıktan sonra, kaydet dediğimde ekteki hata mesajını alıyorum.

tekrar yardımcı olurmusunuz.

iyi çalışmalar.

 

[asi_kral]

sN asi_kral çok yardımlarınız teşekkürler,

yalnız Sayfanın kod bölümüne kopyaladıktan sonra, kaydet dediğimde ekteki hata mesajını alıyorum.

tekrar yardımcı olurmusunuz.

iyi çalışmalar.

Merhaba
Dosyanızı makro içerebilen dosya şeklinde kayıt yapmalısınız_?
uzantısı .xlsm olmalı dosyanın
2007 ve üstü sürümlerde makroyu normal excel dosyasına kayıt yapamıyoruz bunun için makro içerebilen dosya şeklinde kayıt yapmalıyız.
Dosya eklemiştim dilerseniz onu kullanın.

 

[tamer42]

Sn asi_kral çok teşekkürler,

bir soru daha sormak istiyorum

Sheets("List"). Range("A:B")

ifadesini kısaltmak istiyordum,

Dim sh As Worksheet
sh = Sheets("List")
.......................

şeklinde tanımlama yaptım, fakat ekteki hata mesajını alıyorum.

teşekkürler, iyi çalışmalar.

 

[asi_kral]

Sn asi_kral çok teşekkürler,

bir soru daha sormak istiyorum

Sheets("List"). Range("A:B")

ifadesini kısaltmak istiyordum,

Dim sh As Worksheet
sh = Sheets("List")
.......................

şeklinde tanımlama yaptım, fakat ekteki hata mesajını alıyorum.

teşekkürler, iyi çalışmalar.

Merhaba

------------------------------

Set sh=Sheets("List")
sh.Range("A:B")

------------------------------

Şeklinde deneyin.