Barons
Altın Üye
- Katılım
- 14 Mayıs 2005
- Mesajlar
- 967
- Excel Vers. ve Dili
- Microsoft Ofis 365
- Altın Üyelik Bitiş Tarihi
- 06-01-2040
merhaba
Dosya göndermeden halledilebilir düşüncesiyle sadece kodu gönderiyorum.
aşağıdaki kod run time 91 hatası veriyor.
uzun uğraşlardan sonra hatanın e sütunundan kaynaklandığını farkettim.Bu sütunda formul bulunmakta, formulsuz değeri direk yazınca hata ortadan kalkıyor ancak formul olmasıda şart.
Çözüm için yardımcı olacak arkadaşlara çok teşekkürler
kod aşağıdadır;
Worksheets("veritabani").Select
Range("e2:e60000").Find(ComboBox1.Value).Activate
ComboBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox35.Value = ActiveCell.Offset(0, 4).Value
ComboBox4.Value = ActiveCell.Offset(0, 6).Value
ComboBox5.Value = ActiveCell.Offset(0, 7).Value
ComboBox6.Value = ActiveCell.Offset(0, 8).Value
Dosya göndermeden halledilebilir düşüncesiyle sadece kodu gönderiyorum.
aşağıdaki kod run time 91 hatası veriyor.
uzun uğraşlardan sonra hatanın e sütunundan kaynaklandığını farkettim.Bu sütunda formul bulunmakta, formulsuz değeri direk yazınca hata ortadan kalkıyor ancak formul olmasıda şart.
Çözüm için yardımcı olacak arkadaşlara çok teşekkürler
kod aşağıdadır;
Worksheets("veritabani").Select
Range("e2:e60000").Find(ComboBox1.Value).Activate
ComboBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox35.Value = ActiveCell.Offset(0, 4).Value
ComboBox4.Value = ActiveCell.Offset(0, 6).Value
ComboBox5.Value = ActiveCell.Offset(0, 7).Value
ComboBox6.Value = ActiveCell.Offset(0, 8).Value