Sorgu için arama sonuçları: plaka

...Explicit Sub Filtrele_Ado() Dim My_Connection As Object, My_Recordset As Object, Zaman As Double Dim S1 As Worksheet, S2 As Worksheet, Plaka As String, Ay As Byte Zaman = Timer Application.ScreenUpdating = False Set S1 = Sheets("Giriş") Set S2 =...

...kullanıldı. Daha hızlı işlem yapacaktır. Option Explicit Sub Filtrele() Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet Dim Plaka As String, Ay As Byte, Yil As Integer, Zaman As Double Zaman = Timer Application.ScreenUpdating = False Set S1 =...

Merhaba, Aşağıdaki kodda tabloda aylara göre plaka bilgilerini raporlamak istiyorum eğer a (ay) değeri 0 olunca, ayları filtrelemeden tüm ayları alsın, a (ay) değeri 1,2,3 .... 11,12 olduğunda ilgili ayın verilerini getirsin diye aşağıdaki kodu oluşturdum. bana göre biraz uzun bir kod oldu...

...buldum ve bununla da denedim. Bu uygulamada yukarıda belirttiğim hata mesajını vermiyor. Bir heves aynı uygulama adımlarını kaydettim ve plaka sorgulaması yapmak için mevcut excel üzerindeki verileri web sitesine yönlendirerek bir döngü oluşturmak istedim. Burada da bu noktada takıldım ve...

...ComboBox1 _ & ", Tarla Sahibi:" & ComboBox2 _ & ", Kime Gittiği:" & ComboBox3 _ & ", Plaka:" & ComboBox4 _ & ", Cinsi:" & ComboBox6 _ & ", Yükleme:" & ComboBox7 _ & "...

Öncelikle selamlar, Başlıkta da ifade ettiğim gibi bir listbox içerisinde şehirleri listelemek istiyorum. Listelenen şehrin plaka numarasını da satıra yazdırmak istiyorum. Yani kullanıcı Istanbul seçtiği zaman ben satıra 34 basmak istiyorum. Excell de yeni sayılırım. Cevaplarınız için şimdiden...

...ID=Admin;" & _ "Data Source='" & myFile & "';" & _ "Extended Properties=""Excel 12.0;hdr=yes""" str = "t2.[Plaka], t2.[şehir], t2.[şehir2]" sorgu = _ "Select " & str & ",sum(t2.[Satis]) from [hedef$] as t1 " & _ "left join " & _...

Ömer Hocam teşekkürler, bir konuda daha sorabilir miym? Ekli dosya Plakalar sayfasında D sütununda "Satış" diye bir alan ekledim. Bu işlemden sonra Rapor sayfasında bazı çoklu değerler artık teke düştü, "Satış" rakamlarının Toplam değerini de Rapor sayfasında D sütununa nasıl getirebiliriz...

Merhaba, Deneyiniz. sorgu = _ "Select distinct " & str & " from [hedef$] as t1 " & _ "left join " & _ " [Plakalar$] as t2 " & _ "on t1.[plaka] = t2.[plaka]" Not: Range("A2:B100000").ClearContents ... silme kodlarındaki aralığın sütununu B değil C olarak...

Merhaba, Aşağıdaki kodda; Hedef sayfasında yazan plaka bilgilerini, Plakalar sayfasında kontrol ederek tüm verileri getirmekte, Buraya kadar her şey güzel, benim istediğim Şehir ve Şehir-2 alanları tekrar edenlerden sadece 1 satır getirsin. AMASYA AMA-1 bu satırdan 2 adet...

Çok aradım bulamadım. Sayı, tarih, para hatta plaka formatı dahi sorulmuş. TextBox sadece harf formatı nasıl olur arkadaşlar. Şimdiden teşekkür ederim.

...sorgu = _ "Select t2.[şehir] from [" & WB1 & "].[hedef$] as t1 " & _ "left join " & _ "[" & WB2 & "].[Plakalar$] as t2 " & _ "on t1.[plaka] = t2.[plaka]" con.Open strConnection Set rs = con.Execute(sorgu) Range("B2").CopyFromRecordset rs End Sub...

Merhaba, Ekteki user form belgeyi normal excel üzerinden kullanmak istiyoruz. Ana sayfaya işlediğimiz verilerin plaka listelerine otomatik atmasını için çalışma yapmak istiyoruz. Şöyle bir şeyde yapmak istiyoruz. Ana sayfa ayrı excelde olup her plakanın ayrı bir excel dosyası açılırsa ana...

...= " & CDbl(Me.ComboBox10.Value) rsx.Open sorgux, Baglan, adOpenKeyset, adLockPessimistic rs2.Open "select * from aracparki where plaka='" & rs.Fields(4) & "'", Baglan, adOpenKeyset, adLockPessimistic rs.Update For i = 1 To rsx(0) rs.Fields(7) = rs2.Fields(6) 'YAKIT...

-Ana sayfa kısmını istediğim zaman manuel kullanmak istersem veriler plaka sayfasına otomatik olarak sayfalara geçer mi? Denedim fakat olmadı. -Ana sayfada sildiğim veriler plaka sayfasında silinmiyor kalıyor.

...ComboBox1 _ & ", Tarla Sahibi:" & ComboBox2 _ & ", Kime Gittiği:" & ComboBox3 _ & ", Plaka:" & ComboBox4 _ & ", Cinsi:" & ComboBox6 _ & ", Yükleme:" & ComboBox7 _ & "...

Hocam hallettim teşekkür ederim örnek olarak buraya bırakıyorum belki ihtiyacı olan olabilir. rs.Open "select format([tarih],'dd.mm.yyyy'),plaka,format([A2],'#.##0,00'),format([F],'#,##.00') from hakedis ", baglan, adOpenKeyset, adLockPessimistic

Evet olmuş teşekkür ederim. Program aç kısmında doğru çalışıyor. -Peki ana sayfa kısmını istediğim zaman manuel kullanmak istersem veriler plaka sayfasına otomatik olarak sayfalara geçer mi? Denedim fakat olmadı. -Ana sayfada sildiğim veriler plaka sayfasında silinmiyor kalıyor.

...bir sıkıntı olur mu? Her yerde kullanabilir miyim? Dosyada bazı hatalar alıyorum. -Ana sayfaya işlediğim işler iki defa işleniyor. -Yazdığım kayıtlar plaka sayfalarına otomatik olarak geçmiyor. -Yapılan programın haricinde ana sayfayı programı aç kısmının haricinde manuel olarak kullanabilir...

...VeriArr As Variant, ItemArr, Dict1 As Object, i As Integer Sheets("Sayfa1").Range("E:F").ClearContents Sheets("Sayfa1").Range("E1") = "Plaka" Sheets("Sayfa1").Range("F1") = "Saniye Toplamı / Sefer Sayısı" VeriArr = Sheets("Sayfa1").Range("A2:C" &...