Veri Doğrulama Alanlarını Görme

[hakki83]

İyi günler

Excel hocalarımıza sorum şudur.

Örnek dosyada örnek olsun diye 3 adet veri doğulama alanı belirleyip uyguladım.

B29
E2:H10
C11:F16

Bu şekilde bir veya birden fazla alanları Excelin menüsünde veya makro ile ya da varsa başka bir yol ile görebilme imkanımız var mı?

Yani örnekteki gibi bana

"B29
E2:H10
C11:F16 alanlarında veri doğrulama var" mesajını verebilecek bir makro mümkün mü?



Amacım: Binlerce satırlık büyük alanlarda, kesme kopyalama yapıştırma işlemleri sonucu bozulmuş olan veri doğrulamaları tespit edip, hızlıca düzeltmek.

 

[Levent Menteşoğlu]

Bunun için F5 ile açılan Git-Özel Git penceresini kullanın.

 

[hakki83]

Bunun için F5 ile açılan Git-Özel Git penceresini kullanın.

Ekli dosyayı görüntüle 244889

Levent hocam teşekkürler. Onu biliyordum. Fakat ben bana alan bilgisi olarak göstermesini istiyorum.

Zira yukarıda belirttiğim gibi binlerce satırlık alanlarda oluşan-oluşturulan bir alan, tam boyut olarak seçilse bile göremiyoruz ki, ekrana sığmıyor.

Bu durumda hazırladığım örnek dosyadaki üç seçili alanı, (çok büyük olarak düşündüğümüzde) bu alanların adreslerini nasıl tespit edeceğiz, bileceğiz?

Eğer makro bu işi yapabilirse, doğrusu faydalı olacak.

Yani hocam kısaca bana,
Excelin gölgeleyerek belirlediği alan ya da alanların, adres-adreslerini gösteren makro lazım. Tabi eğer olabiliyorsa.


Bir de, daha sonra benzer farklı bir konuyu açacaktım.
Şöyle ki;
Bul ve Seç
Git
Başvuru kısmına bir alan yazarak, o alanı seçebiliyoruz.
Bunun tam tersini yapabilme imkanımız var mı makroyla?
Yani yine benzer konu olmuş oluyor.

 

[Levent Menteşoğlu]

Bu durumda hazırladığım örnek dosyadaki üç seçili alanı, (çok büyük olarak düşündüğümüzde) bu alanların adreslerini nasıl tespit edeceğiz, bileceğiz?

Eğer makro bu işi yapabilirse, doğrusu faydalı olacak.

Yani hocam kısaca bana,
Excelin gölgeleyerek belirlediği alan ya da alanların, adres-adreslerini gösteren makro lazım. Tabi eğer olabiliyorsa.

Özel git penceresinde makro kaydet ile işlem yaparsanız ilgili kodu elde edebilirsiniz. Örneğin;

MsgBox ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Address

 

[hakki83]

Levent hocam harikasınız.

Bir de alttaki ikinci sorum olan seçili bir alan ya da alanların adresini gösteren kodu yapabilir misiniz?
Tıpkı verdiğiniz kod gibi gösteren.

Ben yapamadım makro kaydet ile.

 

[Levent Menteşoğlu]

Bir de alttaki ikinci sorum olan seçili bir alan ya da alanların adresini gösteren kodu yapabilir misiniz?
Tıpkı verdiğiniz kod gibi gösteren.

Aşağıdaki gibi deneyin.

msgbox selection.address

 

[hakki83]

Sağ olunuz Levent hocam. Bilginize sağlık.

 

[hakki83]

Levent hocamız merhaba

Tıpkı üsttekiler gibi,

Bir sayfadaki birleştirilmiş hücrelerin adresini, msgbox ile gösterebilmek için makro kaydet ile deneyerek,

Msgbox Selection.Merge.Address
yaptım olmadı.

Msgbox Merge.Address
yaptım olmadı.

Nasıl yapabiliriz hocam birleştirilmiş hücrelerin adreslerini?

 

[Korhan Ayhan]

Deneyiniz.

Msgbox Selection.MergeArea.Address

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub birlestirilmis_hucre_adresleri()
    
For Each hucre In ActiveSheet.UsedRange
If hucre.MergeCells Then
If InStr(hucreadresi, hucre.MergeArea.Address) > 0 Then GoTo 10
hucreadresi = hucreadresi & isaret & hucre.MergeArea.Address
isaret = ","
End If
10 Next

MsgBox hucreadresi

End Sub

 

[hakki83]

Deneyiniz.

Msgbox Selection.MergeArea.Address

Korhan hocamız emeğinize sağlık, üstteki kodlar gibi kısaydı, fakat birleştirilmiş hücrelerin adresini vermedi, muhtemelen bir küçük eksiklik vardır diye düşündüm. Teşekkürler.

 

[hakki83]

Aşağıdaki kodu deneyin.

Sub birlestirilmis_hucre_adresleri()
   
For Each hucre In ActiveSheet.UsedRange
If hucre.MergeCells Then
If InStr(hucreadresi, hucre.MergeArea.Address) > 0 Then GoTo 10
hucreadresi = hucreadresi & isaret & hucre.MergeArea.Address
isaret = ","
End If
10 Next

MsgBox hucreadresi

End Sub

Levent hocam olmuştur. Emeğinize sağlık.

 

[Korhan Ayhan]

Ben tek bir birleştirilmiş alan gibi düşündüğüm için o şekilde cevap vermiştim. Eğer seçilen alanda birden fazla birleştirilmiş alan carsa döngü ile yapılabilir. Bunuda zaten Levent Bey paylaşmış