ilgili olay yordamı içerisinde,sadece
ActiveSheet.Range("C2:C65000").AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
kod satırı olacak.
sanırım,siz;dahil ettiğim kod bloğunun hepsini (olay yordamı kodları da dahil) eklemişsiniz.6.mesajda eklenen kodun tamamı,olması gereken kod görseli olarak sunulmuştur sadece,konu açıklamasında bahsi yapıldığı üzere.
bilginize...iyi çalışmalar,saygılar.