Buton ile filitreleme ve yeni sayfada açma

[sinnernekolens]

iyi günler arkadaşlar, ekli örnek raporu başkalarına mail atıyorum, ancak şöyle bir şey yapmak istiyorum yandaki MERSIN butonuna bastığımda F sütunundaki MERSIN olan verileri filitreleyip yeni bir sayfada açmasını istiyorum. (yada maile ek yapabilir) Diğerleri içinde aynısı geçerlidir. yardımlarınızı rica ederim. örnek dosya ektedir.

 

[turist]

Sayın @sinnernekolens
Dosyanız eklidir.

 

[sinnernekolens]

İlginiz için teşekkür ederim filitreleme gayet güzel oldu ancak, mesaja ekleme yaparken sadece o filitreleneni süzüp yeni dosya gibi yapabilir miyiz? mesaja eklemesi de zorunlu değil masa üstüne kaydetse de olur.

 

[sinnernekolens]

Yardımcı olabilirmisiniz

 

[turist]

Ekli dosyanızda "Sayfa Yap" butonu ile seçtiğiniz Port'a ait masaüstünde dosya oluşacaktır.
İyi çalışmalar...

 

[sinnernekolens]

Çok teşekkür ederim elinize sağlık. istediğim gibi oldu bende biraz modifiye ettim

 

[turist]

Teşekkür ederim.

 

[sinnernekolens]

iyi günler, Konu konuyu açıyor gibi bir durum olacak ancak farklı başlıkta açmak istemedim, aşağıdaki koda H sütunundaki tarihleri yeniden eskiye sıralayacak şekilde ekleme yapabilir miyiz?

Private Sub ComboBox1_Change()
Dim alan As String
alan = Sayfa5.ComboBox1.Text
On Error Resume Next
Sayfa5.Range("$A$1:$K$182").AutoFilter Field:=6, Criteria1:=alan
End Sub