Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/11/2008 01:24
Konu Sahibi
nihatkr
Yorumlar
18
Okunma
11648
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
jkr35

jkr35

Üye
772
 42
 0
 1
 27/11/2008
0
 İzmir
 
 Ofis 2007
 21/05/2009,05:15
teşekkürler güzel olmuş




adnan

adnan

Aktif Üye
41
 56
 13
 119
 30/10/2008
0
 Ankara
 
 
 14/07/2019,16:07
Merhaba;

Sn.nihatkr elinize sağlık çok güzel uygulama, teşekkürederim

kod da metin1 alanı nı bulamadım.

Selamlar

Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("A3:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If

End Sub



...........
nihatkr

nihatkr

Onursal Üye
4
 89
 814
 29/10/2008
272
 İstanbul
 
 Ofis 2007
 03/09/2016,04:40
(29/11/2008 19:06)adnan Adlı Kullanıcıdan Alıntı: Merhaba;

Sn.nihatkr elinize sağlık çok güzel uygulama, teşekkürederim

kod da metin1 alanı nı bulamadım.

Selamlar

Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("A3:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If

End Sub
eki

Ekteki resimde yerleri gösterilmiştir.


Ekran Görüntüleri
   

medi4444

medi4444

Üye
829
 39
 0
 1
 29/11/2008
0
 Adana
 
 Ofis 2007
 29/11/2008,22:22
paylaşımınız için teşekkürler




...........
adnan

adnan

Aktif Üye
41
 56
 13
 119
 30/10/2008
0
 Ankara
 
 
 14/07/2019,16:07
Merhaba;

Sn.nihatkr teşekkürederim.

Selamlar.



yücelkaya

yücelkaya

Aktif Üye
2991
Yü.... Ka....
 49
 15
 66
 10/02/2009
0
 Rize
 
 Ofis 2007
 20/01/2017,21:21
emeğiniz ve paylaşımınız için teşekkürler



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Excelde Hazırlanmış Apartman Yönetimi Programı assenucler 89 124.348 15/07/2019, 13:24
Son Yorum: halily
  Excelde Günlük Ajanda yasingulmez41 2 208 10/06/2019, 10:37
Son Yorum: yasingulmez41
  Excelde telefon rehberi.radyo.tv üçü bir arada DUAYEN 26 17.491 16/05/2018, 13:26
Son Yorum: ozerdem
  Excelde Seçili Alanı PDF yaparak Outlook Üzerinden Mail Gönderme ogulcan92 3 4.669 24/02/2016, 14:25
Son Yorum: brhmkrtog
  Excelde VSFlexGrid Kullanımı ogulcan92 6 4.768 18/01/2014, 15:17
Son Yorum: Merakli72

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.