Soru Veri doğrulama listesini formülle başka sayfadan alma

[tsknmrn]

database sayfasında B sütunundaki haftaları veri doğrulama liste ile rapor sayfasındaki H3 hücresine nasıl getirtebilirim?

(Araştırdığımda ="Hafta_"&BENZERSİZ(database!B2:B10485) formülü ile sutündaki benzersiz haftaları getirtip veri doğrulamaya gömdüm. Fakat bunun için arka plan 3. bir sayfaya ihtiyaç var.)
Yalnızca database ve rapor sayfası üzerinden veri doğrulamanın içine formül yazarak çözebilir miyim? Ekteki dosyadaki gibi.

Teşekkürler.

 

[tsknmrn]

Merhabalar sizin de 365 kullandığınızı gördüğüm için size sormak istedim. Yardımcı olabilir misiniz ? @ÖmerFaruk

 

[tsknmrn]

@Ömer Merhabalar sizin de 365 kullandığınızı gördüğüm için size sormak istedim. Yardımcı olabilir misiniz ?

 

[Korhan Ayhan]

Merhaba,

Deneme fırsatım olmadı ama nette araştırdığım kadarıyla direk veri doğrulamaya yazılacak bir formülle benzersiz liste görülemiyor. Excel sayfasında boş bir alanda bu listeyi oluşturup veri doğrulamaya bu listeyi tanımlayarak işlem yapabilirsiniz.

Linkte konuyla ilgili örnek anlatım yapılmış.

Unique items in the list

In order to get unique items in a range you can use the Advanced Filter to extract the unique values from a column of data and paste them to a new location.

www.officetooltips.com

 

[YUSUF44]

İsterseniz makro ile yapabilirsiniz. Aşağıdaki kodları rapor ekranı sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. Başka sayfadan bu sayfaya geçtiğinizde H3 hücresine istediğiniz veri doğrulamayı uygular:

Private Sub Worksheet_Activate()
Set s1 = Sheets("database")
son = s1.Cells(Rows.Count, "B").End(3).Row
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
sorgu = "select distinct Hafta from[database$] where Hafta is not null"
Set 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
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
End Sub

 

[Ömer]

Merhaba,

Şuan deneme şansım yok. Office 365 evdeki bilgisayarda kurulu.
Bende Korhan bey'in bahsettiği gibi bu fonksiyonun doğrulamada çalışmadığını daha önce rastladığımı hatırlıyorum.

 

[tsknmrn]

Merhabalar değerli geri dönüşleriniz için teşekkürler. @Korhan Ayhan @YUSUF44 @Ömer