Skip to main content

AccessTr.neT M.


Excelde Çoklu Süzme

Excelde Çoklu Süzme

#7
teşekkürler güzel olmuş

Cevapla
#8
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

Cevapla
...........
#9
(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.

FX-Etopla
Liste Kutusu Oluşturma
Cevapla
#10
paylaşımınız için teşekkürler

Cevapla
...........
#11
Merhaba;

Sn.nihatkr teşekkürederim.

Selamlar.

Cevapla
#12
emeğiniz ve paylaşımınız için teşekkürler

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da