Sorgu için arama sonuçları: xlValidateList

...doğrulama listesi uygula With Target.Validation .Delete ' Önceki doğrulama kurallarını sil .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=validationList ' Yeni doğrulama listesi ekle...

...myList içierindeki elaman sayısı fazla olunca sıkıntı oluşturuyor, elaman sayısı 30' u geçince bu sıkıntıyı oluşturuyor. .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:=Join(MyList, ",") her şey için teşekkürler, iyi çalışmalar.

...= "Oval" MyList(2) = "Emerald" MyList(3) = "Pear" c = Target.Column If c = 6 Or c = 11 Then With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:=Join(MyList, ",") End With End If End Sub

Ömer bey destekleriniz için teşekkür ederim kod çalışıyor ancak arama yaptıktan sonra veri doğrulama hücresini tekrar açtığımda sayfa1 de yer alan tüm verileri açılır kutuda gösteriyor. Onun dışında istediğim şekilde kodlar çalışıyor. Veri doğrulamanın sadece a sütunu için geçerli olması...

...Range("A1") & " ifadesi içeren bir satır bulunamadı": Exit Sub With ActiveSheet.Range("A2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Liste .IgnoreBlank = True .InCellDropdown = True .InputTitle =...

...Sheets("Sayfa3").Select Columns("C:C").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Sayfa2!$C:$C" .IgnoreBlank = True .InCellDropdown = True...

hocam merhaba bunu açılır user form şeklinde nasıl yapabiliriz?

Muzaffer Hocam Çok teşekkürler emeğinize sağlık!

Merhaba. Sht.Range("B5, D5").Validation.Delete Sht.Range("B5, D5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",") islem = 22 Sht.Range("B5, D5").Value = Arr(1)

...mümkün müdür? deteğiniz için şimdiden teşekkürler, Sht.Cells(5, 2).Validation.Delete Sht.Cells(5, 2).Validation.Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",") islem = 22 Sht.Cells(5, 2).Value = Arr(1)...

..."B") Else Liste = Liste & ", " & syfPersonel.Cells(Bak, "B") End If End If Next With ThisWorkbook.Sheets("ÖZET").Range("AN2") .Validation.Delete .Validation.Add xlValidateList, Formula1:=Liste End With End Sub

...alırken C sütununda ÇALIŞIYOR olanları listeye eklesin ss = ThisWorkbook.Sheets("PERSONEL").Cells(Rows.Count, 1).End(xlUp).Row ThisWorkbook.Sheets("ÖZET").Range("AN2").Validation.Delete ThisWorkbook.Sheets("ÖZET").Range("AN2").Validation.Add xlValidateList...

Sayın Dede oldu. Teşekkür ederim

...t = Join(Dizi, ",") Sheets("Sayfa1").Range("H1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=t .IgnoreBlank = True .InCellDropdown = True .InputTitle...

Yusuf Bey Merhaba, Son makroyu ekteki dosyaya ekliyorum lakin hata alıyorum. Ne yaptıysam çözülmedi. son bir kez bakabilir misiniz? Teşekkürler

....Delete If Target = "" Then GoTo son If Target = "FLANŞLI İSKELE" Then .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=flanş" ElseIf Target = "GÜVENLİK İSKELE" Then .Add...

...rs = con.Execute(sorgu) ary = Application.Transpose(Application.Transpose(rs.getrows)) With [H3].Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(ary, ",") .IgnoreBlank = True .InCellDropdown = True...

...= 1 Range("H" & sonsat + 1) = "Aylık Vade" With Range("H" & sonsat + 2).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Sayfa2!$A$3:$A$14" .IgnoreBlank = True .InCellDropdown = True...

...To son ReDim Preserve dizi(0 To i) dizi(i - 1) = i Next With Target.Offset(0, 1).Validation .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(dizi, ",") .IgnoreBlank = True .InCellDropdown =...

...= Application.Transpose(Application.Transpose(rs.getrows)) With Target.Offset(0, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(ary, ",") .IgnoreBlank = True .InCellDropdown =...