worksheetFunction sınıfının Vlookup özelliği alınamıyor

[Açılın ben mühendisim]

Merhaba Arkadaşlar,

Yapmak istediğim şey, textbox1 boş ise (textbox 2 dolu) düşeyara ile textbox3 bulmak.
Eğer ki textbox1 dolu ise yine düşeyara textbox2-3 bulmak istiyorum.

Excel ön yüzünde düşeyara ile ayrı ayrı yapabiliyorum. Kullanıcı için tamamı userforma yazdırmak istiyorum.

Yardımcı olursanız çok sevinirim.

Şimdiden teşekkürler


Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox2.Value, Range("c1:d10"), 2, False)
Else
TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox1.Value, Range("b1:d10"), 3, False)
TextBox2.Value = Application.WorksheetFunction.VLookup(TextBox1.Value, Range("b1:c10"), 2, False)
End If


End Sub

 

[Ömer BARAN]

Merhaba.

Sanırım sorunuzu, ( cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda)
ekleyeceğiniz bir örnek belge ile desteklemenizde yarar var.

Cevap yazacak kişiden; bir belge hazırlayıp, bu belgeye veriler yazmasını, belgeye bir userform eklemesini ve
sorunu/sorun olabilecek şeyi tahmin etmesini istemiş oluyorsunuz.

Sorunuzu örnek belge ile desteklemeniz sonuca ulaşmanızı kolaylaştıracaktır diye düşünüyorum.
.

 

[Açılın ben mühendisim]

http://s9.dosya.tc/server/0r4krb/PRB.rar.html

Örnek bir dosya linke ekledim. İnceleyebilirseniz çok sevinirim

 

[Açılın ben mühendisim]

http://s9.dosya.tc/server/0r4krb/PRB.rar.html

Dosyayı linke ekledim.

Yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Tekrar merhaba.

Else satırından önceki satırda arama yapacağınız alan C sütunu SAYI, bu nedenle
0 + TextBox2.Value şeklinde değişikik yaparak yazılan sayısal karakterlerin
(adı üstünde nesne TextBox, yani metin kutusu, içeriği de sayı değil METİN)
SAYI gibi işleme tabi tutulması için bu değişiklik yeterli olacaktır.

İlave not: Bence forumda araştırma yaparak, TextBox2 için;
sayısal karakter yerine harf/noktalama işareti gibi karakterlerin yazılmasını engelleyici
(formu kullanacak kişiyi sayı yazmaya zorlamak maksatıyla) birşeyler yapmaya çalışmalısınız.
.

 

[Açılın ben mühendisim]

Ömer Bey, çok çok teşekkür ederim. Çok minnettar kaldım

 

[Açılın ben mühendisim]

Bir şey daha sormak istiyorum.
İlk aramadan sonra yazıları silerken çok fazla zaman kaybediyorum. Çözümleme tuşuna çift tıkladığımda userform üzerindeki verilerin silinmesi mümkün müdür?

 

[Emir Hüseyin Çoban]

Bir şey daha sormak istiyorum.
İlk aramadan sonra yazıları silerken çok fazla zaman kaybediyorum. Çözümleme tuşuna çift tıkladığımda userform üzerindeki verilerin silinmesi mümkün müdür?

. . .

Butonun click olayında kodlar olduğu için çift clik kısmına geçemez.

Temizleme işlemi için ayrı bir buton kullanmalısınız.

Textbox1=""
Textbox2="" gibi nesneleri temizleyebilirsiniz.

. . .