autofilter ile filtre edilen kolondaki veriyi almak

[hakan439]

6 kolonluk bir excel dosyam var. klonların 1. satırları da baslıklr var ve bunlar autofilter ile filtre ediliyor. yapmak istediğim ise; listeden seçtiğim verinin bir textbox' yazdırılması. anlatabildimmi

 

[Hikmet26]

Sayın Hakan439 bir örnek dosya yollayabilirseniz daha iyi olacaktır.

 

[hakan439]

Sayın Hakan439 bir örnek dosya yollayabilirseniz daha iyi olacaktır.

bu dosya normalde bir mdb dosyasından her acıldıgında son kayıtları download ediyor. bu listede filtre edilen ogenin dosyanın ustundeki birlestirilmiş hücrede belirmesini istiyorum. tesekkurler

 

[Hikmet26]

Aşağıdaki kodu Sheet1 in kod kısmına yazabilirsiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("B4") = ActiveCell
End Sub

 

[hakan439]

Aşağıdaki kodu Sheet1 in kod kısmına yazabilirsiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("B4") = ActiveCell
End Sub

Hikmet bey çok teşekkür ederim. ben bunu düşünemedim ama soyle küçük bir sorun çıktı. size gonderdigim dosyada aktif oalcak kısım a,c,d,e kolonları. ancak ornegın
a kolonu fatura numarası,
c ise fatura tarihi,
d firma ismi adı,
e ise urun adı.

ürün adı ile firma isminde problem yok. bunlar cıkıyor. ancak fatura nosuna göre veya fatura aylarına gore filtre ettigimde format tan oturu sorun cıkıyor. ben tarihleri ay olarak almak istiyorum ancak onu dd.mm.yy formatında alıyor. b4 date formatında cevirdigimde bu sefer de fatura numarasını ay olarak alıyorum. buna da yardımcı olabilirmisimz,

 

[Hikmet26]

Kodu aşağıdaki gibi yineleyin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("B4") = ActiveCell
ActiveSheet.Range("B4").NumberFormat = ActiveCell.NumberFormat
End Sub

 

[hakan439]

Kodu aşağıdaki gibi yineleyin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("B4") = ActiveCell
ActiveSheet.Range("B4").NumberFormat = ActiveCell.NumberFormat
End Sub

Hikmet bey çok teşekkür ederim. son birşey sormak istiyorum ;

tarih kısmı için belirlediğim tarih aralıklarının dökümünü almak istiyorum. filtre sekmelerinden custom ile alabiliyorum ama excel i cok iyi bilmeyen kişiler için daha kolay bir tarih aralığı oluşturma yöntemi varmıdır?

 

[hakan439]

herkese iyi haftalar;

yukarıda anlatmıs oldugum sorunu su kodla hallettim. oncelikle tesekker ederim bana yardımcı olan herkese.


'-------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sheet1").Select ' dosya açıldığında seçilecek sayfa ismi
Columns("A:A").ColumnWidth = 11 ' sadece A kolu için genişlik
Columns("b:b").ColumnWidth = 14.71
Columns("C:C").ColumnWidth = 13.43
Columns("D").ColumnWidth = 16.71
Columns("E:E").ColumnWidth = 30
Columns("F:F").ColumnWidth = 9 ' F ve K kolonları dahil genişlik
Columns("G:G").ColumnWidth = 10
Rows("12:12").RowHeight = 15


ActiveSheet.Range("c6") = ActiveCell
If ActiveCell = B Then
ActiveSheet.Range("c6").NumberFormat = ActiveCell.NumberFormat
'-------------------------------------------------------------------

simdi birsey daha sormak istiyorum. bir kolona tıkladıgımda, hangi kolona tıkladıgıma baglı oalrak "C6" hücresinin formatını degistirebilirmiyiz? örnegin

benim dosyamda A kolonu fatura numaraları, e kolonu ürün isimlerini tutuyor. benim istedigim eger a kolonundan bir hücre seciliirse activecell olan C6 da fatura numarasının yanında "........ nolu fatura özeti" gibi bir ifade cıkması yada eger ürün seciliyorsa, "....... ürün satısları" gibi bir ibare cıkması.

birde buna ilaveten; belli tarihler arasında yapılan satısları görmek istiyorum. bunu autofilterda custom secerek yaparım ama bu seçtiğim aralıgında bir sekilde activecell olan c6 hücresinde belli bir formatta cıkmasını istiyorum.

yardımclarınız için simdiden tesekkruler