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
