Tablo Yardımı

[Mehmet Sait]

Merhaba,

Açıklamayı ekli dosya üzerinde yapabildim.

Yardımlarınız için teşekkür ederim.

 

[Necdet]

Merhaba,

Keşke ön bilgi verip sonra dosyaya bakabilirsiniz deseydiniz.
Belki birinin ilgisini çeker o arkadaşımızda ilgilenirdi.

 

[Mehmet Sait]

Merhaba,

Keşke ön bilgi verip sonra dosyaya bakabilirsiniz deseydiniz.
Belki birinin ilgisini çeker o arkadaşımızda ilgilenirdi.

Uyarınız için teşekkür ederim.



Merhaba,

Stok takibinde kullanmakta olduğum basit ama kullanışlı 500 kalem üründen oluşan bir tablom var. Tabloyu aylık ayrı dosyalarda kullanmak yerine, bir genel stok olmak üzere ve devamında, yanında aylara bölünmüş ek bir tablo daha oluşturdum. Maalesef tablo epey uzayınca tablonun en altına ayları ayrı ayrı getiren bir tablo daha yaptım bunu da ay bazında karşılaştırma yapmak için.
Genel tabloda filtre kullanarak altta ki tabloda ay bazında bilgi alabiliyorum. Genel tabloda filtreyi genelde Grup seçtikten sonra Grup 2 ile alt detaylarına bakıyorum. Bazı zamanlar altta ki listeyi yazdırma gereksinimi duyuyorum. Listeyi yazdırmak istediğimde her defasında Grup ve Grup 2 bilgisini tablonun başına tablo başlığı olarak yazmak zorunda kalıyorum.

İstediğim şu; seçilen Grup ve Grup 2 bilgisini otomatik olarak altta ki tabloya başlık olarak vermek mümkün mü ?

Yardımlarınız için teşekkür ederim.

 

[Mehmet Sait]

Merhaba,

Sanırım mümkün değil.

 

[Asri]

İstediğim şu; seçilen Grup ve Grup 2 bilgisini otomatik olarak altta ki tabloya başlık olarak vermek mümkün mü ?

Yardımlarınız için teşekkür ederim.

Sayfanın kod bölümüne yapıştırıp dosyayı .xlsm olarak kaydedin.
Her filtre değişimi olduğunda başlıklar değişecektir.

Private Sub Worksheet_Calculate()
    Range("I18").Value = Cells(GetFilteredRangeTopRow, "E").Value & " Grubu"
    Range("K18").Value = Cells(GetFilteredRangeTopRow, "F").Value & " Ürünlerinde Aylık Dağılım Tablosu"
    
End Sub

Function GetFilteredRangeTopRow() As Long
  Dim HeaderRow As Long, LastFilterRow As Long
  On Error GoTo NoFilterOnSheet
  With ActiveSheet
    HeaderRow = .AutoFilter.Range(3).Row
    LastFilterRow = .Range(Split(.AutoFilter.Range.Address, ":")(1)).Row
    GetFilteredRangeTopRow = .Range(.Rows(HeaderRow + 1), .Rows(Rows.Count)).SpecialCells(xlCellTypeVisible)(1).Row
    If GetFilteredRangeTopRow = LastFilterRow + 1 Then GetFilteredRangeTopRow = 0
  End With
NoFilterOnSheet:
End Function

 

[Mehmet Sait]

Tam istediğim gibi olmuş. Teşekkür ederim.