Veri Doğrulama, Aynı Veriyi 2 Açılır Kutudan Seçmek

[1Al2Ver]

Merhaba,

J4 yada P26'da, açılır kutu'dan seçim yaptığımda, seçilen veri H34'e gelsin istiyorum,

J4'ten seçilen Ali ise, P26'da Ali olsun,
P26'dan seçilen Vedat ise, J4'te Vedat olsun vb.

Teşekkür ederim.

 

[Ömer]

Merhaba Sayın 1Al2Ver,

Çalışma sayfasının kod bölümüne kopyalayarak denermisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J4,P26]) Is Nothing Then Exit Sub
If Target.Address = "$J$4" Then [P26] = Target
If Target.Address = "$P$26" Then [J4] = Target
End Sub

.

 

[1Al2Ver]

Merhaba Sayın 1Al2Ver,

Çalışma sayfasının kod bölümüne kopyalayarak denermisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J4,P26]) Is Nothing Then Exit Sub
If Target.Address = "$J$4" Then [P26] = Target
If Target.Address = "$P$26" Then [J4] = Target
End Sub

.

Ömer bey merhaba,

Çözüm ve ilginiz için çok teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Merhaba,

Aşağıdaki kod aynı sayfada görev yapmaktadır,

Ben ; Sayfa7(Grafik_Genel) C1 hücresini seçtiğimde, C1 hücresi, Sayfa6(Genel_2010) BN1 hücresine eşit olsun istemekteyim,

Diğer bir deyişle kod, 2 farklı sayfada çalışsın,

Kod'da gerekli düzeltmeyi rica ediyorum, teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J4,P26]) Is Nothing Then Exit Sub
If Target.Address = "$J$4" Then [P26] = Target
If Target.Address = "$P$26" Then [J4] = Target
End Sub

 

[Ömer]

Merhaba,

Yeni durumu özetleyen bir örnek ekleyerek açıklarmısınız..

.

 

[1Al2Ver]

Merhaba,

Yeni durumu özetleyen bir örnek ekleyerek açıklarmısınız..

.

Merhaba,

Hücre adreslerini basit olması açısından değiştirdim, ( C1 ve K1 yaptım )

Sorum ;

"Genel_2010" K1'den seçim yaptığımda K1 hücresi "Grafik_Genel" C1 hücresine,

yada

"Grafik_Genel" C1'den seçim yaptığımda C1 hücresi "Genel_2010" K1 hücresine,

eşit olsun

Örn; "Genel_2010" K1, Ali olduğunda, "Grafik_Genel" C1'de Ali olmalıdır.

Teşekkür ederim.

 

[Ömer]

Genel_2010 sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Grafik_Genel")
If Intersect(Target, [K5]) Is Nothing Then Exit Sub
s1.[C1] = Target
End Sub

Grafik_Genel sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Genel_2010")
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
s1.[K5] = Target
End Sub

yazarak kullanabilirsiniz..

.

 

[1Al2Ver]

Genel_2010 sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Grafik_Genel")
If Intersect(Target, [K5]) Is Nothing Then Exit Sub
s1.[C1] = Target
End Sub

Grafik_Genel sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Genel_2010")
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
s1.[K5] = Target
End Sub

yazarak kullanabilirsiniz..

.

Ömer bey merhaba,

Çözüm ve ilginiz için teşekkür ederim, sağolun.

Saygılarımla.

 

[Ömer]

Önemli değil, sizde sağolun.

Saygılarımla.

.