Veri'de Arama Yapmak

[fenerlist_0]

Merhaba,
Ekte göndermiş olduğum dosyada Giriş sayfası B sütununda veri doğrulama ile ürünlerin isimlerini seçebiliyorum.Normalde bu ürünlerin 5-6 katı ürün var,bunları seçerken satırda kısa arama yapabilirmiyim ? Ürünün 3-4 harfini yazdığımda filtreleyerek daha kısa sürede ürünü bulabilirmiyim ? Ekte resimde gönderiyorum

 

[YUSUF44]

Farklı bir bakışla hazırladığım ekli dosyayı inceleyiniz. Başka bir konu için hazırlamıştım, sizin dosyaya uyarlamaya çalıştım.

 

[fenerlist_0]

Elinize sağlık teşekkürler,ben diğer ürünleri nasıl ekleyebilirim

 

[YUSUF44]

Günaydın. Userforma veriler ürünler sayfasından geliyor. Ürünler sayfasında değişiklik yapabilirsiniz.

 

[fenerlist_0]

Günaydın,
Ürün seçiminin sütunu nasıl değiştirebilirim ? örneğin listenin başına tarih ve seğment ekleyeceğim ,ekliyorum fakat ürün seçimi sadece B sütununda çıkıyor

 

[YUSUF44]

Anlamadım maalesef. Verileri artık B sütunundan değil de başka sütundan mı almak istiyorsunuz? Eğer öyleyse ve userformda başka sütunların da görünmesini istiyorsanız örnek dosyanızı güncelleyip paylaşmanızı ve tam olarak nerede nasıl değişiklik yapılmasını istediğinizi belirtmenizi tavsiye ederim.

 

[fenerlist_0]

Merhaba,anlatmak istediğime tablodaki çalışmada gönderiyorum.Sizin dediğiniz gibi B sütununda değil C sütununda almak istiyorum.Çünkü B sütununda tarih var.Birde Toplam Stok bölümünde giriş ve çıkışlara (C ve D Sütunları) formül yazabilirmiyiz,girince otomatik olarak giriş'e yazsın ,çıkıncada otomatik çıksın istiyorum.
Teşekkürler,

 

[fenerlist_0]

Merhaba,anlatmak istediğime tablodaki çalışmada gönderiyorum.Sizin dediğiniz gibi B sütununda değil C sütununda almak istiyorum.Çünkü B sütununda tarih var.Birde Toplam Stok bölümünde giriş ve çıkışlara (C ve D Sütunları) formül yazabilirmiyiz,girince otomatik olarak giriş'e yazsın ,çıkıncada otomatik çıksın istiyorum.
Teşekkürler,

 

[YUSUF44]

İstediklerinizi daha açık bir şekilde, dosyanızda sayfa adı ve satır/sütun/hücre belirterek sorar mısınız?

 

[fenerlist_0]

Tekrardan Merhaba,
Çalışmada 4 sayfa bulunmakta,ürünler,ürün giriş,ürün çıkış ve toplam stok.
Toplam stok sayfasında B sütununa dokunduğumda çıkan ÜRÜN SEÇİMİ ,Ürün giriş ve Ürün çıkış sayfalarında da B sütununda çıkıyor fakat ben C sütununda çıkmasını istiyorum. (çünkü ürün giriş ve ürün çıkış sayfalarında ki B sütunun da Tarih var)

Çalışmadaki ürün giriş sayfasında ürün girildiği zaman Toplam Stok sayfasında C Sütunana otomatik olarak geçsin,aynı şekilde Ürün çıkış satfasından ürün çıktığı zamanda toplam stok sayfasında ki D sütununa otomatik geçsin istiyorum.

Umarım karışık anlatmadım,kusura bakmayın lütfen

 

[YUSUF44]

Günaydın.

B sütununda değil de C sütununda hücre seçince userformun açılması için ilgili sayfaların kod bölümünde (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfada)

If Intersect(Target, [B3:B60]) Is Nothing Then Exit Sub

şeklindeki kısmı

If Intersect(Target, [C3:C60]) Is Nothing Then Exit Sub

olarak değiştirebilirsiniz. Burdaki hücre adresi hangi hücrelerde seçim yapılınca kodun çalışacağını belirtir.

Stok durumu için Toplam Stok sayfasının C3 hücresinde aşağıdaki formülü:

=ETOPLA('Ürün Giriş'!$C$3:$C$60;B4;'Ürün Giriş'!$D$3:$D$60)

D3 hücresinde ise aşağıdaki formülü:

=ETOPLA('Ürün Çıkış'!$C$3:$C$60;B4;'Ürün Çıkış'!$D$3:$D$60)

Kullanıp aşağı doğru kopyalayın.

 

[fenerlist_0]

Merhaba,
Cevabınız için teşekkür ediyorum,yazdıklarınızı uyguladım,hepsi oldu fakat ürün giriş ve ürün çıkış sayfalarının C Sütununa tıkladığımda çıkan ÜRÜN SEÇİMİ'nde ürün adını seçtiğimde ''Sayfada yeterli sayıda boş satır yok '' uyarısı alıyorum.Ekran görüntüsünü ekte gönderiyorum.

 

[YUSUF44]

Bende öyle bir hata vermedi ancak o iki sayfada iken Sayfaya Ekle düğmesine bastığınızda verileri C sütununa eklemesi için userformdaki Sayfaya Ekle düğmesinin kodlarını aşağıdaki gibi değiştirin:

Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        If ActiveSheet.Name = "Ürün Giriş" Or ActiveSheet.Name = "Ürün Çıkış" Then
            Set a = [C2:C60].Find("")
        Else
            Set a = [B2:B60].Find("")
        End If
        If Not a Is Nothing Then
            a.Value = ListBox1.List(i, 0)
            If CheckBox1 = True Then
                ListBox1.Selected(i) = False
            End If
        Else
            MsgBox "Sayfada yeterli sayıda boş satır yok!", vbExclamation, "Satır yok"
            Exit Sub
        End If
    End If
Next
End Sub

 

[fenerlist_0]

Yusuf bey ,sizi yordum kusura bakmayın, nereye ekleyeceğimi bulamadım

 

[YUSUF44]

VBA kod sayfasına geçin (sayfa adına sağ tık-Kod görüntüle ya da doğrudan Alt+F11)
Sol tarafta Userforma çift tıklayın, sağda açılacak
Sayfaya Ekle düğmesine çift tıklayın, o düğmenin kodları açılacak
Ordaki Commandbutton2_Click ile ilgili kodları Yukarda verdiğim kodlarla değiştirin. Kodlar aynı burdaki gibidir zaten.