Sorgu için arama sonuçları: xlValidateList

...sorun ne olabilir. kod şu şekilde Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'updateby Extendoffice 20160530 On Error GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Then xZoom = 150 LZoom: ActiveWindow.Zoom = xZoom...

...hayırlı çalışmalar diliyorum. Sub İlçelerVeriDoğrulama() With Sheets("ASLAN").Range("F7:F56").Validation .Delete .Add Type:=xlValidateList, Formula1:="=MAHALLELER!$A$2:$A$26" .ShowError = False [F7] = "ALTINDAĞ" End With With Sheets("ASLAN").Range("G7:g56").Validation...

#1 Mesajınızdaki Çözüm: Sub İlçelerVeriDoğrulama() With Sheets("ASLAN").Range("F7:F56").Validation .Delete .Add Type:=xlValidateList, Formula1:="=MAHALLELER!$A$1:$A$25" .ShowError = False [F7] = "ALTINDAĞ" End With With Sheets("ASLAN").Range("G7:g56").Validation .Delete...

...İZLEME").Cells(65536, "J").End(xlUp).Row + 1 Range("J" & sah2).Select With Range("J" & sah2).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:=Sheets("İEP BİLGİLERİ").Range("I100:I101")...

...Sub İlçelerVeriDoğrulama() Sheets(1).Range("F7").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$N$6:$N$13" .IgnoreBlank = True .InCellDropdown = True...

elinize sağlık tam istediğim gibi (y)(y)(y)(y)(y)(y)(y)(y)

...Set sd = CreateObject("Scripting.Dictionary") For Each yyy In .Range("A1:A3, A6:A7") sd(yyy.Value) = "" Next yyy .Range("E1").Validation.Delete .Range("E1").Validation.Add xlValidateList, Formula1:=Join(sd.keys, ",") End With Set sd = Nothing: Set yyy = Nothing End Sub

...Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo SafeExit: If Target.Validation.Type = xlValidateList Then ActiveWindow.Zoom = 125 Exit Sub End If SafeExit: ActiveWindow.Zoom = 40 End Sub Kodlardaki 125 ve 40...

...ReDim Preserve arr(1 To say) For c = 1 To UBound(arr) arr(say) = Cells(i, "C").Value Next c End If Next i Range("B4").Validation.Delete Range("B4").Validation.Add Type:=xlValidateList, Formula1:=Join(arr, ",") End Sub

Arkadaşlar kolay gelsin, bu kodun daha kısa olanı veya hızlı çalışanı varmıdır çok fazla veri olunca çok kasıyor, şimdiden teşekkürler..

...Target As Range) If Target.Column = 4 Then Target.Offset(, 1).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="İHRACAT,İTHALAT" .IgnoreBlank = False .InCellDropdown...

Merhaba; Örnekte 2. sayfadaki verileri 1. sayfadaki bir hücreye liste olarak gelmesi gerekmekte. Ayrıca hücrenin içine yazı yazılınca öneri vermeli hatta tam isim tamamlanmadan başka hücreye geçildiğinde o isim kalmalı hücrede Teşekkürler

..."i", "I")) End If Next Dizi.Sort With Range("D2:D110") .Validation.Delete .Validation.Add Type:=xlValidateList, Formula1:=Join(Dizi.ToArray, ",") ---bu bölümde takılıyor--- End With End Sub...

...myarray If WorksheetFunction.CountIf(Range("a1:a10"), deger) < 1 Then veri1 = veri1 & ";" & deger Next veri = veri1 'veri = "b;c;e" şeklinde olacak Range("a1:a10").Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & veri1 End If...

...Örneğin k = Selection.Count + 100 Range("$A$2:$A$" & k).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Sheet2!R2C1:R" & SutunSonu & "C1" .IgnoreBlank = True...

Private Sub Worksheet_Change(ByVal Target As Range) With [H6].Validation .Delete .Add Type:=xlValidateList, Formula1:="=$Z$4:Z" & [Z6500].End(3).RowEnd With End Sub Makroda koyu ve italik olan kısımı veri doğrulama açılır liste yaparken liste veri olmayan yerlere kadar uzamasın diye...

...Names.Add Name:="aciklama", RefersTo:="=data!$F$2:$F$15" With Range("Z4:Z500").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=aciklama" .IgnoreBlank = True .InCellDropdown = True .ErrorMessage = "hata uyarısı" .ShowError = True End With End Sub...

...seçeneğiyle bu işlemi kaydettiğim zaman, aşağıdaki gibi kaydediyor : With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Sol; Sağ" Makroyu çalıştırdığımda hücrede seçilebilen metnin ayrı ayrı "Sağ" ve...

...ThisWorkbook kod sayfasina: Private Sub workbook3_open() With Range("g31").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="C24,C30,GL 24h, GL 28c, GL 32c, GL 28h, GL 32h, GL 24c, GL 36c, GL...

....ShowError = False End With boyler = deger*5 Case "2" With boyler.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="300;400;500" .IgnoreBlank = True .InCellDropdown = True...