Sayfalardaki Bir Hücre Değeri, Tek Bir Sayfada Almak

[1Al2Ver]

Merhaba,

"GENEL_S", "GENEL_AÖ", "GENEL_Ö", "GENEL_A" ve "GENEL_G" isimli sayfalarımda,

"N4" hücresinden, Açılır Kutu ile seçilen veriler var,

Ben adı geçen sayfaların her hangi birinde, "N4" ten seçim yaptığımda, sadece o sayfadan yapılan seçimi, "VERİLER!X1" hücresinde görmek istiyorum,

Örneğin ; "GENEL_S" sayfasındaki "N4" Açılır Kutudan "Ayakkabı" seçtim, diğer sayfalardaki "N4" lerde de farklı seçimler duruyor olsun (Örneğin , "GENEL_AÖ" deki "N4" te "Terlik, "GENEL_A" daki "N4" te "Pijama" gibi)

"GENEL_S" sayfası "N4" seçimimi "VERİLER!X1" e yazarken, ancak diğer sayfalardaki "N4" lerdekiler aynı kalabilmeli,

Gereken kodu rica ediyorum,

Teşekkür ederim

 

[Ömer]

Merhaba,

BuÇalışmaKitabı kod bölümüne kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With ActiveSheet
        If .Name = "VERİLER" Then Exit Sub
        If Not Intersect(Target, .Range("N2")) Is Nothing Then
            Application.EnableEvents = False
            Sheets("VERİLER").[X1] = Target.Value
            Application.EnableEvents = True
        End If
    End With
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu BuÇalışmaKitabı bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    If Not Intersect(Target, Range("N2")) Is Nothing Then
        Select Case Sh.Name
            Case "GENEL_S", "GENEL_AÖ", "GENEL_Ö", "GENEL_A", "GENEL_G"
            Application.EnableEvents = False
            Sheets("VERİLER").Range("X1") = Target
        End Select
    End If
Son: Application.EnableEvents = True
End Sub

 

[1Al2Ver]

Sayın Ömer merhaba,

İlginiz için teşekkür ederim,

Uyarlayacağım dosyamda, ekli dosyadakinden daha fazla sayfam var, siz doğal olarak örnek sayfaya göre çözüm ürettiniz,

Ancak ben, çözümü sadece adı geçen sayfalar için almak istiyordum,

Sayın Korhan Ayhan'ın yazdığı kod çözüm oldu,

Zahmetleriniz için tekrar teşekkür ederim.

Saygılarımla.