Arkadaşlar Textbox1'in içindeki değeri A sütununda arayan ve bulduğunda o satırı silen bir makro yazdım. Ancak sorun şu ki eğer textbox'ın içeriğini sütunda bulamazsa kod hata veriyor. bu hatayı vermesi yerine eğer textbox içindeki değer sütunda bulunamazsa "FATURA NO. HATALI" uyarı mesajı verip...
Selam,
Arkadaşlar, find komutu ile bir değeri birçok kolonda arıyorum. Ancak, bulunan değer aynı satırda birden fazla var ise, satırı ListView'e mükerrer yazıyor. Bunu engelemek isityorum. Aynı zamanda Listview'de aranan değerin olduğu item'i maviye boyuyorum. Bu özelliğin de bozulmamasını...
Merhaba arkadaşlar.
3 Adet TextBox ve 3 Adet ComboBox ile Listview'da süzme işlemini aşağıdaki kod ile yapıyorum.
Listview'a yüklenen 8.Item'in değeri 0 ise bu satırın renklendirilmesini istiyorum. UserForm_Initialize olayında bu işlem If l.SubItems(8) = "0" Or l.SubItems(8) = "" Then...
Merhabalar dostlarım uzun bir aradan sonra tekrar aranızda olmak benim için büyük bir mutluluk. öncelikle tüm dostlarıma çalışmalarında başarılar dilerim. benim bu seferki sorunum şu bir Userform üzerinde 26 adet combobox ım var ve bunlar stok kartlarımı çağırıyorlar
Private Sub...
Merhaba arkadaşlar.UserForm üzerinden bir textbox aracılığıyla girilen verileri tüm çalışma kitabında bulacak bir bakıma CTRL+F ile aynı ya da benzer işleve sahip bir makro oluşturmak istiyorum.Bu konuda yardımlarınızı bekliyorum.Teşekkürler.
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter...
Private Sub TextBox7_Change()
TextBox1 = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
' TEXTBOX İÇİNDE ARAMA YAPAR
'If KeyCode <> 13 Then Exit Sub
On Error Resume Next
If Trim(TextBox1.Value) = "" Then: listeguncelle: Exit Sub
Set sh = Sheets("Tüm Liste")
ara = TextBox1.Value
Set bulunacak...
Aşağıdaki kod ile listboxta arama yaptırıyorum. Ancak Textbox'a arama için veri girdiğimde listboxtaki tarihler hücre de 12.01.2010 iken listboxta 1/12/2010 olarak görünüyor. Tarihin hücrede yazılı şekilde görünmesi için yardımlarınızı bekliyorum. Tarihlerin olduğu sütun "S" sütunu yani 19...
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Integer
x = Sheets("VERİ").Range("A:A").Cells.Find(What:=ListBox1, LookIn:=xlValues).Row
ComboBox1.Value = ListBox1
ComboBox1 = Sheets("VERİ").Cells(x, 1)
TextBox1 = Sheets("VERİ").Cells(x, 2)
TextBox2 =...
Private Sub ComboBox1_Click()
On Error Resume Next
Sheets("FİRMALAR").[A2:A65536].Find(ComboBox1.Value).Activate
ComboBox2 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 2).Value
End Sub
Private Sub ComboBox2_Click()
On Error Resume Next
Sheets("FİRMALAR").[B2:B65536].Find(ComboBox2.Value).Activate...
Private Sub ListBox1_Click()
Dim X As Integer
X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
Cells(X, 4).Select
TextBox3.Value = ListBox1
TextBox7.Value = ListBox1
End Sub
ListBox1' tıklayınca Textboxlara aynı veriler geliyor.TextBox3'e gelen verinin bir...
Merhabalar .
dogru kodu bulamadım sanıyorsam.
commandbutton ile textbox' ın değerini aratamıyorum. listboxta aratamıyorum
yardımlarınızı rica ederim.
birde 60.000 satır var çok ağır çalışıyor listbox aramada
evren bey find komutunu kullanmamı istedir fakat bu komutu hiç kullanamdım
örnek...
Herkese kolay gelsin.
Ekteki dosyada sayfa2 deki ad-soyad verilerini textbox a girilen karaktere göre aratarak listbox a aktarıyor ve listboxda değer seçildiğinde sayfa2 de ilgili ad-soyad a ait diğer bilgileri label de göstermeye çalıştım.
Fakat biryerde takıldım. Eğer aynı ad-soyad a sahip...
Ustalara Selam ;
UCase Komutunu aşağıdaki makroda kullanmaya çalıştığımda comple error, Can't find project or library hatası veriyor. Ne yapmam gerekiyor. Aynı kod başka bir makinada çalışıyordu.
Private Sub CommandButton1_Click()
Worksheets("Menu").Unprotect
If UCase(TextBox1.Value) =...
merhaba arkdaşlar sitenin yardımıyla okul için kurs takip çalışması yapmaya çalışıyorum .Arama işleminde takıldım .Ben ara sayfasında isim veya numara girince veri sayfasındaki o isme ait numaraları ve isimleri sırasın istiyorum .Çünkü birden fazla kayıt olabiliyor.Ben ara sayfasında bilgileri b...
arkdaşlar siteden yaralanarak kullandığım macro sayfayı ototatik şifreleme ve süzme işemi yapıyor oysa ben bulmuş olduğu satırı sarı renk yapsın istiyorum dosyam ektedir bakabirmisiniz kullanmış olduğum macro ise şu :
Private Sub TextBox1_Change()
On Error Resume Next
NO =...
Herkese merhabalar;
Aşağıdaki kodla "adi" adlı comboboxtan seçtiğim isme ait satırın 36. sütunundaki hücreye "gorusme" adlı textbox ın değerini atıyorum.Ancak kodu şöyle düzenlemem gerekiyor:
isme ait satırın 36. veya 36 dolu ise sonrasındaki ilk boş satırındaki hücreye eşitle.
Düzenlememe...
kolay gelsin. Sorgu çalıştır ile Bordro ve Personel bilgi sayfalarından veri alıyorum. Aşağıdaki kod ile de veriler arasında gezinirken sadece bordrodan verileri aldığını farkettim. Yani Sipin Button ile bir başka veriyi çağırdığımda bordro sayfasındaki veriler geliyor ama Personel bilgi...
Arkadaşlar ayrı bir sayfa açmak istemiyordum aslında ancak cevap gelmediği için maalesef konu açtım. aşağıdaki kodu tek koda dönüştürmek istiyorum yardımcı olabilir misiniz?
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox9 = Empty Then Label22 = "": Exit Sub
Label22 =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.