Makro ile açılır liste

[schlecht]

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 birde açılışta çalıştıramadım. Yardımlarınızı rica ederim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

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

 

[EmrExcel16]

Deneyiniz..

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

 

[çıtır]

Alternatif 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

 

[schlecht]

Alternatif 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

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

 

[çıtır]

G6:G500 Hücre aralığını seçtiğinizde açılır liste oluşur.G6:G500 hücre aralığını seçtiğinizde açılır liste oluşmadı mı?

 

[schlecht]

G6:G500 Hücre aralığını seçtiğinizde açılır liste oluşur.G6:G500 hücre aralığını seçtiğinizde açılır liste oluşmadı mı?

benim sayfamdan kaynaklı sanıım, akşam deneyip sonucu yazar.

Cevap yazan herkese teşekkürler.

 

[çıtır]

benim sayfamdan kaynaklı sanıım, akşam deneyip sonucu yazar.

Cevap yazan herkese teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Dosya.

 

[schlecht]

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Dosya.

Okunaymayan içerik hatası aldım. Sanırım benim listem ya uzun geldi ya da içinde ki bir karekterden

 

[schlecht]

Sayın çıtır verdiğiniz kod çalışıyor. Arşivimde yerini ald. Elinize sağlık. Anladığın kadarı ile Formula1:="Matematik,Türkçe,Fizik" bu listeyi veri> veri doğrulama > liste > kaynak alanına ekliyor. Bu kaynakta belirli bir sayıda karakter içerebiliyor sanırım. Benim listem biraz uzun ve listeyi herhangi bir sayfadan da alamıyorum.
Listeyi kodların içine yazaman gerekiyor. Ama bu da mümkün değil sanırım.

 

[çıtır]

Sayın çıtır verdiğiniz kod çalışıyor. Arşivimde yerini ald. Elinize sağlık. Anladığın kadarı ile Formula1:="Matematik,Türkçe,Fizik" bu listeyi veri> veri doğrulama > liste > kaynak alanına ekliyor. Bu kaynakta belirli bir sayıda karakter içerebiliyor sanırım. Benim listem biraz uzun ve listeyi herhangi bir sayfadan da alamıyorum.
Listeyi kodların içine yazaman gerekiyor. Ama bu da mümkün değil sanırım.

Doğru.Belirli sayıda karakter içerebilir.Listeniz uzun ise sayfadan alınız. Neden sayfa başvurusu ile alamıyorsunuz? Anlamadım.Örnek dosya ekleyin çözüme katkı olabilir.

 

[schlecht]

Sayfaya kapalı dosyadan veri aktarılıyor. Gelen veri dosyasının satır sayısı belli değil. Liste gizlense bile siliniyor.