Özet Tablosunu Oluşturma

[myefsane]

Merhabalar;

Aşağıda verdiğim ekteki örnek üzerinden size olayı anlatmak istiyorum. Ekte görüldüğü gibi Ayarlar Sayfasında A3 Hücresini seçtiğimde yan tarafta bulunan tabloda aşağıda bulunan değerlerin gelmesini istiyorum.Bunu yapmak mümkün mü? TEşekkürler.

 

[dEdE]

... yan tarafta bulunan tabloda aşağıda bulunan değerlerin gelmesini istiyorum...

Merhaba,
"aşağıda bulunan değerleri." anlamadım. Otlar veya Meyveleri seçtiğinizde o sayfadaki verilerin gelmesini mi istiyorsunuz?

 

[myefsane]

Aynen yapmak istediğim bu.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Ayarlar sayfanızın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A3]) Is Nothing Then Exit Sub
Range("B4:M" & [A65536].End(3).Row + 1).ClearContents
If [A3].Value = "Meyveler" Then Sheets("Meyveler").Range("A2:G" & [G65536].End(3).Row).Copy Sheets("Ayarlar").[B4]
If [A3].Value = "Otlar" Then
    Sheets("Otlar").Range("B2:F" & [F65536].End(3).Row).Copy Sheets("Ayarlar").[I4]
    Sheets("Otlar").Range("A2:A" & [A65536].End(3).Row).Copy Sheets("Ayarlar").[B4]
End If
End Sub

 

[myefsane]

Teşekkürler süper oldu.

Diğer verileri kabul etmiyor. Sadece 2 satırları alıyor kodu biraz kurcalayarak bişeyler yapmaya çalışacağım teşekkürler.

 

[dEdE]

Merhaba,
Önceki kodu silip, aşağıdaki kodu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A3]) Is Nothing Then Exit Sub
    Range("B4:M" & [A65536].End(3).Row + 1).ClearContents
    SonM = Sheets("Meyveler").[G65536].End(3).Row
    SonO = Sheets("Otlar").[F65536].End(3).Row
    If Sheets("Ayarlar").[A3].Value = "Meyveler" Then Sheets("Meyveler").Range("A2:G" & SonM).Copy Sheets("Ayarlar").[B4]
    If Sheets("Ayarlar").[A3].Value = "Otlar" Then
        Sheets("Otlar").Range("B2:F" & SonO).Copy Sheets("Ayarlar").[I4]
        Sheets("Otlar").Range("A2:A" & SonO).Copy Sheets("Ayarlar").[B4]
    End If
End Sub

 

[myefsane]

Merhaba,
Önceki kodu silip, aşağıdaki kodu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A3]) Is Nothing Then Exit Sub
    Range("B4:M" & [A65536].End(3).Row + 1).ClearContents
    SonM = Sheets("Meyveler").[G65536].End(3).Row
    SonO = Sheets("Otlar").[F65536].End(3).Row
    If Sheets("Ayarlar").[A3].Value = "Meyveler" Then Sheets("Meyveler").Range("A2:G" & SonM).Copy Sheets("Ayarlar").[B4]
    If Sheets("Ayarlar").[A3].Value = "Otlar" Then
        Sheets("Otlar").Range("B2:F" & SonO).Copy Sheets("Ayarlar").[I4]
        Sheets("Otlar").Range("A2:A" & SonO).Copy Sheets("Ayarlar").[B4]
    End If
End Sub

(ByVal Target As Range) açılır menüyü bu kod ile mi bağladınız?

 

[dEdE]

Merhaba,

(ByVal Target As Range) açılır menüyü bu kod ile mi bağladınız?

Hayır.
Private Sub Worksheet_Change(ByVal Target As Range): Sayfada herhangibir hücre değeri değiştiğinde aşağıdakileri yap.
If Intersect(Target, [A3]) Is Nothing Then Exit Sub: Değişen hücre A3 değilse hiçbirşey yapma.