combobox tan veriyi silince hata alıyorum

[morphey]

Merhaba ;
Combobax5 isimli listeden veriyi delete ile silince

TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("=$B$1:$C$28"), 2, 0)

bu bölümü gösteriyor ben düşey arayı uygulamaya çalışıyorum oldu ancak veriyi silince hata alıyorum.
Teşekkürler

 

[asi_kral]

Merhaba
Hata alma sebebiniz Combobox'un tetiklenmesinde kod çalıştığı için aranan değeri bulamamasından kaynaklanıyor çok büyük bir ihtimalle

if Combobox5<>"" or _
worksheetfunction.countif(asi.range("B1:B28"),combobox5)>0 then
TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("$B$1:$C$28"), 2, 0)
end if

şeklinde deneyin.

 

[morphey]

Hocam ilginiz ve cevabınız için teşekkürler uyguluyorum ancak tümden bozuluyor. Şimdi bendeki yazan aynen böyle

Private Sub ComboBox5_Change()
Dim asi As Worksheet, kral As Worksheet
Set asi = Sheets("Veri Tabanı"): Set kral = Sheets("Veri Tabanı")
TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("=B1:C28"), 2, 0)

If ComboBox5.Value <> "" Then
ComboBox6.Visible = True
TextBox21.Visible = True
End If
End Sub

verdiğiniz kodu tam olarak nereye uygulayacağım bir türlü olmadı

 

[asi_kral]

Hocam ilginiz ve cevabınız için teşekkürler uyguluyorum ancak tümden bozuluyor. Şimdi bendeki yazan aynen böyle

Private Sub ComboBox5_Change()
Dim asi As Worksheet, kral As Worksheet
Set asi = Sheets("Veri Tabanı"): Set kral = Sheets("Veri Tabanı")
TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("=B1:C28"), 2, 0)

If ComboBox5.Value <> "" Then
ComboBox6.Visible = True
TextBox21.Visible = True
End If
End Sub

verdiğiniz kodu tam olarak nereye uygulayacağım bir türlü olmadı

Merhaba

Private Sub ComboBox5_Change()
Dim asi As Worksheet, kral As Worksheet
Set asi = Sheets("Veri Tabanı")
if Combobox5<>"" or _
worksheetfunction.countif(asi.range("B1:B28"),combobox5)>0 then
TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("$B$1:$C$28"), 2, 0)
end if
If ComboBox5.Value <> "" Then
ComboBox6.Visible = True
TextBox21.Visible = True
End If
End Sub

Bu şekilde dener misiniz.

 

[morphey]

Asi Kral hocam;
Ne tesadüftürki ben bu kodu yine sizin bir başkasına yardım ettiğiniz bir sayfadan kendime uyarladım oraya tekrar baktım ordada bu hatayı veriyormuş meğerse
Hocam maalesef yine yaptı silince bu satırı gösteriyor debug diyince

TextBox20 = WorksheetFunction.VLookup(ComboBox5, asi.Range("$B$1:$C$28"), 2, 0)

 

[morphey]

Hocam bir düşey ara formülünü nasıl uygulayacağımı söylerseniz buda işimi çözer ben uyarlayibiliyorum en azından İlla böyle olmasına gerek yokki yada bir örnek koyuyum ben isterseniz. Sizide uğraştırıyorum özür dilerim.

 

[asi_kral]

Hocam bir düşey ara formülünü nasıl uygulayacağımı söylerseniz buda işimi çözer ben uyarlayibiliyorum en azından İlla böyle olmasına gerek yokki yada bir örnek koyuyum ben isterseniz. Sizide uğraştırıyorum özür dilerim.

Diğer dosyada hata veriyor ne demek anlamadım. O konuda kod çalışmamış mı_?
Çalışmamışsa neden benim bilgim yok. Yada alternatif başka kod mu vermişim.

Diğer konuya gelince dosyanızı ekleyin bir bakayım ne istediğinizi bu şekilde anlamam zor.

 

[morphey]

Hocam siz bir konuda birisine yardım etmişiniz ben o dosyayı indirdim ordan çektim uyarladım kendi dosyama o dosyayı tekrar uplouad ediyim hatırlarsınız sorunu ordanda çözseniz yine yeterli hemen ekliyorum.

 

[asi_kral]

Hocam siz bir konuda birisine yardım etmişiniz ben o dosyayı indirdim ordan çektim uyarladım kendi dosyama o dosyayı tekrar uplouad ediyim hatırlarsınız sorunu ordanda çözseniz yine yeterli hemen ekliyorum.

Combobox2'yi düzenledim deneyin.

Private Sub ComboBox2_Change()
Dim asi As Worksheet, kral As Worksheet
Set asi = Sheets("Sayfa1"): Set kral = Sheets("Sayfa3")
If ComboBox2 <> "" And _
WorksheetFunction.CountIf(asi.Range("C:C"), ComboBox2) > 0 Then
TextBox1 = WorksheetFunction.VLookup(ComboBox2, asi.Range("C:D"), 2, 0)
TextBox17 = WorksheetFunction.VLookup(ComboBox2, kral.Range("B:C"), 2, 0)
End If
End Sub

 

[morphey]

Hocam eve geçtim sabah daireden ilk işim denemek olacak olmasa bile valla hakkınız çok geçti bana emeklerinizin farkıdayım sabah ilk işim size dönmek olacak tekrar tekrar teşekkür ediyorum ilginize.

 

[morphey]

Asi Kral üstadım;
Çok güzel olmuş ellerinize sağlık. Sizin gibi üstatlara keşke bizim de yapacak bir şeyimiz olsa. Artık Rab'bime havale

 

[asi_kral]

Asi Kral üstadım;
Çok güzel olmuş ellerinize sağlık. Sizin gibi üstatlara keşke bizim de yapacak bir şeyimiz olsa. Artık Rab'bime havale

Kolay Gelsin.