+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Örnekleri ve Uygulamaları (https://accesstr.net/forum-excel-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Excelde Çoklu Süzme (/konu-excelde-coklu-suzme.html)
Cvp: Excelde Çoklu Süzme - jkr35 - 27/11/2008
teşekkürler güzel olmuş
Cvp: Excelde Çoklu Süzme - adnan - 29/11/2008
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
Cvp: Excelde Çoklu Süzme - nihatkr - 29/11/2008
(29/11/2008, 19:06)adnan yazdı: Merhaba;eki
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
Ekteki resimde yerleri gösterilmiştir.
Cvp: Excelde Çoklu Süzme - medi4444 - 29/11/2008
paylaşımınız için teşekkürler
Cvp: Excelde Çoklu Süzme - adnan - 29/11/2008
Merhaba;
Sn.nihatkr teşekkürederim.
Selamlar.
Cvp: Excelde Çoklu Süzme - yücelkaya - 10/02/2009
emeğiniz ve paylaşımınız için teşekkürler