textboxla süzme 9 adet

[ahmet uguz]

arkadaşlar hepinize kolay gelsin diyerek sözüme başlıyorum.daha önce siteden indirdiğim textboxla bir örnekte süzme işini gerçekleştiremedim.vba kodlara baktığımda ikinci sütunda
metin1 ve metin 2 kriterleri vardı.bunları ben sayıysa diye düzeltmeye çalıştım. fakat yapamadım.

ayrıca bu dosyayı a sütunundan g sütununa kadar olan kısmı txty yapılabilirmi

üçüncü sorum aynı anda iki excel dosyasını açamıyorum.

 

[muratozmenler]

http://www.excel.web.tr/attachment.php?attachmentid=38524&d=1227076161
LİNKİ İNCELEYİN

 

[ahmet uguz]

benim istediğim bu değildi.zaten linkteki örneğin üzerine ben değişiklik yaparak çözüm bulmaya çalıştım.beceremedim.çünkü sayısal veriler var bendeki örnekte.

 

[Merhum İdris SERDAR]

arkadaşlar hepinize kolay gelsin diyerek sözüme başlıyorum.daha önce siteden indirdiğim textboxla bir örnekte süzme işini gerçekleştiremedim.vba kodlara baktığımda ikinci sütunda
metin1 ve metin 2 kriterleri vardı.bunları ben sayıysa diye düzeltmeye çalıştım. fakat yapamadım.

ayrıca bu dosyayı a sütunundan g sütununa kadar olan kısmı txty yapılabilirmi

üçüncü sorum aynı anda iki excel dosyasını açamıyorum.

Dosyanız ekte.

.

 

[ahmet uguz]

sayın yurttaş verdiğiniz yanıt için teşekkür ederim.dosyanın gerçek haliyle tekrar ekliyorum.firma bazınsa ve dönem itibariyle de süz me yapabilmesi lazım.isimle süzme yapamadı yada ben beceremedim.

ikinci sorum g sütununa kadar olan kısmı txt formatına çevirebilirmiyiz

son sorum aynı anda iki excel dosyasını9 açamıyorum.

teşekkür ederim.

 

[ahmet uguz]

dosyayı ekliyorum

 

[ahmet uguz]

değerli forum arkadaşlarım bu konuya el atabilirmisniz

 

[ahmet uguz]

arkadaşlar yardımlarınız için teşekkür ederim.

 

[Merhum İdris SERDAR]

dosyayı ekliyorum

Dosyanız ekte.

.

 

[ahmet uguz]

sayın yurttaş; yanıtınızın için teşekkür ederim.tam istediğim gibi olmuş.iyiki varsınız.

 

[svorm]

Merhaba
Dünden beri uğraşıyorum, fakat textbox ile süzme işini kendi dosyamda yapamdım.

Yurttaş beyin hazırladığı liste çok güzel olmuş, onun kodlarını alıp kendi dosyama koyduğumda süretkli hata alıyorum.

Kod Şu Şekilde;

Private Sub TextBox3_Change()
On Error Resume Next
METİN2 = TextBox3.Value
Set FC2 = Range("C7:J65000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox3.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

1. METİN2 = TextBox3.Value değerinde takılıyor, bunun için şöyle yaptım;

Dim metin2 as string,

Daha sonra

2-Set FC2 = Range("C7:J65000").Find(What:=METİN2)

not defined hatası aldım.

Bunlar belki textbox in en temel konuları ama sitede bakmadığım yer kalmadı.

Şimdiden yardımlarınız için teşekkür ederim.

 

[halit3]

alternatif olarak bir dosyada ben ekliyorum.

 

[svorm]

Halit Bey merhaba,

Gönderdiğiniz çalışma diğerlerinden daha farklı olmuş.

Bence çok güzel, elinize sağlık.