hücre içine arama moturu yapmak

[turist]

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]

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]

Sağolun,
Belki farklı bir çözümle yeni bir dosya ekleyebilirim.(Acil değilse geniş zamanda olabilir)

 

[relaxim]

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]

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.

 

[Schuba]

Sağolun,
Belki farklı bir çözümle yeni bir dosya ekleyebilirim.(Acil değilse geniş zamanda olabilir)

hocam acelesi yok beklerim çözülüceğinden şüpem yok...

 

[turist]

Sayın @Schuba ,
Anlayışınız ve geri bildiriminiz için teşekkürler, sağolun.

 

[turist]

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]

Merhaba,

#3. mesajdaki ekli dosyanız için alternatif çalışma.

 

[Schuba]

Merhaba,

#3. mesajdaki ekli dosyanız için alternatif çalışma.

ziynettin hocam eklediğiniz dosyadaki arama yapıcağım hücreye tıklayınca kod hatası veriyıor birşey yazamıyorum..

 

[Ziynettin]

Ekli dosyayı denedim bende hata vermedi. Sizde nasıl hata veriyor, hata aldığınız dosyayı ekleyin bakalım.

 

[Schuba]

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

 

[Asri]

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]

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.

 

[Erdem Akdemir]

Örnek dosyayı inceleyiniz.

 

[Ziynettin]

Sayın kuvari; asri;
Soru sahibi arkadaş hata verdiğini, bende hata vermiyor. #32. mesajdaki ekli dosyaya bakabilir misiniz sizlerde hata veriyor mu?

 

[derisa963]

@relaxim Merhabalar. Alternetif Olarak Makrosuz ve Formülsüz Veri süzme hakkında İncelemek İsterseniz.

 

[relaxim]

@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.