Sorgu için arama sonuçları: xlValidateList

Hocam herhangi bir yere tıkladığımda bu şekilde bir hata alıyorum Debug dediğimde ise aşağıdaki kod sarı gözüküyor. Acaba referanceden birşeyler mi seçmek gerekli? Set Dizi = VBA.CreateObject("System.Collections.ArrayList") Kodu Sayfa1 (Kanepe Giriş) e ekliyorum.

...A sütunundaki listeyi silebilirsiniz. Sub Makro1() say = Cells(Cells.Rows.Count, "A").End(3).Row For i = 1 To say yaz = yaz & Range("A" & i).Value & "," Next Range("G1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, Formula1:=yaz End With End Sub

...Veri(X, 4) End If Next If Dizi.Count > 0 Then Dizi.Sort .Validation.Add Type:=xlValidateList, Formula1:=Join(Dizi.ToArray, ",") End If If Not Dizi.Contains(.Value) Then .ClearContents End With 10 Set S1 =...

Hocam bunu ekledim fakat Worksheet_SelectionChange nerede tetikleniyor çözümleyemedim. Oradaki virgüllü listeyi aşağıdaki kullanıcı tanımlı fonksiyon ile oluşturuyorum. "D" sütunumda ürünler var veri doğrulama ile o ürünü seçtiğimde "E" Sütunu için aşağıdaki kod çalışıp operasyonları virgül ile...

...Sub .Validation.Delete d = Split(Cells(.Row, "E"), ",") For i = 0 To UBound(d) ReDim Preserve dizi(s) dizi(s) = d(i) s = s + 1 Next i .Validation.Add Type:=xlValidateList, Formula1:=Join(dizi, ",") End With...

Daha önce forumda benzer örnekler paylaşıldı. İnceleyiniz. https://www.excel.web.tr/search/245407/?q=xlValidateList&o=date

..."Mehmet", "Ali", "Veli") t = Join(v, ",") With Range("A1").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=t .IgnoreBlank = True .InCellDropdown = True .InputTitle =...

kodu düzenledim ve tam istediğim şekilde çalıştı. yardımlarınız için çok teşekkür ederim.

...kolon numarası 5 olduğundan bu Case işlem görür Case 5 Target.Validation.Delete Target.Validation.Add xlValidateList, Formula1:="Bekliyor, Belge Talebi" 'Case 6 - F sütunu seçilmişse onun kolon numarası 6 olduğundan bu Case işlem görür Case 6...

...olmuyor. Yardımcı olabilirmisiniz. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, [E3:E5000]) Is Nothing Then Exit Sub Target.Validation.Delete Target.Validation.Add xlValidateList, Formula1:="Bekliyor, Belge Talebi"...

...göre uyarlayıp, dener misiniz? Sub Makro1() Dim metin As String metin = "=" & Range("A1") With Range("A3").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=metin End With End Sub

Merhaba Arkadaşlar, Sub VeriDogrulama() With Range("Z2").Validation .Add Type:=xlValidateList .Range([X1].Text).Value End With End SubX1 hücresinde W1:W210 yazıyor. Z2 hücresinde VBA ile VeriDoğrulama yapmak istiyorum. Fonksiyonla yapıyorum. Bu haliyle 1004 hatası...

kardeşim yardımcı olduğun için tşk ederim korkan beyin uyarladığı daha okunaklı oldu onu uyarladım sağol bilgi paylaşımın için

...a = sh.[A2:H2].Value For y = 1 To UBound(a, 2) dc(a(1, y)) = "" Next y Target.Validation.Delete Target.Validation.Add xlValidateList, Formula1:=Join(dc.Keys, ",") End If End If End Sub

...With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(ary, ",") .IgnoreBlank = True .InCellDropdown = True...

...d.exists(deg) Then d.Add deg, Nothing End If Next i .Validation.Add Type:=xlValidateList, Formula1:=Join(d.keys, ",") Set d = Nothing End If If .Column = 4 Then Cells(.Row, "E").Resize(1, 2) =...

...< 2 Then Exit Sub If Target.Column = 1 Then With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Personel" .IgnoreBlank = True .InCellDropdown =...

...satır boş ise G sütununda liste olmasın. Anladığım doğruysa aşağıdaki kodu istediğiniz olayla tetikleyebilirsiniz. Sub VeriDoğrula() Son = Range("J2").End(xlDown).Row Range("G:G").Validation.Delete Range("G3:G" & Son).Validation.Add xlValidateList, Formula1:="Hazır,Bekliyor" End Sub

...1) = Application.Transpose(dic.keys) SMGBA.Range("B1").Validation.Delete SMGBA.Range("B1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=" & SO.Name & "!$A$1:$A$" & SO.Cells(Rows.Count, "A").End(3).Row ''''''' aranan =...

...End If Next Sh With Sheets("Bildirge_Giriş_Bilgileri").Range("C8").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Syf .IgnoreBlank = True .InCellDropdown = True...