Değişkene Bağlı Veri Doğrulama

[ofd2008]

Merhaba,
Hücreye girilen değere göre başka bir hücrede veri doğrulama liste olarak nasıl yapılabilir?
Örnek:
Hücreye girilen değer "6" sayısı ise, başka bir hücrede "1,2,3,4,5,6" olarak,
Hücreye girilen değer "11" sayısı ise, başka bir hücrede "1,2,3,4,5,6,7,8,9,10,11" olarak, resimdeki gibi liste çıkacak.

(Not: Sınırlandırmaya gerek yok ama gerekirse eğer hücreye girilecek değerler 1 ile 100 arasında.)

Yardımlarınız için teşekkürler.
Saygılarımla

 

[Muzaffer Ali]

Normal veri doğrulama yapmayı biliyorsanız "en fazla" kısmına değişken değerin bulunduğu hücre adresini yazın.

 

[ofd2008]

En fazla kısmını bulamadım.

 

[Muzaffer Ali]

Özür dilerim Doğrulamayı açılır liste içinde yapmak istediğinizi anlamamıştım. Benim söylediğim İzin Verilen kısmı Tüm Sayı olduğunda geçerlidir.

 

[Mahir64]

Merhaba,

B ve C sütunu alt alta tekrar ediyor mu? Tek hücre için mi kullanılacak?

 

[turist]

C sütununda bir hücreye Geliştirici(Developer)'den bir ComboBox ekleyin.
Sayfanızın Kod kısmına :

Private Sub Worksheet_Change(ByVal Target As Range)	
n = Range("B5")	
With ComboBox1	
ComboBox1.Clear	
   For i = 1 To n	
   .AddItem i	
Next	
End With	
End Sub

yazın.
"B5" kısmı gireceğiniz sayıyı belirler. B5 den farklı bir hücreye sayı girecekseniz , kod içinde bu kısmı değiştirebilirsiniz.

ComboBox ile açılır listenizi elde edebilirsiniz.

 

[ofd2008]

Teşekkür ederim arkadaşlar, istediğim gibi çalıştı.
İyi günler dilerim.

 

[halit3]

Merhaba,
Hücreye girilen değere göre başka bir hücrede veri doğrulama liste olarak nasıl yapılabilir?
Örnek:
Hücreye girilen değer "6" sayısı ise, başka bir hücrede "1,2,3,4,5,6" olarak,
Hücreye girilen değer "11" sayısı ise, başka bir hücrede "1,2,3,4,5,6,7,8,9,10,11" olarak, resimdeki gibi liste çıkacak.

(Not: Sınırlandırmaya gerek yok ama gerekirse eğer hücreye girilecek değerler 1 ile 100 arasında.)

Yardımlarınız için teşekkürler.
Saygılarımla

Alternatif olarak B1 hücresine yazdığınız sayı kadar C1:H35 hücre aralığında liste kutusu düzenliyor.
Kodu sayfanın kod bölümüne yapıştırın.

kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("c1:h35")) Is Nothing Then Exit Sub
If InStr(Trim(ActiveWindow.RangeSelection.Address), ":") <> 0 Then Exit Sub

sayi = Range("B1").Value

If IsNumeric(sayi) = False Then Exit Sub

sat = Target.Row
sut = Target.Column
Cells(sat, sut).Validation.Delete

veri = ""
veri2 = ""
For i = 1 To sayi
veri = veri & i & ","
Next i

If veri <> "" Then
Cells(sat, sut).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=veri
End If

End Sub

not:bu uygulama ile ofis 2003 de 88 ofis 2007 de 1859 satır sayı almaktadır.