Hocam listbox da sonuca çift tıkladığımizda herhangi bir hücrede seçili kisiyi gösterebilirmiyiz? Örnek 1:01 cift tikladigimizda G3 hücresinde görünsün
Hocam öncellikle emeğinize sağlık benim size şöyle bir sorum olacak userformda yer alan textbox ı başka bir userforma kes yapıştır yapsak ve sadece yeni yaptığımız userform üzerinden arama yapsak olmaz mı
merabalar, tam aradığım hususa değinmişiniz. Benim de ufak bir sorum olacak. Sizde dizi sayısı belli olduğu için ReDim komutunu kullandınız, benim uygulayacağım dizinde dizin sayısı belli değil, her kayıtta dizine veri ekleniyor. Bu durumda hangi komutu kullanmam gerekiyor. Şimdiden çok teşekkürler.
Hocam merhaba. Örneği ben kendi listeme uyarladım. İlk olarak benim listem 2 sütunlu. Yani 1. sütunda parça adı, 2. sütunda parça kodu var. Listeye adı ve kodunu nasıl birlikte getirebiliriz. İkinci olarak ta "başlayan" tikli iken liste doluyor. "içerir" i tıkladığımda ve bir şeyler yazdığımda çalışmıyor. tekrar "başlar" ı tıklayıp, yeniden içerir e tıklayıp yazdığımda verileri getiriyor. içerir i tıkladığımda listeyi silip yazdığım karakterlere göre listeyi nasıl getirebiliriz
Hocam iyi günler. Videonuz çok yardımcı oldu ancak projemde için listbox yetetli değil. Vba ile bağlantı yaptığımda sadece arama yaptığım sütunu getiriyor. Yani müşteri ismi arattığımda sadece mülteri stünunu getiriyor. Bana müşteri no ve iletişim bilgilerinin bulunduğu sütunları da getirmesini istiyorum. Yani araması yapılan ve bulunan satırın tamamını getirsin istiyorum. Yardıncı olursanız sevinirim.
İyi günler hocam derslerinizi ilgi ile takip ediyorum. şu kod ile textbox1 yazdıklarımla tablomu metin olan sutunlarda filtreleyebiyorumrum.ama filtredigim sütun sayısal değerler ise filtre hiçbir değer bulamıyor. Range("A6:D1000").CurrentRegion.AutoFilter Field:=2, Criteria1:="*" & TextBox1 & "*" Sayıların olduğu sütunda içerir şeklinde filtreleme nasıl yapılır.(cihaz mod: 3710,3711,3712,4110,4210. 37 yazınca 3 model filtrelensin)
Hocam, arama kutusuna küçük i ve ı harfleri ile yazılan kelimelerde sıkıntı oluyor. nasıl çözeriz? örneğin ali yazınca listede olduğu halde bulmuyor, ALİ yazınca buluyor. aynı şekilde asım yazınca çıkmıyor, ASIM yazmak gerekiyor arama kutusuna. edit: aranan = Ucase(TextBox1) yazan kısmı aranan = Evaluate("=UPPER(""" & TextBox1 & """)") şeklinde yazınca problem çözülmüş oldu.
İyi akşamlar ben f8 i deniyorum olmadı birde yazdığınız görmüş kırmızı oluyor yardımcı olursanız sevinirim malzeme listesi aramak için yapmaya calosoyorum
Mustafa hocam, pivot tablo ile birlikte uzayip kisalan tablo nasil yapabiliriz boyle birsey mumkun mudur ? Gunluk raporlamalarda kullandigim bir pivot tablom var her gun satir sayisi degisebiliyor bu pivot tablo uzerindeki verileri calculated field dan cozmedigim icin hemen yanina formulleri iceren bir tablo ekledim ama pivot degistikce tablo pivot ile birlikte uzayip kisalmiyor bunu nasil yapabiliriz ? Saygilar
@@MMUSTAFABOLAT hocam sorunda orda tablodan pivot ile linkleri cekiyorum ama hyperlink yapmam icin ekstra formul gerekiyor pivotta da bunu yapamiyorum. Birkac farkli konuda daha ihtiyac duymustum boyle birseye.
Hocam öncelikle ağzınıza sağlık , sorum şu bu kodu birebir aldın şehir isimlerini listbox a aldırıcam fakat a yazınca a ile başlayan şehirler geliyor ikinci harfi girince liste siliniyor . Yani tek harfe duyarlı ben iki hatta üç dört harfe göre getirmek istiyorum.
neden diye sorarsan hocanin listesindeki tum isimler buyuk harifle yazilmis. sen kendi listende ilk harf buyuk diyerleri kucuk yazmiwsin sanirim o yuzden Ucase kaldirman lazim
Private Sub TextBox1_Change() On Error Resume Next ListBox1.Clear aranan = UCase(TextBox1.Text) sonsatir = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row ReDim dizi(sonsatir) As Variant If OptionButton1 = True Then x = 0 For i = 1 To sonsatir - 1 If Sheets(1).Cells(i, 1) Like aranan & "*" Then dizi(x) = Sheets(1).Cells(i, 1) x = x + 1 End If Next i Else x = 0 For i = 1 To sonsatir - 1 If Sheets(1).Cells(i, 1) Like "*" & aranan & "*" Then dizi(x) = Sheets(1).Cells(i, 1) x = x + 1 End If Next i End If ReDim Preserve dizi(x - 1) ListBox1.List = dizi End Sub
Ellerinize sağlık, güzel bir paylaşım. Hayra vesile olan o hayrı yapmış gibidir. Teşekkürler...
Hocam paylaşılan içerikler zaten güzel ama özellikle anlatım tarzınız çok iyi. Hemen Udemy'den bir kaç kursunuzu aldım. Başarılar dilerim..
Elinize sağlık kıymetli hocam, sağ olunuz. Gayet güzel...
merhaba ellerinize sağlık. bir sorum olacaktı. bu prgramın aynısının birden fazla sutün olanını nasıl yaparız. Bilgi verir misiniz?
elinize emeğinize sağlık hocam teşekkürler
Allah Razı Olsun Hocam :)
Sağolun hocam çok güzel anlatınız .
Elinize emeğinize sağlik ...çok guzel çalişma olmuş
Hocam listbox da sonuca çift tıkladığımizda herhangi bir hücrede seçili kisiyi gösterebilirmiyiz?
Örnek 1:01 cift tikladigimizda G3 hücresinde görünsün
Hocam öncellikle emeğinize sağlık benim size şöyle bir sorum olacak userformda yer alan textbox ı başka bir userforma kes yapıştır yapsak ve sadece yeni yaptığımız userform üzerinden arama yapsak olmaz mı
Hocam, aradığımız değerler sayfa1 m sütununda yer alıyorsa onun aramasını nasıl yapabiliriz. direk a sütunundaki verileri arıyor ?
merabalar, tam aradığım hususa değinmişiniz. Benim de ufak bir sorum olacak. Sizde dizi sayısı belli olduğu için ReDim komutunu kullandınız, benim uygulayacağım dizinde dizin sayısı belli değil, her kayıtta dizine veri ekleniyor. Bu durumda hangi komutu kullanmam gerekiyor. Şimdiden çok teşekkürler.
listboxda listelenen verileri seçtiğimizde başka bir hücreye nasıl alabiliriz
Hocam aranan değeri tc no olarak aramak için nasıl bir kod yapmalıyız mesala tc no 36. Sütün da olursa ne yapmalıyız. Kolay gelsin.
Hocam merhaba. Örneği ben kendi listeme uyarladım. İlk olarak benim listem 2 sütunlu. Yani 1. sütunda parça adı, 2. sütunda parça kodu var. Listeye adı ve kodunu nasıl birlikte getirebiliriz. İkinci olarak ta "başlayan" tikli iken liste doluyor. "içerir" i tıkladığımda ve bir şeyler yazdığımda çalışmıyor. tekrar "başlar" ı tıklayıp, yeniden içerir e tıklayıp yazdığımda verileri getiriyor. içerir i tıkladığımda listeyi silip yazdığım karakterlere göre listeyi nasıl getirebiliriz
Hocam iyi günler. Videonuz çok yardımcı oldu ancak projemde için listbox yetetli değil. Vba ile bağlantı yaptığımda sadece arama yaptığım sütunu getiriyor. Yani müşteri ismi arattığımda sadece mülteri stünunu getiriyor. Bana müşteri no ve iletişim bilgilerinin bulunduğu sütunları da getirmesini istiyorum. Yani araması yapılan ve bulunan satırın tamamını getirsin istiyorum. Yardıncı olursanız sevinirim.
Teşekkürler
İyi günler hocam derslerinizi ilgi ile takip ediyorum.
şu kod ile textbox1 yazdıklarımla tablomu metin olan sutunlarda filtreleyebiyorumrum.ama filtredigim sütun sayısal değerler ise filtre hiçbir değer bulamıyor.
Range("A6:D1000").CurrentRegion.AutoFilter Field:=2, Criteria1:="*" & TextBox1 & "*"
Sayıların olduğu sütunda içerir şeklinde filtreleme nasıl yapılır.(cihaz mod: 3710,3711,3712,4110,4210. 37 yazınca 3 model filtrelensin)
Hocam, arama kutusuna küçük i ve ı harfleri ile yazılan kelimelerde sıkıntı oluyor. nasıl çözeriz? örneğin ali yazınca listede olduğu halde bulmuyor, ALİ yazınca buluyor. aynı şekilde asım yazınca çıkmıyor, ASIM yazmak gerekiyor arama kutusuna.
edit:
aranan = Ucase(TextBox1)
yazan kısmı
aranan = Evaluate("=UPPER(""" & TextBox1 & """)")
şeklinde yazınca problem çözülmüş oldu.
harika üstad
İyi akşamlar ben f8 i deniyorum olmadı birde yazdığınız görmüş kırmızı oluyor yardımcı olursanız sevinirim malzeme listesi aramak için yapmaya calosoyorum
Hocam öncelikle emeğinize sağlık. Yalnız sanırım harf sorunu var Adı yazınca ADIYAMan çıkmıyor, Adi yazınca çıkıyor.
Mustafa hocam, pivot tablo ile birlikte uzayip kisalan tablo nasil yapabiliriz boyle birsey mumkun mudur ? Gunluk raporlamalarda kullandigim bir pivot tablom var her gun satir sayisi degisebiliyor bu pivot tablo uzerindeki verileri calculated field dan cozmedigim icin hemen yanina formulleri iceren bir tablo ekledim ama pivot degistikce tablo pivot ile birlikte uzayip kisalmiyor bunu nasil yapabiliriz ? Saygilar
Veriyi tabloya dönüştürürseniz otomatik olarak yeni eklenen verileri de hesaplar.
@@MMUSTAFABOLAT hocam sorunda orda tablodan pivot ile linkleri cekiyorum ama hyperlink yapmam icin ekstra formul gerekiyor pivotta da bunu yapamiyorum. Birkac farkli konuda daha ihtiyac duymustum boyle birseye.
Hocam öncelikle ağzınıza sağlık , sorum şu bu kodu birebir aldın şehir isimlerini listbox a aldırıcam fakat a yazınca a ile başlayan şehirler geliyor ikinci harfi girince liste siliniyor . Yani tek harfe duyarlı ben iki hatta üç dört harfe göre getirmek istiyorum.
Çoklu harfe göre duyarlıdır. Siz yazdıkça otomatik dolar
aranan=Ucase(Textbox1.text) burada Ucase yazisini sil sorun duzelicek
neden diye sorarsan hocanin listesindeki tum isimler buyuk harifle yazilmis. sen kendi listende ilk harf buyuk diyerleri kucuk yazmiwsin sanirim o yuzden Ucase kaldirman lazim
ve ya Listendeki isimlerin hepsini Buyuk harf yap sorun cozulecekdir
Hocam hata veriyor birebir aynısını yaptim
Private Sub TextBox1_Change()
On Error Resume Next
ListBox1.Clear
aranan = UCase(TextBox1.Text)
sonsatir = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
If OptionButton1 = True Then
x = 0
For i = 1 To sonsatir - 1
If Sheets(1).Cells(i, 1) Like aranan & "*" Then
dizi(x) = Sheets(1).Cells(i, 1)
x = x + 1
End If
Next i
Else
x = 0
For i = 1 To sonsatir - 1
If Sheets(1).Cells(i, 1) Like "*" & aranan & "*" Then
dizi(x) = Sheets(1).Cells(i, 1)
x = x + 1
End If
Next i
End If
ReDim Preserve dizi(x - 1)
ListBox1.List = dizi
End Sub