Sorgu için arama sonuçları: xlValidateList

Sayın Ömer, Ekte vb tarafına belirttiğiniz kodu ekledim.Ama hatalı eklemiş olabilirim zira çalışmadı. Dosya üzerinde gerekli düzelmeyi yapıp, ekli olarak yollayabilirseniz çok sevinirim. Saygılarımla,

...i = 3 To Ss.Cells(Rows.Count, "B").End(xlUp).Row deg = Ss.Cells(i, "B") If Not d.exists(deg) Then d.Add deg, Nothing End If Next i Range("C1").Validation.Delete Range("C1").Validation.Add Type:=xlValidateList, Formula1:=Join(d.keys, ",")...

...End If Next i Range("A1").Validation.Delete If dc.Count > 0 Then Range("A1").Validation.Add xlValidateList, Formula1:=Join(dc.keys, ",") End If End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) =...

istediğim gibi oldu çok çok teşekkür ederim ilginiz için :)

Merhaba. Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$" & worksheets("sayfa2").cells(rows.count,"A").end(xlup).row End Sub

Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20" End Sub Bu kodu cok güzel çalışıyor ama mesala sayfa2 deki verilerden a1 ile a 20 arasını son 5 veriyi silince bu sefer veri doğrulama da boşluklar oluyor bu...

...bey şu oldu ama sayfa 2 deki a1 den 20 ye olan verileriden son 5 sini silsem mesala diğer tarafda veri doğrulamada boşluk oluşuyor o boşlugu nasıl kalırabiliriz Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20"...

çok güzel oldu tşk ederim peki diyelim sayfa2 de ki a1 den a 20 ye kadar olan kısımda verilerin son 5ini sildim o zaman veri doğrulamada boşluk oluyor o boşluğu kaldırmamız mümkünmü acaba

Bu şekilde deneyiniz. Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20" End Sub

Üstad kod harika çalışıyor çok teşekkürler. Sadece alttaki kısmın bitiş hücresinde revizyon yapabilir miyiz Set Rng = Range("A2:A5,A11:A14") A14 yerine A sütununda en altta dolu hücre adresini (değişken olabilir) belirlesin

Desteğiniz için çok teşekkür ederim üstadım, sağlıcakla kalın.

...Txt = Txt & "," & Hcr End If Next Hcr With Range("C2:C6").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="" & Txt & "" .IgnoreBlank = True .InCellDropdown =...

..., AllowFiltering:=True Exit Sub End If With Sheets("Sabitler").Range("E21").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Syf .IgnoreBlank = True .InCellDropdown = True...

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

...myList(1 To ThisWorkbook.Names.Count) For i = 1 To UBound(myList) myList(i) = ThisWorkbook.Names(i).Name Next Range("A1").Validation.Delete Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(myList(), ",") End Sub .

...O11:BL11, O14:BL14, O17:BL17, O20:BL20, O23:BL23, O26:BL26, O29:BL29, O32:BL32, O35:BL35, O38:BL38, O41:BL41, O44:BL44, O47:BL47, O50:BL50, O53:BL53").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x End With End Sub

sayfa kodu olarak ekledim ama açışta çalışmadı.

...olarak.Sayfa kodu olarak kopyalayınız. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, [G6:G500]) Is Nothing Then Exit Sub Target.Validation.Delete Target.Validation.Add xlValidateList, Formula1:="Matematik,Türkçe,Fizik" End Sub

Deneyiniz.. Sub auto_open() Range("G6:G500").Validation.Delete Range("G6:G500").Validation.Add Type:=xlValidateList, Formula1:="Matematik, Türkçe, Fizik" End Sub

Bu şekilde deneyiniz. With [G6:G500].Validation .Delete .Add Type:=xlValidateList, Formula1:="Matematik, Türkçe, Fizik" End With