Data Validation

[besen]

Merhaba parametreler sayfası A1 hücresine, sayfa1 veya sayfa2 hangisindeysem, C2'den seçtiğim veri gelsin istiyorum.
Teşekkür ederim.

 

[ÖmerFaruk]

Aşağıdaki kodu hem Sayfa1 hem de Sayfa2 nin kod penceresine aynen yapıştırın.
Sayfa1 veya Sayfa2 de C2 de yıl seçince Sayfa1 A1 hücresine o yıl yazılacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [C2]) Is Nothing Then
        Worksheets("Parametreler").Range("A1") = Target.Value
    End If
End Sub

 

[besen]

Aşağıdaki kodu hem Sayfa1 hem de Sayfa2 nin kod penceresine aynen yapıştırın.
Sayfa1 veya Sayfa2 de C2 de yıl seçince Sayfa1 A1 hücresine o yıl yazılacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [C2]) Is Nothing Then
        Worksheets("Parametreler").Range("A1") = Target.Value
    End If
End Sub

Çok teşekkür ederim.
Saygılar.