- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
ListBox her hangi bir harf yazdığımda, yazmış olduğum o harfe göre sutundaki değerleri sıralamasını istiyorum...(listbox a "b" harfi girmişsem b ile başlayanları getirmesini istiyorum.) dosya ektedir kolay gelsin...
arama
- Konbuyu başlatan karakayalı
- Başlangıç tarihi
Sayın karakayalı
Dosyanız ektedir.
Not: A sütununda istenilen sonuç alınamamıştır. Değerli arkadaşlar bu alanda bir çok deneme yapmama rağmen sonuç alamadım, A sütunu için bir çözüm üretebilirseniz hem sayın karakayalı'nın problemini çözmüş, hemde nerede hata yaptığımı görmem açısından benide bilgilendirmiş olursunuz, yardımlarınız için teşekkür eder, iyi çalışmalar dilerim.
Dosyanız ektedir.
Not: A sütununda istenilen sonuç alınamamıştır. Değerli arkadaşlar bu alanda bir çok deneme yapmama rağmen sonuç alamadım, A sütunu için bir çözüm üretebilirseniz hem sayın karakayalı'nın problemini çözmüş, hemde nerede hata yaptığımı görmem açısından benide bilgilendirmiş olursunuz, yardımlarınız için teşekkür eder, iyi çalışmalar dilerim.
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
Sayin Braİn Aramayi BaŞ Harfİne GÖre Yapabİlİrmİyİz...ÖrneĞİn Ben E YazdiĞimda CÜmle İÇerİsİnde E Harfİ GeÇenlerİn Hepsİnİ Getİrİyor...ben İstİyorum Kİ Sadece Bana BaŞ Harfİ "e" İle BaŞlayanlari Getİrsİn...yardimlariniz İÇİn TeŞk.ler...
Sn.Karakayalı bu konuda formda örnekler var. Textboxla süz olarak arama yaparsanız bulabilirsiniz. Alterntif bir örnek ekliyorum. kolay gelsin.
Not: ilk 2 textbox'a kod uygulanmıştır.
Not: ilk 2 textbox'a kod uygulanmıştır.
Son düzenleme:
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
Sayın meslan, emeğiniz için teşekkürler...çok güzel olmuş, ancak küçük harfle yazılanları bulmuyor...birde baş harfine göre arama yaptırmak istiyorum demiştim ancak o işimi görmedi...cümlenin her hangi bir yerinde geçen cümleye göre arama yaptırabilirmiyiz...gerçi sayın brain yazdığında kodda bu işimi görüyor ancak orada da;
Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub
kodunu çalıştıramadım...yardımlarınız için şimdiden tşk.ler...
Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub
kodunu çalıştıramadım...yardımlarınız için şimdiden tşk.ler...
merhaba,
Private Sub TextBox2_Change()
Application.ScreenUpdating = False
x = WorksheetFunction.CountA([b:b]) + 3
Rows("2:" & x).EntireRow.Hidden = False
a = Len(TextBox2.Value)
For i = 2 To [b65536].End(3).Row
If UCase(TextBox2.Value) <> Left(Cells(i, 2), a) And LCase(TextBox2.Value) <> Left(Cells(i, 2), a) Then
Rows(i).Hidden = True
End If
Next
If TextBox2.Value = "" Then Rows("2:" & x).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
deneyiniz. Kolay gelsin.
Private Sub TextBox2_Change()
Application.ScreenUpdating = False
x = WorksheetFunction.CountA([b:b]) + 3
Rows("2:" & x).EntireRow.Hidden = False
a = Len(TextBox2.Value)
For i = 2 To [b65536].End(3).Row
If UCase(TextBox2.Value) <> Left(Cells(i, 2), a) And LCase(TextBox2.Value) <> Left(Cells(i, 2), a) Then
Rows(i).Hidden = True
End If
Next
If TextBox2.Value = "" Then Rows("2:" & x).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
deneyiniz. Kolay gelsin.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,880
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Private Sub TextBox1_Change()
satır = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65536")) + 1
a = Len(TextBox1.Value)
For i = 2 To satır
b = Mid(Cells(i, 1), 1, a)
If Cells(i, 1) <> "" Then
If TextBox1.Text = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next
End Sub
Birde böyle birşey deneyiniz
satır = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65536")) + 1
a = Len(TextBox1.Value)
For i = 2 To satır
b = Mid(Cells(i, 1), 1, a)
If Cells(i, 1) <> "" Then
If TextBox1.Text = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next
End Sub
Birde böyle birşey deneyiniz
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
sayın halit3 kod çalışmadı...kolay gelsin...
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
SAYIN MESLAN, küçük büyük harf şeklinde sorgulama yapabiliyorum...cümlenin her hangi bir yerinde geçen kelimeye görede arama yaptırabilirmiyiz... örneğin mehmet kasım yıldız ismini "yıldız" olarak yazdığımda versin...kolay gelsin...
Sn.karakayalı istediğiniz özelliği textbox3'e ekldim. Diğerlerinde gerkli düzenlemeliri isteğinize göre siz yaprsınız. Kolay gelsin.
Son düzenleme:
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
SAYIN MESLAN, elinize sağlık...çok güzel ancak benim bu tabloda yaklaşık 10.000 kadar verilerim var...kodlardan kaynaklımıdır bilmiyorum...çok ağır çalışıyor..bazen kilitleniyor...yinede yardımlarınız için tşk.ler..
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,880
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Private Sub TextBox4_Change()
satır = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("D2
65536")) + 1 'sutun numarası alfabetik buraya yazılacak
sutun = 4 'sutun numarası sayısal buraya yazılacak
nesne = TextBox4.Value 'TextBox adı yazılıcak
a = Len(nesne)
For i = 2 To satır
b = Mid(Cells(i, sutun), 1, a)
If Cells(i, sutun) <> "" Then
If nesne = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next
End Sub
bak arkadaş sutunlara göre bunların dağılımını sen yapacaksın bu ornek D sütün için yani 4 sıralı sutun için yapılmıştır.
satır = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("D2
65536")) + 1 'sutun numarası alfabetik buraya yazılacaksutun = 4 'sutun numarası sayısal buraya yazılacak
nesne = TextBox4.Value 'TextBox adı yazılıcak
a = Len(nesne)
For i = 2 To satır
b = Mid(Cells(i, sutun), 1, a)
If Cells(i, sutun) <> "" Then
If nesne = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next
End Sub
bak arkadaş sutunlara göre bunların dağılımını sen yapacaksın bu ornek D sütün için yani 4 sıralı sutun için yapılmıştır.
- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
sayın brain göndermiş olduğu dosya arama2.xls işimi gördü...ancak burada SOn SATIRA GİT MAKROSU çalışmadı...
bu konuda yardımlarınızı bekliyrum...kod aşağıdakigibidir...başka bir dosyada çalışıyor ancak arama2.xls dosyasında çalışmıyor...
Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub
bu konuda yardımlarınızı bekliyrum...kod aşağıdakigibidir...başka bir dosyada çalışıyor ancak arama2.xls dosyasında çalışmıyor...
Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub