demirbaş_1

[muhammethezer]

Merhaba , Formdan almış olduğum bu proğramı kendim kullanabilmek için biraz değişiklik yaptım fakat hammadde türünden seçim yaptığımda "Bu ad geçerli değil" diye bir hata mesajı çıkıyor . Yardımcı olabilecek arkadaşlara çok teşekkür ederim.

 

[Metin Karaağaç]

Private Sub cmb_tur_Change()
cmb_demno = Empty
Dim bul As Range, ilk, son As Range
Sheets("datalar").Select
For Each bul In Worksheets("datalar").Range("f2:az2")
If bul.Value = cmb_tur.Value Then
bul(2, 1).Activate
Set ilk = ActiveCell
bul.End(xlDown).Select
Set son = ActiveCell
Range(ilk, son).Select
ActiveWorkbook.Names.Add Name:=bul.Value, RefersToR1C1:=Selection
cmb_demno.RowSource = bul.Value
End If
Next
End Sub


f2:az2 yazan yeri f2,az2 olarak değiştirdim, çalıştı.
Makrolardan hiç anlamam ama bilmem işinize yararmı?

 

[muhammethezer]

Merhaba , sayın ACEMİ arkadaşıma teşekkür ederim .yapmış olduğunuz değişiklik hammadde türünden seçim yaptığımda bir alttaki ComboBoxta veriliern çıkmasını engelliyor . Yardımcı olabilecek arkadaşlara çok teşekkür ederim.