Merhaba,
Kendime userform uygulamalı bir çalışma hazırlamaktayım. Buna göre aşağıdaki kod uygulaması ile combobox2 de seçim yaptığım zaman combobox3 düşeyara ile dolmakta. Ancak şöylesi bir problemle karşılaşmaktayım. combobox2 de örneğin 1100000000 ya da 1234500000 seçtiğim zaman sorun yok, ancak 6666666666 ya da 9999999999 u seçtiğim zaman hata almaktayım. hata adı overflow şeklinde. Bu hata Dim Barkod As Long ile mi ilgilidir. Kodu nasıl işler yapabilirim.
Private Sub ComboBox2_Change()
Dim Barkod As Long
Son_Dolu_Satir = Sheets("CARİ").Range("A1048576").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Barkod = ComboBox2.Value
ComboBox3.Text = Application.WorksheetFunction.VLookup(Barkod, Sheets("CARİ").Range("B:C"), 2, 0)
End Sub
Kendime userform uygulamalı bir çalışma hazırlamaktayım. Buna göre aşağıdaki kod uygulaması ile combobox2 de seçim yaptığım zaman combobox3 düşeyara ile dolmakta. Ancak şöylesi bir problemle karşılaşmaktayım. combobox2 de örneğin 1100000000 ya da 1234500000 seçtiğim zaman sorun yok, ancak 6666666666 ya da 9999999999 u seçtiğim zaman hata almaktayım. hata adı overflow şeklinde. Bu hata Dim Barkod As Long ile mi ilgilidir. Kodu nasıl işler yapabilirim.
VERGİ / TC NO | FİRMA ÜNVANI |
1100000000 | Orhan Yanık |
1200000000 | Yaşar Uysal |
1230000000 | Erkan Yaramaz |
1234000000 | Esme A.Ş. |
1234500000 | Karel A.Ş. |
6666666666 | Yataş A.Ş. |
7777777777 | Erçal Ltd. Şti |
8888888888 | Limit Ltd. şti. |
9999999999 | Orallar Ticaret |
Private Sub ComboBox2_Change()
Dim Barkod As Long
Son_Dolu_Satir = Sheets("CARİ").Range("A1048576").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Barkod = ComboBox2.Value
ComboBox3.Text = Application.WorksheetFunction.VLookup(Barkod, Sheets("CARİ").Range("B:C"), 2, 0)
End Sub
