Sorgu için arama sonuçları: xlValidateList

Sub liste() Range("G6:G500").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="Matematik, Türkçe, Fizik" End With End Sub makro kaydet ile oluştuğum kod. G6:G500 seçili kalıyor...

...Exit Sub If Target.Count > 1 Then Exit Sub With ActiveSheet .Range("A3").Validation.Delete If Range("A1") = "Elma" Then .Range("A3") = "" .Range("A3").Validation.Add xlValidateList, Formula1:="KG,ADET" MsgBox "A3 Hücresinden seçim yapınız." Else .Range("A3") = "DEMET" End If End With...

...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

Teşekkür Ederim Sn. VeyselEmre

Sayfanın kod modülüne yerleştirin; Private Sub Worksheet_Activate() For Each sh In Worksheets shList = shList & "," & sh.Name Next sh With Range("A1").Validation .Delete .Add Type:=xlValidateList, Formula1:=Mid(shList, 2) End With End Sub

çok teşekkür ederim

...With Target.Offset(, 2) .ClearContents With .Validation .Delete .Add Type:=xlValidateList, Formula1:=Dic(Target.Value) End With End With End If End Sub Sub yukle() Set Dic =...

teşekkür ederim. Sorunum çözüldü. Bununla alakalı olarak kodlama kısmında hangi satılarda değişiklik yaparsam hücre değişkliği yapabilirim. Yukarıda belirttiğiniz kodlama farklı bir hücreye atamak istersem hangi harfleri değiştirmem gerek. Öğrenmek amacıyla soruyorum

...With Range("I" & Target.Row) .Validation.Delete .Validation.Add Type:=xlValidateList, Formula1:=Join(Dizi, ",") End With End If Case 9 Set Kayit = Baglanti.Execute("Select F3 From [Şube$] Where F1 = '" &...

Hocam Merhaba olmuş ama unvanla şube ters çıkıyor unvan kısmında şube isimleri şube kısmında unvan çıkıyor

...With Range("A" & Target.Row) .Validation.Delete .Validation.Add Type:=xlValidateList, Formula1:=Join(Dizi, ",") End With End If Set Kayit = Nothing Set Baglanti = Nothing End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim Veri...

Şu satırda hata veriyor Set Dizi_A = CreateObject("System.Collections.ArrayList")

Gönderdiğiniz mail ekinde dosyayı açtım sadece ilçe kısmında ilçeler gözüküyor. İlçe seçtikten sonra unvan kısmında bir şey çıkmıyor.

...With Range("B" & Target.Row) .Validation.Delete If Dizi_B.Count > 0 Then .Validation.Add Type:=xlValidateList, Formula1:=Join(Dizi_B.ToArray, ",") End With Case 2 Son = S2.Cells(Rows.Count, 3).End(3).Row...

...uyarlayınız. Private Sub Worksheet_Change(ByVal Target As Range) If [a2] = "Ali" Then With [a1].Validation .Delete .Add Type:=xlValidateList, Formula1:="=$B$1:$B$7" End With End If If [a2] = "Veli" Then With [a1].Validation .Delete .Add Type:=xlValidateList, Formula1:="=$C$1:$C$7" End With...

...For i = 2 To 91 x = x & "," & Application.WorksheetFunction.Small(s2.Range("$A$2:$A$91"), i - 1) Next i With s1.Range("A1").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x End With End Sub yazarak deneyin.

...& i), Cells(i, 1)) If Cells(i, 1) <> "" And n = 1 Then x = x & "," & Cells(i, 1) End If Next i With Range("B1:B10").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x End With End Sub

...x = Cells(i, "A") Else x = x & "," & Cells(i, "A") End If Next i With Range("B1:B10").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x End With End Sub

...Top:=True, Left:=False, Bottom:=False, Right:=False With [B1].Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=MODEL_İSİMLERİ" .IgnoreBlank = True .InCellDropdown = True...

...For i = 1 To son ReDim Preserve dizi(i) dizi(i) = Sayfa2.Cells(i + 1, "b") & "-" & Sayfa2.Cells(i + 1, "d") Next With Sayfa1.Range("B2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(dizi, ",") End With...