• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Listedeki filtreleme

NADİR YILDIZ

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,418
Excel Vers. ve Dili
2016 Türkçe
Arkadaşlar merhaba;
sarı alanda yazılı olan isimlerden I sütunundaki açıklamalarda bire bir ayna varsa listedekileri filtrele butonuyla filtreliyorum.
benim istediğim sarı alana yazdığım isimler açıklamaların içinde varsa filtrelemek
açıklamaların içinde ayla yılma olmasına rağmen filtreleme yapmıyor
 

Ekli dosyalar

Merhaba,

Tek bir sayfadan oluşan bir dosya olduğunu düşünerek bir program yaptım.

ekte gönderiyorum.

Ayrıca sizin Excel dosyanız da biraz değişiklik yaparak yeni formatı ile bu programın veri tabanı haline getirdim.

onu da ekte gönderiyorum.
 

Ekli dosyalar

Sayın batman merhaba

valla ne diyeceğimi bilemedim.ama gerçekten çok güzel olmuş ne kadar teşekkür etsem azdır.
ben bir tahta parçası istedim siz ceviz ağacından masa yapmışsınız durumu var ortada :)

bu çalışmayı bu kadar ileri taşımışken ilave birkaç şey istesem çok mu şey istemiş olurum bilemedim

Kişiler 3-5 kişi oldu mu sorun değil ancak liste uzarsa kişileri bulmak sıkıntılı kolaylık olması açısından

A-programda kişiler listesini üstüne textbox eklesek listeyi filtrelerse gürbüz yazınca gürbüz ile başlayan kaç tane varsa filtrelese

B-borç alacak bakiye sütunlarındakileri sayı formatına çevirebilir miyiz.

C-birde excelde kişilerin ünvanları uzun olabiliyor.haliyle muavindekilerle eşleşmiyor.
kişiler listesindeki isimleri seçmeli olarak 1.2.3.kişi isimlerini aldırabilirmiyiz
1-GÜRBÜZ
2-GÜRBÜZ ELEKTRİKLİ
3-GÜRBÜZ ELEKTRİKLİ EV gibi olursa muavinden ona göre arama yapabilirim.

D-programda başlıkların üstüne textbox eklense fiş tarihini yazdığımda filtrelese .evrak tarihini filtrelesem gibi fiş tarihi sütunundan bakiye tarihi sütununa kadar bu textboxlar eklense isteğe göre filtreleme yapabilme ve bu filtreli listeyi yeni bir excele aktarım yapma imkanı olur mu?

bu sefer fazla birşeyler istedim kesinlikle
yapabilirseniz memnun olurum
 

Ekli dosyalar

Merhaba,
Hepsini yapabiliriz.
Ben size bugün bir yeni program hazırlayıp, gönderirim.
 
Merhaba,

şuna benzer bir çalışma yapıyorum.

Biraz işler istediğim gibi gitmedi. Ama çözeceğim.
Burada her sütunun kendinde bir filtre olacak tıpkı Exceldeki gibi. ama biraz sıkıntılı bir iş.
Halletmek için biraz zamana ihtiyaç var.

254208
 
merhaba sayın batman
sizi uğraştırıyorum çok teşekkür ederim
tamam siz bakın zamanla ilgili problem yok

iyi çalışmalar
 
Günaydın,

Programı istediğiniz gibi tamamladım.
Yalnız hazır bir eklenti kullandığım için bir tık veri gösterme ve işlemede yavaş olabilir.
Bu Tablo listeleme nesnesi birebir exceldeki filtre mantığı ile aynı .Bundan dolayı kullanımı kullanıcı açısından çok pratik.
Gönderdiğim zipli (rar) dosyadaki dll bu eklentinin dosyasıdır. Dolayısı ile bunu EXE dosyası ile aynı yerde (klasörde) tutunuz.

Herhangi bir hata alırsanız eğer geri bildirim yaparsınız.

aşağıdaki gibi bir mesaj alabilirsiniz.
Ek Bilgi yazan yerin üstüne tıklayınız ve ikinci resimdeki Yine de Çalıştır düğmesine basınız.
Bu mesaj Temel bir Bilinmeyen kaynaktan gelen yazılımların yüklenmesi için Windows'un korumasıdır.
Ben Programları mı? Express modda yani ücretsiz platformda yaptığım için imzamı yani tescili yapamıyorum.
Fakat bu demek değil ki bunları birileri buradan alıp, başlarına dağıtarak kazanç elde edebilir.?
Hedefim Türk İş hayatına ve bağlı olarak iş teknolojilerine katkı sunmak. Tabiki kendi ölçeğimde.
254214
254215
 

Ekli dosyalar

Son düzenleme:
Merhaba batman
öncelikle aklınıza sağlık çok güzel olmuş

excele gönderde böyle bir hata veriyor
 

Ekli dosyalar

  • HATA-01.png
    HATA-01.png
    92.1 KB · Görüntüleme: 11
sayfalardan seçim yaparken böyle bir hata verdi
 

Ekli dosyalar

  • HATA-02.png
    HATA-02.png
    53.5 KB · Görüntüleme: 5
NADİR YILDIZ' Alıntı:
sayfalardan seçim yaparken böyle bir hata verdi
Genişletmek için tıkla ...
İkinci resimdeki hataya takılmayın. Program yapması gerekeni yapıyor. Şöyleki sizin dosyanızda bazı sütun toplamlarını alıyoruz ya Borç Tutarı, alacak Tutarı vb. gibi.
Bu kişiler sayfasında bu sütunlar olmadığı için bu şekilde bir uyarı mesajı veriyor.
Bir gerçeği söylemek gerekirse bu uygulamada artık kişiler isimli sayfaya ve kişiler bilgisine de gerek yok. çünkü benim olanlar ilgili kodladığım bir bağ yok. Hatırlarsanız ilk programda bir anlamı vardı bir liste oluşturup oradan seçilen ile Açıklamadaki verileri filtre ediyorduk. Oysaki bu son programda filtre için zaten böyle bir şeye gerek yok. dolayısı ile bu sayfada silinebilir.
 
Merhaba

Ben gönderdiğiniz dosya ile denedim. Bende çalıştı.

254241
 
Sn. @NBATMAN, programınızı incelemek istedim; fakat, aşağıdaki hatayı aldım. Bende 16.0 yüklüdür. Dinamik bir connection string için aşağıya eklediğim kodu kullanırsanız farklı cihazlarda sorunsuz çalışacaktır.

254242

C#: 
Public Sub Test()
    MsgBox GetProvider
End Sub

C#: 
Private Function GetProvider(Optional ByVal isProviderAvailable = "", Optional ByRef getProviderVersion As String = "") As String
    ' Zeki GÜRSOY © gursoyzeki@gmail.com
    ' 09.04.2021
    '
    Dim objProvider As IUnknown, arrProviders(), strProvider
    
    On Error Resume Next
    
    If isProviderAvailable <> "" Then
        Set objProvider = CreateObject(isProviderAvailable)
        
        If Err = 0 Then GetProvider = isProviderAvailable
        Exit Function
    End If
    
    arrProviders = Array("Microsoft.ACE.OLEDB.16.0", "Microsoft.ACE.OLEDB.15.0", "Microsoft.ACE.OLEDB.14.0", _
                         "Microsoft.ACE.OLEDB.12.0", "Microsoft.JET.OLEDB.4.0", "Microsoft.JET.OLEDB.3.5")

    For Each strProvider In arrProviders
        Set objProvider = CreateObject(strProvider)
        
        If Err = 0 Then
            GetProvider = strProvider
            getProviderVersion = Replace(Replace(strProvider, "Microsoft.ACE.OLEDB.", ""), "Microsoft.JET.OLEDB.", "")
            Exit For
        End If
        
        Err.Clear
    Next

'--------------------------------------------------------------------
' Ref : https://en.wikipedia.org/wiki/Microsoft_Jet_Database_Engine
'--------------------------------------------------------------------
'Access Version - JET Version
' 1997 - 3.5
' 2000 - 4.0
' 2002 - 4.0
' 2003 - 4.0
' 2007 - ACE 12
' 2010 - ACE 14
' 2013 - ACE 15
' 2016 - ACE 16
'--------------------------------------------------------------------
' JET Version - Database Version
' 3.5    - 1 To 3.X
' 4.0    - 1 To 4.0
' ACE 12 - 1 To ACE
' ACE 14 - 3.X To ACE
' ACE 15 - 4.0/ACE
' ACE 16 - 4.0/ACE
'--------------------------------------------------------------------
End Function

.
 
sayın batman
hata devam ediyor
nerden kaynaklı güncelleyebilirmisiniz zeki gürsoyun kodları ile
 
Zeki Gürsoy' Alıntı:
Sn. @NBATMAN, programınızı incelemek istedim; fakat, aşağıdaki hatayı aldım. Bende 16.0 yüklüdür. Dinamik bir connection string için aşağıya eklediğim kodu kullanırsanız farklı cihazlarda sorunsuz çalışacaktır.

Ekli dosyayı görüntüle 254242

C#: 
Public Sub Test()
    MsgBox GetProvider
End Sub

C#: 
Private Function GetProvider(Optional ByVal isProviderAvailable = "", Optional ByRef getProviderVersion As String = "") As String
    ' Zeki GÜRSOY © gursoyzeki@gmail.com
    ' 09.04.2021
    '
    Dim objProvider As IUnknown, arrProviders(), strProvider
   
    On Error Resume Next
   
    If isProviderAvailable <> "" Then
        Set objProvider = CreateObject(isProviderAvailable)
       
        If Err = 0 Then GetProvider = isProviderAvailable
        Exit Function
    End If
   
    arrProviders = Array("Microsoft.ACE.OLEDB.16.0", "Microsoft.ACE.OLEDB.15.0", "Microsoft.ACE.OLEDB.14.0", _
                         "Microsoft.ACE.OLEDB.12.0", "Microsoft.JET.OLEDB.4.0", "Microsoft.JET.OLEDB.3.5")

    For Each strProvider In arrProviders
        Set objProvider = CreateObject(strProvider)
       
        If Err = 0 Then
            GetProvider = strProvider
            getProviderVersion = Replace(Replace(strProvider, "Microsoft.ACE.OLEDB.", ""), "Microsoft.JET.OLEDB.", "")
            Exit For
        End If
       
        Err.Clear
    Next

'--------------------------------------------------------------------
' Ref : https://en.wikipedia.org/wiki/Microsoft_Jet_Database_Engine
'--------------------------------------------------------------------
'Access Version - JET Version
' 1997 - 3.5
' 2000 - 4.0
' 2002 - 4.0
' 2003 - 4.0
' 2007 - ACE 12
' 2010 - ACE 14
' 2013 - ACE 15
' 2016 - ACE 16
'--------------------------------------------------------------------
' JET Version - Database Version
' 3.5    - 1 To 3.X
' 4.0    - 1 To 4.0
' ACE 12 - 1 To ACE
' ACE 14 - 3.X To ACE
' ACE 15 - 4.0/ACE
' ACE 16 - 4.0/ACE
'--------------------------------------------------------------------
End Function

.
Genişletmek için tıkla ...
Zeki Bey Merhaba,
bu güzel öneri için teşekkür ederim.

Kodlarınızı uyguladığım EXE'yi ekte iletiyorum. Yukarıdaki 8. mesajda gönderdiğim dll dosyasının sizde olduğunu varsayarak onu buraya tekrar eklemiyorum.
Sizden ricam lütfen tekrar deneyiniz. Bir sorun olursa da lütfen tekrar geri bildirim yapınız.
 

Ekli dosyalar

NADİR YILDIZ' Alıntı:
sayın batman
hata devam ediyor
nerden kaynaklı güncelleyebilirmisiniz zeki gürsoyun kodları ile
Genişletmek için tıkla ...
Nadir Bey Merhaba,
bu iş biraz meşakkatli tabi sistemler (Windows, Office) sizdeki ile bendeki farkı olabiliyor. Bundan dolayı bir versiyon uyuşmazlığı olabilir. Fakat konuyu incelediğimde programa bağladığınız ana Excel dosyasının açık veya bir yada bir çok hücresinin seçili yada işlem yapıyor olması sonucunda bu hatayı alabileceğinizi öğrendim.
Bu ve bunun gibi programlar Excel'i kullanırken esas olarak mümkünse Excel dosyasının kapalı olması değilse de üzerinde tıklanmış bir hücre ve /veya işlem yapılıyor olmamalıdır. Nihayetinde programın içine aldığınız bu Excel dosyası; meşgul yada bir başka kullanıcı ve / veya kullanıcılar tarafından kullanılıyor yada bir hücresi tıklanmış işlem için bekliyor olmamalıdır. Lütfen bu dediklerimi gözden geçirerek önce Excel'i açık deneme yapıyorsanız kapatıp deneyiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst