Ö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,
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.
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...
-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.
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" &...
Selam Arkadaşlar , ben E sütununa plakaları dizi yöntemiyle yazdırdım .Ama F sütununa bu Plakaların karşısın da ki yani C sütunundaki saatlerin sadece saniyelerinin toplamının plaka sayısına bölümünü de F sütununa yazdırmak istiyorum.Bu kısım benim kapasitemi aşıyor ,desteğiniz için ,teşekkürler.
Merhaba Arkadaşlar ,
Ekte ki dosyamda A sütunundaki Plakaların C sütunundaki değerlerin sadece saniyelerini toplayıp , yine toplamıda A sütunundaki Plaka sayısına bölünmesini mümkünse scripting dictionary ile veya dizi yöntemiyle istiyorum , ilginize teşekkürler.
Merhaba, ekteki dosyada G1 hücresindeki saydırma formülünü P Sütunundaki '01' değerine göre yapmasını istiyorum. Toplamda bu sütunda 58 adet farklı plaka bulunmakta, 01 göre kaç tane var? Yardımınız için teşekkürler.
..."DATA-1 VE DATA-2" gibi sayfalardan SECILEN "TEDARIKCI " VE "AY" A GÖRE taranarak, Tedarikçinin yazılı oldugu işlerin hepsi alt alta TARANIP "PLAKAPLAKA İŞ YAPAN PLAKALARIN " İŞ DETAYLARI İLE buraya a4 den itibaren yazdırılması gerekiyor.
yani plaka1 den 1.ayda kaçtane var ise alt alta...
...VE DATA-2" gibi sayfalardan SECILEN "TEDARIKCI " VE "AY" A GÖRE Tedarikçinin yazılı oldugu olanaların hepsi alt alta a4 den itibaren TARANIP "PLAKAPLAKA İŞ YAPAN PLAKALARIN " İŞ DETAYLARI İLE buraya yazdırılması gerekiyor.
*örneğin Ahmet TEDARİKÇİ seçilip, tek tek AHMET tedarikçisi ile...
...excel dosyalarım var. Bu carilerin yılsonunda devrini yapmak istiyorum. Aşağıdaki makro ile bunu sağlayabildim ancak carinin birden fazla plakası var. Excel dosyasını hazırlarken de bakiye kısmını ona özel hazırlamıştım. Plakaya göre filtreleme yapınca o plakanın bakiyesini veriyor. Ben de...
Private Sub CommandButton1_Click()
Dim SonSatir As Long
Dim SonKm As Long
SonSatir = WorksheetFunction.CountA(Worksheets("sayfa1").Range("A:A")) + 1
With Worksheets("Sayfa1")
SonKm = WorksheetFunction.MaxIfs(.Range("D:D"), .Range("B:B"), ComboBox1.Text)
If SonKm...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.