makro ile açılır liste yapımı

[selocanexcel]

merhaba
aşağıdaki kodu diğer sutunlar için nasıl uygulayabilirim. örneğin : F3:F5000 aralığında açılır liste yapmak istiyorum. aşağıdaki kodu tekrarlayınca malesef olmuyor. Yardımcı olabilirmisiniz.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [E3:E5000]) Is Nothing Then Exit Sub
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:="Bekliyor, Belge Talebi"
End Sub

 

[ÖmerFaruk]

Siz tam olarak ne yapmak istiyorsunuz.
Yukarıdaki kod excel sayfasında E3:E5000 aralığında bir hücreyi anda çalışıyor.
Siz E3:E5000 aralığında farklı bir veri doğrulama, F3:F5000 de farklı bir veri doğrulamamı uygulayacaksınız?

 

[selocanexcel]

Siz tam olarak ne yapmak istiyorsunuz.
Yukarıdaki kod excel sayfasında E3:E5000 aralığında bir hücreyi anda çalışıyor.
Siz E3:E5000 aralığında farklı bir veri doğrulama, F3:F5000 de farklı bir veri doğrulamamı uygulayacaksınız?

Evet farklı bir veri doğrulama uygulayacağım

 

[ÖmerFaruk]

Gerekli açıklamaları kod içinde tırnak içinde yeşil satırlarda belirttim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'Gösterilen E3:E5000 ya da F3:F5000 gibi aralıkları alttaki iki satırda kendinize göre değiştirebilirsiniz.
    If Intersect(Target, Range("E3:E5000,F3:F5000")) Is Nothing Then Exit Sub
        Select Case Intersect(Target, Range("E3:E5000,F3:F5000")).Column
        'Case 5 - E sütunu seçilmişse onun kolon numarası 5 olduğundan bu Case işlem görür
        Case 5
            Target.Validation.Delete
            Target.Validation.Add xlValidateList, Formula1:="Bekliyor, Belge Talebi"

        'Case 6 - F sütunu seçilmişse onun kolon numarası 6 olduğundan bu Case işlem görür
        Case 6
            Target.Validation.Delete
            'Aşağıdaki satırı kendinize göre uyarlarsınız. Ben sadece örnek verdim
            Target.Validation.Add xlValidateList, Formula1:="Geldi, Gelmedi, Gelecek"
        End Select
End Sub

 

[selocanexcel]

Gerekli açıklamaları kod içinde tırnak içinde yeşil satırlarda belirttim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'Gösterilen E3:E5000 ya da F3:F5000 gibi aralıkları alttaki iki satırda kendinize göre değiştirebilirsiniz.
    If Intersect(Target, Range("E3:E5000,F3:F5000")) Is Nothing Then Exit Sub
        Select Case Intersect(Target, Range("E3:E5000,F3:F5000")).Column
        'Case 5 - E sütunu seçilmişse onun kolon numarası 5 olduğundan bu Case işlem görür
        Case 5
            Target.Validation.Delete
            Target.Validation.Add xlValidateList, Formula1:="Bekliyor, Belge Talebi"

        'Case 6 - F sütunu seçilmişse onun kolon numarası 6 olduğundan bu Case işlem görür
        Case 6
            Target.Validation.Delete
            'Aşağıdaki satırı kendinize göre uyarlarsınız. Ben sadece örnek verdim
            Target.Validation.Add xlValidateList, Formula1:="Geldi, Gelmedi, Gelecek"
        End Select
End Sub

kodu düzenledim ve tam istediğim şekilde çalıştı. yardımlarınız için çok teşekkür ederim.

 

[selocanexcel]

Ömer bey merhaba,
bir problemim daha var yardımcı olabilirmisiniz. foruma yazdım ama cevap alamadım o nedenle çekinerek size yazmak durumunda kaldım.



Örnek1:abc isimli excell dosyasının ISIMLER sayfasında seçilen Aktif satırı kopyalayıp (örnek: 8. satır) xyz isimli excell dosyasında PVT isimli sayfada aynı satıra (8. satıra) yapıştırsın.

Örnek2:abc isimli excell dosyasının ISIMLER sayfasında seçilen Aktif satırı kopyalayıp (örnek: 55. satır) xyz isimli excell dosyasında PVT isimli sayfada aynı satıra (55. satıra) yapıştırsın.

işleyiş olarak abc isimli dosyanın ISIMLER sayfasından seçim yapılacak butona tıklandığında xyz isimli excell dosyasında PVT isimli sayfada aynı satıra yapıştıracak. Seçilip kopyalanan satır numarası ile yapıştırılacak satır numarası aynı olacak. satırın tamamı kopyalama ve yapıştırma işlemine tabi olacak