Arama ile ilgili yardım

[cengizozkan]

arkadaşlar ben bir arama kutusu yapmak istiyorum ama aramayı benim istediğim sayfada yapması lazım bunun için bana önerileriniz var mı

yardımlarınız için teşekkürler

 

[uzmanamele]

merhaba

size önerim; sorularınızı örnek dosya ile desteklemenizdir.

 

[cengizozkan]

belge ektedir

excel dosyasına gerekli bilgileri yazdım düzenleme hakkında yardımcı olursanız sevinirim şimdiden çok teşekkür ederim

 

[1Al2Ver]

excel dosyasına gerekli bilgileri yazdım düzenleme hakkında yardımcı olursanız sevinirim şimdiden çok teşekkür ederim

Merhaba,

1 nolu soru için ; Sayfada mevcut arama kodu'nda yapılacak bir değişiklik bu hizmeti verebilir, bunu da bilen arkadaşlar yapacaklardır, sayfadaki kod ;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
    If IsEmpty(Target) Or InStr(1, Target.Address, ":") <> 0 Then Exit Sub
    If Cells(Target.Row, "B") <> "" Then
    SAY = WorksheetFunction.CountIf(Columns(Target.Column), Target)
    If SAY > 1 Then
    Set BUL = Columns(Target.Column).Find(Target)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    If Cells(Target.Row, "B") = Cells(BUL.Row, "B") Then
    SATIR = IIf(SATIR = "", BUL.Row & Space(1), SATIR & ", " & BUL.Row & Space(1))
    End If
    Set BUL = Columns(Target.Column).FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    GoTo UYARI
    End If: End If: End If
    GoTo SON
UYARI: ONAY = MsgBox("Bu kayıt daha önce aşağıdaki satırlarda girilmiştir !" & Chr(10) & Chr(10) & SATIR & Chr(10) & Chr(10) & "İşleme devam etmek istiyor musunuz?", vbYesNo + vbCritical, "DİKKAT !")
    If ONAY = vbNo Then
    Cells(Target.Row, "B") = ""
        Target.Select
    Exit Sub: End If
    Target.Offset(1, 0).Select
SON:
End Sub

3 nolu soru için ;

Çıkış yapılan malzeme, fiyatını giriş sayfasından alsın istemişsiniz,

Ancak bazı malzemelerin girişi yok, ama stok'u var, dolayısı ile girişi olmayan ancak stok'u olan malzeme çıkış yapılmak istendiğinde karmaşa olur, isterseniz "Malz.Çıkışı" G12 ye ;

=EĞER(C12="";"";EĞER(EHATALIYSA(DÜŞEYARA(C12;Malz.Girişi!$B$2:$F$200;5;0));"";DÜŞEYARA(C12;Malz.Girişi!$B$2:$F$200;5;0)))

yazıp aşağıya doğru kopyalayabilirsiniz,

Kolay gelsin.

 

[cengizozkan]

lütfen

ustam hep hata alıyorum yaaa

size zahmet olmazsa ise eğer siz ekleyebilirmsiz?:yardim:

 

[1Al2Ver]

ustam hep hata alıyorum yaaa

size zahmet olmazsa ise eğer siz ekleyebilirmsiz?:yardim:

Merhaba,

Aldığınız hatayı, nerede ve nasıl alıyorsunuz, açıklar mısınız ?

 

[cengizozkan]

cevap

verdiğiniz kodların hepisinde hata aldım ama hataların kodlardan dolayı değilde yanlış girmemden dolayı olabileceğiniz düşünüyorum

 

[1Al2Ver]

Merhaba,

2 nolu soru için verdiğim kodu "Malz.Girişi" sayfasının kod bölümünde mevcut kodun altına kopyalayın,

Açmak için Alt+F11 tuşlayınız,

Formül için sorun yaşadınız mı ?

 

[cengizozkan]

hata resmi

aldığım hatayı resimini koydum bakarsanız sevinirim

 

[1Al2Ver]

aldığım hatayı resimini koydum bakarsanız sevinirim

Merhaba,

Kodu kopyalarken hata yapmış olmalısınız, silip tekrar denermisiniz,

Aynı dosya aynı kodlar ile bende sorun yaratmamakta,

Kodu kopyala-yapıştır yaparken, sanırım aşağıdaki kod da hata yapıyor olmalısınız ;

Private Sub Worksheet_Change(ByVal Target As Range)

Yine olmaz ise dosya ekleyeyim, oldu derseniz de kaldırayım ( kotam doluyor da )

 

[cengizozkan]

cevap

merhaba

klasörü silip sizin denediğiniz dosyada denemeler yaptım ama yine aynı hatayı aldım

bende bir sorun var abladığım kadarı ile

 

[Korhan Ayhan]

Selamlar,

Sn. 1Al2Ver,

#4 nolu mesajınızda 2 nolu soru için verdiğiniz kod eksik kalmış hata büyük olasılıkla bundan kanaklanıyor.

 

[1Al2Ver]

Merhaba,

4 nolu mesajdaki, 2 nolu soru için yazılan kod düzeltildi,

Teşekkür ederim.

 

[1Al2Ver]

Selamlar,

Sn. 1Al2Ver,

#4 nolu mesajınızda 2 nolu soru için verdiğiniz kod eksik kalmış hata büyük olasılıkla bundan kanaklanıyor.

Merhaba Sayın Korhan Ayhan,

Uyarı için teşekkür ederim.

Saygılarımla,

 

[1Al2Ver]

Merhaba,

Uzmanımız Sayın Korhan Ayhan'ın ikazı ile 4 nolu mesajdaki kod düzeltildi,

Teşekkür ederim.

 

[cengizozkan]

teşekkür

iyi geceler

şimdi çalıştı çok teşekkür ederim yardımlarınız için

 

[1Al2Ver]

iyi geceler

şimdi çalıştı çok teşekkür ederim yardımlarınız için

Rica ederim,

1 nolu sorunuz için diğer üyelemizin yardımını alacağınızı umuyorum,

Teşekkür ederim.

 

[cengizozkan]

sayın korhan AYHAN

İYİ GECELER
sayn korhan ayhan yardımınız için teşekkür ederim acaba 1 numaralı kod için yardım edebilirmisniz veya tavsiyeniz varmı
teşekkürler

 

[Korhan Ayhan]

Selamlar,

Uygulamalı excel eğitimleri bölümünü incelemenizi öneririm. İstediğiniz konular forumda defalarca işlendi.

Arama kutusuna "find+listbox" yazın ve listelenen konuları inceleyin.