activex liste yardım

[keremxrx]

Arkadaşalar merhaba excel de bir maliyet formu düzenlemeye çalıştım ama bir yerde takıldım dosyayı gönderiyorum yardımcı olursanız sevinirim. doyayı buraya ekleyemedim link veriyorum şimdiden teşekkürler

https://drive.google.com/file/d/1Qhsd5A36Hd_KoIlUEOr2NAj42sG50G2p/view?usp=sharing

 

[çıtır]

Foruma hoş geldiniz.
Maliyet sayfası kodu olarak kopyalayınız.A sütunuda oluşaçak açılır liste isteğiniz karşılayaçakdır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [A5:A1000]) Is Nothing Then Exit Sub
son = Sheets("Malzeme").Cells(65335, "A").End(3).Row
If son = 0 Then Exit Sub
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:="=Malzeme!A2:A" & son
End Sub