Veri doğrulama koşulu yazdırılabilir mi ?

[baydeniro]

Merhaba Arkadaşlar,

Bir hücrede tanımlı veri doğrulama koşulu makro ile bir hücreye yazdırılabilir mi ?
Örneğin A1 hücresinde ">100" şeklinde Veri Doğrulama koşulu var. bunu B1 hücresine yazdırmak olası mıdır ?

 

[Korhan Ayhan]

Aşağıdaki KTF ile yapabilirsiniz.

Function Data_Validation(My_Cell As Range) As String
    Data_Validation = My_Cell.Validation.Formula1
End Function

Hücreye aşağıdaki gibi uygulayınız.

=Data_Validation(A1)[/code

 

[baydeniro]

Aşağıdaki KTF ile yapabilirsiniz.

Function Data_Validation(My_Cell As Range) As String
    Data_Validation = My_Cell.Validation.Formula1
End Function

Hücreye aşağıdaki gibi uygulayınız.

=Data_Validation(A1)[/code

Üstad elininize aklınıza sağlık, harika bir kod. Sağlıcakla kalın