hücre içine arama moturu yapmak

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın @relaxim,

Dosyanızda çalışan başka kodlar da vardı.Onların nasıl bir etkisi olur bilmiyorum.
Benim uyguladığım kodların içinde;

ActiveSheet.Unprotect "şifreniz ne ise"

şeklinde, önce Sayfa korumasını kaldırıp kodun en sonuna da

ActiveSheet.Protect "şifreniz ne ise"

yazarak yine sayfayı korumalı hale getirebilirsiniz.
 

Schuba

Altın Üye
Katılım
27 Ocak 2016
Mesajlar
170
Excel Vers. ve Dili
microsoft 365 family türkçe
asri hocam sizin yaptığınızda çok güzel olmuş alfabetik sıralama gayet güzel ve mantıklı fakat müşteri listesinin çok uzun olduğunu var sayarsak formda listelenmesini istediğimiz aralığın dışına çıkıyor ve formu bozuyor yani bir liste kutusunun olması şart gibi duruyor.

yani turist hocamın yaptığıyla sizin yaptığınızın bir karışımı olması lazım turist hocamın yaptığı gibi TextBox'a veri girildiğinde liste çıkacak sizin yaptığınız gibide veri girildikçe liste dinamik bir şekilde alfabetik sıraya göre listelenip değişkenlik göstererek kişi sayısı azalacak
ayrıca yine sizin yaptığınız gibi listede eyer girilen veri yoksa yazıldığı gibi kalıcak

bunun dışına mevcutta gerek turist hocam sizin yaptığınız son örnek ve gerekse asri hocam sizin yaptığınız örnek biçok çalışmamda çokn işime yarıyacak ikinizete çok teşekkür ederim

ayrıca asri hocam hatırlarsanız sizinle en son yaptığımız çalışmayı şuan aktif şekilde kullanıyorum çok işime yarıyor o çalışmada sizin emeyiniz çok büyük ayrıca size teşekkür ederim ....
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağolun,
Belki farklı bir çözümle yeni bir dosya ekleyebilirim.(Acil değilse geniş zamanda olabilir)
 

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
467
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Sayın @relaxim,

Dosyanızda çalışan başka kodlar da vardı.Onların nasıl bir etkisi olur bilmiyorum.
Benim uyguladığım kodların içinde;

ActiveSheet.Unprotect "şifreniz ne ise"

şeklinde, önce Sayfa koruma
Sayın @relaxim,

Dosyanızda çalışan başka kodlar da vardı.Onların nasıl bir etkisi olur bilmiyorum.
Benim uyguladığım kodların içinde;

ActiveSheet.Unprotect "şifreniz ne ise"

şeklinde, önce Sayfa korumasını kaldırıp kodun en sonuna da

ActiveSheet.Protect "şifreniz ne ise"

yazarak yine sayfayı korumalı hale getirebilirsiniz.
sını kaldırıp kodun en sonuna da

ActiveSheet.Protect "şifreniz ne ise"

yazarak yine sayfayı korumalı hale getirebilirsiniz.
Teşekkür ederim. Akşam evde deneyeceğim Inşallah yapabilirim. Saygılar
 

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
467
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Sayın @relaxim,

Dosyanızda çalışan başka kodlar da vardı.Onların nasıl bir etkisi olur bilmiyorum.
Benim uyguladığım kodların içinde;

ActiveSheet.Unprotect "şifreniz ne ise"

şeklinde, önce Sayfa korumasını kaldırıp kodun en sonuna da

ActiveSheet.Protect "şifreniz ne ise"

yazarak yine sayfayı korumalı hale getirebilirsiniz.
Turist hocam merhaba,

Dediğinizi yapmaya çalıştım. Hata verdiği yerlere dediğiniz kodları yazdım. Ancak 3~4 yere yazdığım için sayfa korumasını kaldırıp tasarım yapamaya başladığımda hemen sayfa koruma aktif oluyor.
Fatura sayfasında kaydet butonu ön izleme yapıp Fatura kayıtları sayfasına kayıt yapması lazım yapmıyor.
Ben tam olarak verdiğiniz kodları nereye yazmalıyım? Müsait olunca bu konuda bilgi verebilir misiniz?
Gerekirse programımı size gönderebilirim.

Saygılarımla.
 
Son düzenleme:

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın @Schuba ,
Anlayışınız ve geri bildiriminiz için teşekkürler, sağolun.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Turist hocam merhaba,

Dediğinizi yapmaya çalıştım. Hata verdiği yerlere dediğiniz kodları yazdım. Ancak 3~4 yere yazdığım için sayfa korumasını kaldırıp tasarım yapamaya başladığımda hemen sayfa koruma aktif oluyor.
Fatura sayfasında kaydet butonu ön izleme yapıp Fatura kayıtları sayfasına kayıt yapması lazım yapmıyor.
Ben tam olarak verdiğiniz kodları nereye yazmalıyım? Müsait olunca bu konuda bilgi verebilir misiniz?
Gerekirse programımı size gönderebilirim.

Saygılarımla.
"Konuşma başlat"(Eski Özel Mesaj) yoluyla dosyanızı ekleyip gönderiniz.
Dosya içinde isteğinizi ve sorunlu kısımları da belirtiniz, cevaplamaya çalışırım.
İyi çalışmalar.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
Ekli dosyayı denedim bende hata vermedi. Sizde nasıl hata veriyor, hata aldığınız dosyayı ekleyin bakalım.
 

Schuba

Altın Üye
Katılım
27 Ocak 2016
Mesajlar
170
Excel Vers. ve Dili
microsoft 365 family türkçe
HOCAM KIRMIZIYLA BELİRTTİĞİM ALANDA HATA VERİYOR. HATA VEREN DOSYAYI EKLEDİM..


Dim b
Private Sub ComboBox1_DropButtonClick()
[G14] = Me.ComboBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [G14:I15]) Is Nothing Then
Set sh = Sheets("REFERANS KAYIT FORMU")
Set s1 = Sheets("REFERANS TAKİP")
With sh
.ComboBox1.Height = Target.Height + 3
.ComboBox1.Width = Target.Width
.ComboBox1.Top = Target.Top
.ComboBox1.Left = Target.Left
.ComboBox1 = Empty
.ComboBox1.MatchEntry = 2
.ComboBox1.Visible = True
.ComboBox1.Activate
a = s1.Range("K27:K" & s1.[K65000].End(xlUp).Row).Value
Set AL = CreateObject("System.Collections.Arraylist")
For i = LBound(a) To UBound(a)
If Not AL.contains(a(i, 1)) Then AL.Add a(i, 1)
Next i
AL.Sort
.ComboBox1.List = AL.ToArray
b = AL.ToArray
End With
Else
Me.ComboBox1.Visible = False
End If
End Sub
Private Sub ComboBox1_Change()
Set sh = Sheets("REFERANS KAYIT FORMU")
With sh
If .ComboBox1 <> "" And IsError(Application.Match(.ComboBox1, b, 0)) Then
Set d1 = CreateObject("Scripting.Dictionary")
deg = UCase(.ComboBox1) & "*"
For i = LBound(b) To UBound(b)
If UCase(b(i)) Like deg Then d1(b(i)) = ""
Next i
.ComboBox1.List = d1.keys
.ComboBox1.DropDown
End If
End With
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.List = b
Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
[G14] = Me.ComboBox1.Value
[G17].Select
End If
End Sub
 

Ekli dosyalar

Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
asri hocam sizin yaptığınızda çok güzel olmuş alfabetik sıralama gayet güzel ve mantıklı fakat müşteri listesinin çok uzun olduğunu var sayarsak formda listelenmesini istediğimiz aralığın dışına çıkıyor ve formu bozuyor yani bir liste kutusunun olması şart gibi duruyor...
Girdiğiniz bilgiler sonuc alanını daralttıkça uzun bir liste yerine kısa bir liste oluşuyor.
Uygun bir zamanda ilk aşamada uzun bir liste yerine forma alanı kadar bir liste çıkmasını sağlamayı deneyebilirim. Yada çıkan listenin bir listbox da çıkmasını denerim.

Yazdığım kodları hatırlayamadım ama işinize yaramasına sevindim.
 

Schuba

Altın Üye
Katılım
27 Ocak 2016
Mesajlar
170
Excel Vers. ve Dili
microsoft 365 family türkçe
Uygun bir zamanda ilk aşamada uzun bir liste yerine forma alanı kadar bir liste çıkmasını sağlamayı deneyebilirim. Yada çıkan listenin bir listbox da çıkmasını denerim.
hocam vakit ayırsanız sevinirim hatta mümkünse verdiğiniz örneklerin ikisinde örnek birer dosya ile gönderirseniz bana hangisi daha uygunsa onu kullanmak isterim. listbax tercihim olur.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
Sayın kuvari; asri;
Soru sahibi arkadaş hata verdiğini, bende hata vermiyor. #32. mesajdaki ekli dosyaya bakabilir misiniz sizlerde hata veriyor mu?
 
Katılım
19 Ağustos 2017
Mesajlar
174
Excel Vers. ve Dili
2016 TR
@relaxim Merhabalar. Alternetif Olarak Makrosuz ve Formülsüz Veri süzme hakkında İncelemek İsterseniz.
 

Ekli dosyalar

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
467
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
@relaxim Merhabalar. Alternetif Olarak Makrosuz ve Formülsüz Veri süzme hakkında İncelemek İsterseniz.
derisa963 ilginize teşekkür ederim. Ben arama kutusunu çalıştıramadım. Benim malzeme seçme konusunda sıkıntım yok. A11 ile A35 arasına çift tıklarsanız liste kutusu açılır, firmanın ismini girerken listelemeye başlıyor, ilgili firmanın malzemelerinden çift tıklayarak seçim yapıyorum. Bizde bir mal bir firmaya gider. Firma seçme işini biraz daha kolaylaştırmak istemiştim. Tekrar ilgi ve alakanıza teşekkür ederim.
 
Üst