Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 14 Temmuz 2010, 11:14:16
-
Selam bana yardımcı olabilirmisiniz ekte dosya gönderdim
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Dosyanız ektedir.
2nci sorunuz için ben excel vba da böyle bir nesne olduğunu sanmıyorum.
Ama textbox ve listbox yardımı ile bir şeyler yaptım.:cool:
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
çok teşekkür ederim sağolun
-
Daha önce yaptığımız bu a sutunundaki liste calışıyor.Ancak ben listeyi c sutuna koydum makronun a1 olan yerini c1 yaptım ama çalışmıyor.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Problem yok.Çalışıyor.
Sanırım siz tasarım modundan çıkmamışsınız.
Hani VBA barında Üçgen var ya onu pasif hale getirmelisiniz.O zman tasarım modundan çıkar.
Tasarım modunda da iken hiç bir makroyu çalıştıramazsınız. :cooll
-
benim bir öğrenci listem var isimler c de ona uydurmaya calışıyorum.Ama hep a sutunu görüyor ve a sutun da o ismi bulamadığı için hep toplanıyor.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
C kolunu 3ncü alanda yani Field:=3 te
1nci alan filterin başladığı ilk alandır.
Dosyanız ektedir. :cooll
Private Sub TextBox1_Change()
Range("c1").AutoFilter field:=[color=blue][b]3[/b][/color], Criteria1:=TextBox1.Text & "*"
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
teşekkürler,ellerinize sağlık
-
Abi bu konuyu biraz daha değişik yapabilrimiyiz.Yani c,d ve e sutunlarında arayabilirmiyiz.Yani mustafa yazınca hem c,hem d,hemde e sutunundaki mustafaları bulabilrimi
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Bunun için süz sayfası yaptım.
Yalnı d ve e sütunlarında isim yok.
Dosyanız ektedir. :cooll
Private Sub TextBox1_Change()
Dim sh As Worksheet, var As Boolean
Dim conn As Object, rs As Object
TextBox1.Text = UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ"))
Range("A2:AH65536").ClearContents
Set sh = Sheets("ÖĞRENCİ BİLGİLERİ")
If sh.AutoFilterMode = True Then
var = True
sh.Range("A1").AutoFilter
End If
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no;imex=1"";"
rs.Open "select * from [ÖĞRENCİ BİLGİLERİ$A2:AH65536] where F3 like '" & _
TextBox1.Text & "%' or F4 like '" & TextBox1.Text & "%' or F5 like '" & _
TextBox1.Text & "%';", conn, 1, 1
If rs.RecordCount > 0 Then Range("A2").CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing
Set conn = Nothing
Set rs = Nothing
If var = True Then sh.Range("A1").AutoFilter
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
bu dosyada nasıl uygulanır
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Dosyanız ektedir.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
teşekkürler
-
Rica ederim. :cooll
-
Selam Abi bunu süz kullanmadan nasıl bu tabloda yapabiliriz
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Dosyanız ektedir. :cooll
Private Sub TextBox1_Change()
Dim sat As Long, i As Long
Rows("2:65536").Hidden = False
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
If WorksheetFunction.CountIf(Range("B" & i & ":D" & i), TextBox1.Text & "*") = 0 Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Teşekkür ederim.
-
selam sınıflar sayfasında text box ilk veri gince güzel çalışıyor ondan sonra veri girince donuyor neden kaynaklanabilir.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
selam sınıflar sayfasında text box ilk veri gince güzel çalışıyor ondan sonra veri girince donuyor neden kaynaklanabilir.
Nereye veri girince donuyor?
-
sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1
-
sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1e halide güzel yaıyorum çıktı alıyorum. Daha sonra başka isim yazınca donuyor
belli süre
-
sınıflar sayfasındaki A1 hücresinin üzerindeki textbox.1e halide güzel yaıyorum çıktı alıyorum. Daha sonra başka isim yazınca donuyor
belli süre
Uymayan satırları gizliyor.
O sebeten bekliyor.
Ancak bunu her harfe bastığında yapıyordu.Kodlar changed olayına yazıldığı için.Ben bu yüzden kodu changed olayına yazmayı pek tavsiye etmiyorum.
Bu durumu sadece tetxboxtan çıkınca çalışacak şekilde değiştirdim.
Bir miktar düzeldi.
Dosya ektedir.
Private Sub TextBox1_LostFocus()
Dim sat As Long, i As Long
Rows("2:65536").Hidden = False
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
If WorksheetFunction.CountIf(Range("B" & i & ":D" & i), TextBox1.Text & "*") = 0 Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
teşekkür ederim sağolun.