A.S.C Filtre, Grafik ve Raporlama Eklentisi

Excel Birleştir Ve Süz
#1
Arkadaşlar Kolay Gelsin

Daha Önce Sayın Hocalarımında Yardım Ettiği Konuda Excel'e veri çekmeyi yaptık
Sizlerden Eğer Mümkünse Birkaç Konuda Yardım İstiyorum
Mail olarak Excel Tablosu ( rapor1 ) olarak toplu bir şekilde geliyor

Benim Access Veritabanına Yapmak İstediğim
- EXCELDEKİ VERİLERİ ALMAK İÇİN TIKLAYIN BUTONUNA BASTIĞIMDA 5 veya daha fazla İL'den tüm veriler geliyor Access Veritabanına. 


- Excel deki KOD Sütununda ki Kodlarda ÖRNEĞİN ( 2021-1 ) veya ( -100 ) Yazıyor Accesse verileri Çek Dediğimde Sadece ( - ) Tire'den Sonrasını  Almasını İstiyorum  1 veya 100 gibi
- Excel deki MAAŞ Sütununda ki Maaş Ücretlerinde'de ÖRNEĞİN ( 4000.20 ) Olarak Yazıyor Küsüratta VİRGÜL Yerine NOKTA Kullanılmış Accesse verileri Çek Dediğimde (4.000,20) Olması Gerekirken ( 40.002,00 ) Oarak Yanlış Çekiyor Maaş Ücretini
- ( Srg_Süz ) de ( tbl_birleştir ) deki 5 İl den Sadece 3 İL ( İSTANBUL, İZMİR ve BURSA ) illerini süzdüre bilerek Çektim.
- Fakat ( Srg_Süz ) de Çekmiş Olduğum Üç İlden MESLEK Sütunundaki ÖRNEĞİN : BURSA ve İZMİR'den İNŞAAT OLANLARIDA GÖRMEK İSTEMİYORUM. 

Konumla İlgilenen ve İlgilenemeyen Tüm Arkadaşlara Teşekkür Ederim


Eklenti Dosyaları
.rar   Birleştir.rar (Boyut: 354,63 KB / İndirilme: 29)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1.        SQL = "insert into [tbl_birleştir] ([SIRA NO], [ADI SOYADI], [KOD], [İLİ], [MESLEK], [MAAŞ]) " & _
  2.              "SELECT [SIRA NO], [ADI SOYADI], Mid([KOD],InStr(1,[KOD],'-')+1,Len([KOD])), [İLİ], [MESLEK], Replace([MAAŞ],'.',',') " & _
  3.              "FROM [Sheet 1$]  IN '" & yol & "' 'EXCEL 8.0;' where [MESLEK]<>'İNŞAAT' And [İLİ]='İSTANBUL' Or [MESLEK]<>'İNŞAAT' And [İLİ]='BURSA' Or [MESLEK]<>'İNŞAAT' And [İLİ]='İZMİR'"



olarak deneyin.

Noktayı virgüle çevirme REPLACE ile, Kod alanı - den sonrası InStr(1,[KOD],'-')+1,Len([KOD])) ile koşul alanları da WHERE sonrasını inceleyebilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Sayın. DSezgin Hocam Eline Emeğine Sağlık Çok Teşekkür Ederim Sağolun 
Tam İstediğim Gibi Oldu

Konumla İligilenen ve İlgilenemeyen Tüm Arkadaşlara Teşekkür Ederim

Kolay Gelsin



  Alıntı
Bu mesajı beğenenler:
#4
Arkadaşlar kolay gelsin


    1.         "FROM [Sheet 1$]  IN '" & yol & "' 'EXCEL 8.0;' where [MESLEK]<>'İNŞAAT' And [İLİ]='İSTANBUL' Or [MESLEK]<>'İNŞAAT' And [İLİ]='BURSA' Or [MESLEK]<>'İNŞAAT' And [İLİ]='İZMİR'"



Sayın. Dsezgin hocamın vermiş olduğu bu kod tam istediğim gibi oldu.
Fakat bir ilimizde daha değişiklik yapmak istiyorum bir türlü yapamadım
İstanbul, bursa, ve İzmir illerimizden meslek sütunun daki ( elektrik ve marangoz ) olanları Excel den çekip alırken (inşaat) olanları süzdürüp almıyoruz. 
Birde İzmir ilimizden meslek sütunun dan inşaat ile birlikte (MARANGOZ) olan meslek grubunda  süzdürüp tbl_birlestire almasını istemiyorum bunu nasıl yapabiliriz

Konumla ilgilendiğiniz için çok teşekkür ederim



  Alıntı
Bu mesajı beğenenler:
#5
(25-08-2021, 08:22)Bora34 demiş ki: İstanbul, bursa, ve İzmir illerimizden meslek sütunun daki ( elektrik ve marangoz ) olanları Excel den çekip alırken (inşaat) olanları süzdürüp almıyoruz. 
Birde İzmir ilimizden meslek sütunun dan inşaat ile birlikte (MARANGOZ) olan meslek grubunda  süzdürüp tbl_birlestire almasını istemiyorum bunu nasıl yapabiliriz

Kodu
       
Visual Basic
  1. SQL = "insert into [tbl_birleştir] ([SIRA NO], [ADI SOYADI], [KOD], [İLİ], [MESLEK], [MAAŞ]) " & _
  2.              "SELECT [SIRA NO], [ADI SOYADI], Mid([KOD],InStr(1,[KOD],'-')+1,Len([KOD])), [İLİ], [MESLEK], Replace([MAAŞ],'.',',') " & _
  3.              "FROM [Sheet 1$]  IN '" & yol & "' 'EXCEL 8.0;' where " & _
  4.              "[MESLEK]<>'İNŞAAT' And [İLİ]='İSTANBUL' Or " & _
  5.              "[MESLEK]<>'İNŞAAT' And [İLİ]='BURSA' Or " & _
  6.              "[MESLEK] Not In('İNŞAAT','MARANGOZ') And [İLİ]='İZMİR'"



olarak güncelleyin.



  Alıntı
Bu mesajı beğenenler:
#6
Sayın. DSezgin Hocam Eline Emeğine Sağlık Çok Teşekkür Ederim Sağolun 
Tam İstediğim Gibi Oldu

Konumla İligilenen ve İlgilenemeyen Tüm Arkadaşlara da Çok Teşekkür Ederim Sağolun
Tüm Arkadaşlara Kolay Gelsin



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Accesste Excel Birleştir Bora34 8 482 06-06-2021, 14:11
Son Mesaj: userx53
  Excel - Access Bağlantısı gokhan003 3 327 09-04-2021, 08:11
Son Mesaj: dsezgin
  Excel Export gunalp26 4 544 03-09-2020, 19:26
Son Mesaj: halily
  Excel & Acces siberdcit 1 511 27-11-2019, 02:37
Son Mesaj: dsezgin
  Excel'e Gönderirken Excel Sayfa Yapısı Ayarı husem 6 744 22-09-2019, 14:41
Son Mesaj: husem
  [SORGU] Excel Aktar Butonu ramazanke 5 960 30-01-2019, 10:46
Son Mesaj: ramazanke
  [VBA] Excel veri aktarımı alienerji 9 1.686 30-08-2018, 04:40
Son Mesaj: dsezgin
  [FONKSiYON] Excel Aktarma hanedan0812 11 2.338 24-06-2017, 17:00
Son Mesaj: hanedan0812

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi