seçilen isme göre malzeme listesi getirme

S

siyar0044

Katılım
21 Kasım 2005
Mesajlar
359
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
 
Merhaba.

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

Kod: 
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' Alıntı:
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
Genişletmek için tıkla ...


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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst