activex liste yardım

Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
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.
Kod:
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
 
Son düzenleme:
Üst