Kod Kısaltma (hücreye veri doğrulama olarak ekleme..)

[tamer42]

Merhaba,
Bir dizi elamanlarını iki farklı hücreye veri doğrulama olarak eklemek isterken;
Aşağıdaki gibi aynı kodları her iki hücre içinde 2 defa yazmak durumunda kaldım;
Bu kodu daha kıslatarak tek seferde çözmek mümkün müdür?

deteğiniz için şimdiden teşekkürler,

Sht.Cells(5, 2).Validation.Delete
    
    Sht.Cells(5, 2).Validation.Add Type:=xlValidateList, _
              AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",")
       islem = 22
       
       Sht.Cells(5, 2).Value = Arr(1)
       
       ' ' -----------------------------------
 Sht.Cells(5, 4).Validation.Delete
    
    Sht.Cells(5, 4).Validation.Add Type:=xlValidateList, _
              AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",")
       
       Sht.Cells(5, 4).Value = Arr(1)
  
End If

 

[Muzaffer Ali]

Merhaba.

    Sht.Range("B5, D5").Validation.Delete
    Sht.Range("B5, D5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",")
    islem = 22
    Sht.Range("B5, D5").Value = Arr(1)

 

[tamer42]

Merhaba.

    Sht.Range("B5, D5").Validation.Delete
    Sht.Range("B5, D5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(Arr, ",")
    islem = 22
    Sht.Range("B5, D5").Value = Arr(1)

Muzaffer Hocam Çok teşekkürler
emeğinize sağlık!