Veri Doğrulama Olan Hücrede Seçim Değişince Hücre Temizleme

[gbktshrn]

Merhaba,

Ücretlerin yer aldığı bir tablodan pozisyon,kıdem ve ücreti benzersiz olacak şekilde veri doğrulama ile 3 (T2,U2,V2) hücreye getiriyorum fakat T2 hücresindeki listeden seçimi değiştirdiğimde diğer hücrelerdeki veriler olduğu gibi kalıyor. Veri doğrulama olan T2 hücresindeki pozisyonu değiştirdiğimde veri doğrulama olan U2 ve V2 hücreleri temizlensin istiyorum ama bir türlü yapamadım. Aynı şekilde veri doğrulama olan U2'deki listeden bir seçim yaptığımda V2 hücresindeki seçim temizlensin.

Bu konuda yardımcı olabilir misiniz acaba.

Teşekkürler.

 

[1Al2Ver]

Merhaba,

Öneri ; Sonuçları elle girilmiş, örneklenmiş bir dosyayı, dosya ekleme sitelerinden birine ekleyip, verilen linki burada paylaşırsanız ;

-Kısa zamanda doğru çözüm alabilir siniz,

-Çözüm üretecek olan arkadaşlarda, çözümlerini dosyanız üzerinden yapabilir ve sonuçları test edebilir.

Teşekkür ederim.

 

[52779]

Selamlar,
Örnek olarak eki incelersiniz...

VD_Dep.xlsm dosyasını indir - download

VD_Dep.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Sayfada makro kodu :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [T2]) Is Nothing Then GoTo no1
      [U2] = Empty: [V2] = Empty
no1:
   If Intersect(Target, [U2]) Is Nothing Then Exit Sub
      [V2] = Empty
End Sub

 

[gbktshrn]

Selamlar,
Örnek olarak eki incelersiniz...

VD_Dep.xlsm dosyasını indir - download

VD_Dep.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Sayfada makro kodu :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [T2]) Is Nothing Then GoTo no1
      [U2] = Empty: [V2] = Empty
no1:
   If Intersect(Target, [U2]) Is Nothing Then Exit Sub
      [V2] = Empty
End Sub

Merhaba,

Örnek dosya hazırlamaya çalışıyordum fakat sizin yazdığınız kod ile çalıştı. Çok çok teşekkür ederim yapamadıkça sinirlenip çıldırma noktasına gelmiştim Ellerinize sağlık.

 

[gbktshrn]

Selamlar,
Örnek olarak eki incelersiniz...

VD_Dep.xlsm dosyasını indir - download

VD_Dep.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Sayfada makro kodu :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [T2]) Is Nothing Then GoTo no1
      [U2] = Empty: [V2] = Empty
no1:
   If Intersect(Target, [U2]) Is Nothing Then Exit Sub
      [V2] = Empty
End Sub

Aynı kodu aynı çalışma sayfasında 6 tane hücre için nasıl kullanabilirim peki.
Aşağıdaki gibi bir düzenleme yaptım ama çalışmadı tabi ki Yardımcı olabilirseniz çok sevinirim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [T2]) Is Nothing Then GoTo no1
[U2] = Empty: [V2] = Empty
no1:
If Intersect(Target, [U2]) Is Nothing Then Exit Sub
[V2] = Empty

If Intersect(Target, [A2]) Is Nothing Then GoTo no2
[B2] = Empty: [C2] = Empty
no2:
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
[C2] = Empty

End Sub

Şimdiden teşekkür ederim.

 

[gbktshrn]

Aşağıdaki kodu kullanarak çözdüm nekadar doğru oldu bilmiyorum ama deneyerek bu şekilde çözdüm. Kullanmak isteyenler için eklemek istedim.

Private Sub Worksheet_Change(ByVal Target As Range)

   If Intersect(Target, [C4]) Is Nothing Then GoTo no1
      [D4] = Empty: [E4] = Empty
no1:
   If Intersect(Target, [D4]) Is Nothing Then GoTo no2
      [E4] = Empty
no2:
      If Intersect(Target, [L4]) Is Nothing Then GoTo no3
      [M4] = Empty: [N4] = Empty
no3:
   If Intersect(Target, [M4]) Is Nothing Then Exit Sub
      [N4] = Empty
        
End Sub