seçilen isme göre malzeme listesi getirme

[siyar0044]

merhabalar
çalışmış olduğum bir tabloyu sadeleştirip örnek olarak gönderiyorum
yapmak istediğim
G4 hücresine (A-B-C-D veya tümü) yazılacak eğer G4 (A-B-C-D) değerlerinden herhangi birtanesi girilirse 14 ncü satıra yeşil renkle belirtilen kısma sadece seçilen değerin verileri gelecek
eğer tümü seçilmiş ise 14-15-16-17 nci satırlara ayrı ayrı değer lerin gelmesini istiyorum
https://www.dosyayukle.biz/7qs/örnek_tablo.xlsx

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağ tıklatıp "Kod Görüntüle" seç.
açılan sayfaya aşağıdaki kodları yapıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As String
    If Not Intersect(Target, [G14]) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        Select Case [G14]
        
            Case "A"
                Alan = "I7:FA7"
            Case "B"
                Alan = "I8:FA8"
            Case "C"
                Alan = "I9:FA9"
            Case "D"
                Alan = "I10:FA10"
            Case "TÜMÜ"
                Alan = "I7:FA10"
        End Select
        Range("I14:FA18").ClearContents
        Range(Alan).Copy Range("I14")
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

 

[siyar0044]

makro değilde formül ile yapmamız mümkünmü acaba

 

[tamer42]

merhabalar
çalışmış olduğum bir tabloyu sadeleştirip örnek olarak gönderiyorum
yapmak istediğim
G4 hücresine (A-B-C-D veya tümü) yazılacak eğer G4 (A-B-C-D) değerlerinden herhangi birtanesi girilirse 14 ncü satıra yeşil renkle belirtilen kısma sadece seçilen değerin verileri gelecek
eğer tümü seçilmiş ise 14-15-16-17 nci satırlara ayrı ayrı değer lerin gelmesini istiyorum
https://www.dosyayukle.biz/7qs/örnek_tablo.xlsx

Ekli dosyayı inceler misiniz,

https://dosya.co/w6clgax5yq5l/örnek_tablo(1).xlsx.html

sanırım bu şekilde bir çözüm mü istiyordunuz

Kolay gelsin.

 

[siyar0044]

teşekkür ederim

 

[Muzaffer Ali]

makro değilde formül ile yapmamız mümkünmü acaba

Evet olur
Tamer42 bir çözüm önermiş "Tümü" seçildiğinde hatalı sonuç dönüyor fakat yeniden gözden geçirip düzenleyecektir kendisi.,

 

[tamer42]

Evet olur
Tamer42 bir çözüm önermiş "Tümü" seçildiğinde hatalı sonuç dönüyor fakat yeniden gözden geçirip düzenleyecektir kendisi.,

Haklısınız, ben "TÜMÜ" sadece sarı alanlarda gelecek gibi anlamıştım, şimdi bir düzenleme yaptım.

https://dosya.co/eb1tg0qh4pzv/örnek_tablo(2).xlsx.html