[Yardım]  sorgu eşleşmesi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

sorgu eşleşmesi

İleti#1)  ahmetonline » 25 Haz 2019 12:07

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f1 ='" & range("A1").value & "'"
yukarıda yazan kod ile tam eşleşme yapıyorum.
acaba sadece 1-2 harf girsem bile o harfler ile eşleşen bir kod yapılabilir mi ?
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#2)  Feyzullah » 25 Haz 2019 12:13

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f1 like '%" & range("A1").value & "%' "
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: sorgu eşleşmesi

İleti#3)  ahmetonline » 25 Haz 2019 13:36

Çoooooook teşekkür ederim.
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#4)  Feyzullah » 25 Haz 2019 13:40

--)( İyi Çalışmalar
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: sorgu eşleşmesi

İleti#5)  ahmetonline » 01 Tem 2019 11:43

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T'"

yukarıdaki sorguda f14 te t yazanları getir diyorum ama f7 de hücre boş ise getiri nasıl yapabilirim.
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#6)  Feyzullah » 01 Tem 2019 13:03

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 is null "

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 > 0 "

Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 > '0' "
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: sorgu eşleşmesi

İleti#7)  ahmetonline » 01 Tem 2019 13:17

şimdi fezullah bey f14 değer t olup f7 değer yok ise getir olacaktı, f7 değer var ise getirmeyecek.
f14 de t olan satırları bul ama f7 de değer yoksa getir şeklinde.

birde size birşey sormak istiyorum f8 deki değerler çekilen excel dosyasında sayısal olarak yazılmakta ama dosyaları çek dediğimde f8 deki değerler metin olarak saklanan sayı olarak geliyor. bir türlü düzeltemedim
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: Cevap: sorgu eşleşmesi

İleti#8)  Feyzullah » 01 Tem 2019 13:25

ahmetonline yazdı:şimdi fezullah bey f14 değer t olup f7 değer yok ise getir olacaktı, f7 değer var ise getirmeyecek.
f14 de t olan satırları bul ama f7 de değer yoksa getir şeklinde.

Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 is null "


Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 > 0 "


Kod: Tümünü seç
Sorgu = "Select * from [SİPARİŞ TAKİP$] where f14 ='T' and f7 > '0' "



ahmetonline yazdı:birde size birşey sormak istiyorum f8 deki değerler çekilen excel dosyasında sayısal olarak yazılmakta ama dosyaları çek dediğimde f8 deki değerler metin olarak saklanan sayı olarak geliyor. bir türlü düzeltemedim


sorgu kodunu aşağıdaki şekilde yaparak deneyin. alan adının başına CLng yazın.

Kod: Tümünü seç
Sorgu = "Select f1,f2,f3,f4,f5,f6,f7, Clng(f8) from [SİPARİŞ TAKİP$] "
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: sorgu eşleşmesi

İleti#9)  ahmetonline » 01 Tem 2019 15:17

Sorgu = "Select f1,f2,f3,f4,f5,f6,f7, Clng(f8) from [SİPARİŞ TAKİP$] "
Vermiş oldugunuz kod hata veriyor.
fezullah bey ben size ekte dosyayı vereyim .
sipariş takip dosyası veri dosyam.
kabin üretim dosyasında toplu işler butonuna bastıgımda veriler geliyor ama dediğim gibi sayısal olmadığı için toplamını j4 hücresine yazdıramıyorum. birde koşullu toplama olayını tam olarak anlayamıyorum. j stununda yer alan tiplerin toplamını nasıl alabilirim "u" ayrı "k" ayrı" olarak j6 ve j8 hücrelerine yazdırmak istiyorum.
sizede çok zahmet veriyorum kusuruma bakmayın lütfen
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#10)  Feyzullah » 02 Tem 2019 11:23

Ahmet Hocam Kodlarınızı sayfanın kod bölümüne değilde Module kısmına yazarsanız hata almazsınız.

Kod: Tümünü seç
Sub dende()
Dim Con As ObjectRs As ObjectSorgu As String
    Range
("A15:AZ65000").ClearContents
    Range
("H1:J13").ClearContents
    Set Con 
CreateObject("Adodb.Connection")
    
Set Rs CreateObject("Adodb.RecordSet")
        
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" _
        ThisWorkbook
.Path "\SİPARİŞ TAKİP 2017.xlsx" ";extended properties=""excel 12.0;hdr=no"""
Sorgu "Select clng(f1),f2,f3,f4,f5,clng(f6),clng(f7),clng(f8),f9,f10,f11,f12,f13,f14,f15,f16,f17, f18,f19,f20 from [Sayfa1$]  where f14 ='T' and f7 is null "
Rs.Open SorguCon11
        Range
("A15").CopyFromRecordset Rs
        Rs
.CloseCon.Close
    Set Con 
NothingSet Rs NothingSorgu ""
    
Range("H2") = "TOPLAM ADET"
    
Range("J2") = WorksheetFunction.Sum(Range("F15:F65000"))
    
Range("H8") = "U Tipi Toplam"
    
Range("J8") = WorksheetFunction.SumIf(Range("J15:J6500"), "U"Range("F15:F6500"))
    
Range("H6") = "K Tipi Toplam"
    
Range("J6") = WorksheetFunction.SumIf(Range("J15:J6500"), "K"Range("F15:F6500"))
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: sorgu eşleşmesi

İleti#11)  ahmetonline » 02 Tem 2019 12:06

Tekrar çok teşekkür ederim fezullah bey vermiş olduğunuz bilgiler çok işime yaradı
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#12)  ahmetonline » 09 Tem 2019 10:06

Birşey sormak istiyorum. Kapalı dosyadan veri alıyorum gayet güzel oldu yanlız dün işlem yaparken kapalı dosyayı açarak işlem yapmaya başladı. Acaba sebebi nedir. Acaba veri aldığım Excel dosyasını gizli olarak kayıt ettim sıkıntı oradan olabilir mi. İşlem yapınca salt okunur olarak açıyor
Kullanıcı avatarı
ahmetonline
Yeni Başlamış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 39
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: sorgu eşleşmesi

İleti#13)  Feyzullah » 09 Tem 2019 10:08

Ado da böyle bir durum söz konusu olmaz. benim başıma da böyle bir durum gelmedi. farklı bir kod kullanmış olabilirsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 1 misafir

Bumerang - Yazarkafe