makrolu özel filtreleme

[mbattal]

Ustalar günaydın,

Ekteki dosyama göz atıp yardım ederseniz çok çok sevinirim.

Teşekkürler

Herkese kolay gelsin.

 

[Recep İpek]

Dosyanızı inceleyiniz.Umarım güzel olmuştur.

D2 hücresine yazdırma için A kolonuna çift tıklayınız.

 

[mbattal]

Sayın ripek,
elinize sağlık çok güzel olmuş,
fakat D2 hücresine giriş yaptığımda ben entere basmadan yaptığım girişe göre kendisi A sütununu otomatik filtre edebilirmi ?
çok şey mi istiyorum

 

[Recep İpek]

Dosyayı güncelledim.

 

[mbattal]

İşte bu....
Çok çok teşekkürler Sayın ripek
Bu VBA daki kodları kendi dosyama kopyalarsam çalışır değil mi

 

[Recep İpek]

Kodlarını sayfanın VBE bölümüne kopyalamanız yeterlidir.

Ayrıca sayfaya Araç Kutusundan Textbox1 nesnesini eklemeniz gerekiyor.

 

[mbattal]

Sayın ripek,
Açıkçası Textbox1 nesnesini ekleyemedim ama sizin yapmış olduğunuz sayfayı kullanmaya çalışacağım Textbox1 kutusundaki seçilmiş olan kod nosunu formül yardımıyla A2 hücresine nasıl yazdırabilirim
fazla oldum biliyorum ama idare edin lütfen

 

[Recep İpek]

Sayfaya Textbox eklemek için üstteki araç çubuğundaki boşluklarda (sağ taraf) sağ klik yapın.

Buradan Control Toolbox'ı seçin.

Bu araç çubuğundaki Textbox nesnesini tutup sayfanızda herhangi bir yere bıkarabilirsiniz.

Araç çubuğunun başında bulunan cetvele benzer nesneyi tıklayarak Textbox'da düzenleme yapabilirsiniz.Bu durumdayken Textbox'a çift tıklarsanız VBA ekranı açılır.Buraya kodlarınızı kopyalayabilirsiniz.

İlk nesneye tekrar tıklarsanız tasarım modundan çıkılarak Textbox'ı kullanmaya başlayabilirsiniz.

 

[mbattal]

Sayın ripek çok teşekkür ederim işimin %90 ' nı holloldu birde bana Textbox1 kutusundaki değeri formül yardımıyla A1 hücresine nasıl yazdıracağımı söylerseniz bu iş biter.
Hakkınızı helal edin sizi çok uğraştırdım

 

[Recep İpek]

Kodlarınıza aşağıdaki satırı ekleyin.

Private Sub TextBox1_Change()
On Error Resume Next
veri = TextBox1.Value
Range("A5:A20000").AutoFilter Field:=1, Criteria1:=veri & "*"
If veri = "" Then
Selection.AutoFilter Field:=1
End If
TextBox1.Activate
[b][A1] = TextBox1.Value[/b]
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
TextBox1 = Target.Value
Target.Offset(1, 0).Select
TextBox1.Activate
End Sub

 

[mbattal]

Sayın ripek
size nasıl teşekkür edeceğimi bilmiyorum
elinize, beyninize ve sabrına sağlık
mutluluklar dilerim