Soru Listedeki filtreleme

NADİR YILDIZ · Pazar saat 12:24'de

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

NBATMAN · Pazar saat 18:37'de

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.

NADİR YILDIZ · Pazartesi saat 07:55'de

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

NBATMAN · Pazartesi saat 09:24'de

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

NADİR YILDIZ · Pazartesi saat 09:44'de

Teşekkürler
iyi çalışmalar

NBATMAN · Pazartesi saat 23:47'de

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.

NADİR YILDIZ · Salı saat 08:42'de

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

NBATMAN · Salı saat 10:04'de

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.

NADİR YILDIZ · Salı saat 10:33'de

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

excele gönderde böyle bir hata veriyor

NADİR YILDIZ · Salı saat 10:39'de

sayfalardan seçim yaparken böyle bir hata verdi

NBATMAN · Salı saat 10:52'de

NADİR YILDIZ' Alıntı:
sayfalardan seçim yaparken böyle bir hata verdi

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

NADİR YILDIZ · Salı saat 10:54'de

ilk hataya bakacaksınız sanırım

NBATMAN · Salı saat 10:59'de

NADİR YILDIZ' Alıntı:
ilk hataya bakacaksınız sanırım

Programı denerken kullandığınız (yani hatayı aldığınız) excel dosyasını gönderir misiniz?

NADİR YILDIZ · Salı saat 11:26'de

bu dosyayı filtreleyip excele gönderirken bu hatayı alıyor

NBATMAN · Çarşamba saat 19:57'de

Merhaba

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

Zeki Gürsoy · Çarşamba saat 20:15'de

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.

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

.

NADİR YILDIZ · Dün 08:59 da

sayın batman
hata devam ediyor
nerden kaynaklı güncelleyebilirmisiniz zeki gürsoyun kodları ile

NBATMAN · Dün 21:33 da

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

.

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.

NBATMAN · Dün 21:43 da

NADİR YILDIZ' Alıntı:
sayın batman
hata devam ediyor
nerden kaynaklı güncelleyebilirmisiniz zeki gürsoyun kodları ile

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.

Korhan Ayhan · Dün 23:59 da

Alternatif...

Soru Listedeki filtreleme

Ekli dosyalar

Destek Ekibi

Ekli dosyalar

Ekli dosyalar

Destek Ekibi

Destek Ekibi

Destek Ekibi

Ekli dosyalar

Ekli dosyalar

Ekli dosyalar

Destek Ekibi

Destek Ekibi

Ekli dosyalar

Destek Ekibi

Uzman

Destek Ekibi

Ekli dosyalar

Destek Ekibi

Administrator

Ekli dosyalar