Makro rapor alma

[TİKOS]

Arkadaşlar,
Bir proje yapmam istendi. Bir kaç haftadır kendi bilgim ve sizlerin yardımı ile
bir yere kadar geldim. Ekteki dosyada ne yapmam gerektiğini yazdım.
Yardımcı olursanız çok memnun olurum,
şimdiden teşekkürler

 

[Orion1]

Siz müşteri adı diyorsunuz ama sayfanızda müşteri adı diye bir yer yok.

 

[TİKOS]

makro rapor alma

müşteri yerine proje adı olacak, yanlış yazmışım

 

[Orion1]

Ay olarak Ocak yazmak çok genel değilmi?2009 dada Ocak var,2008 dede Ocak var bütün yıllarar ait ocak ayı listelenir.Eğer dosyanızda bir yıldan fazla veri depoluyorsanız.Nasıl olacak?

 

[TİKOS]

Veripnl dosyası yalnızca 2009 yılı için geçerli, bu yıl dışında başka yıl gelmeyecek

İlginize teşekkür ederim

 

[Orion1]

Dosya 2nci sayfada 15nci mesajda .

 

[TİKOS]

ok. çok teşekkürler

 

[TİKOS]

Evren hocam,
Şahane çalışıyor, ama hiç veri olmayan aylarda tamamen boş gelsin istiyorum.
Örneğin Mayıs ayı dediğimde proje adı geliyor üretim rakamları sıfır Eğer hiç o aya ait hiç veri yoksa boş gelsin.

Çok teşekkürler

 

[TİKOS]

üstat çok şey istiyorum galiba,
Aylara göre Proje adı ve toplamı getirmiştir.
Oluşturduğumuz Listbox'ın alt kısmınada o ayın toplamını getirebilirmiyiz.
Teşekkürler

 

[Orion1]

Evren hocam,
Şahane çalışıyor, ama hiç veri olmayan aylarda tamamen boş gelsin istiyorum.
Örneğin Mayıs ayı dediğimde proje adı geliyor üretim rakamları sıfır Eğer hiç o aya ait hiç veri yoksa boş gelsin.

Çok teşekkürler

üstat çok şey istiyorum galiba,
Aylara göre Proje adı ve toplamı getirmiştir.
Oluşturduğumuz Listbox'ın alt kısmınada o ayın toplamını getirebilirmiyiz.
Teşekkürler

Dosya 2nci sayfada 15nci mesajda .

 

[Orion1]

10ncu mesajda yolladığım dosyada ve kodlarda bir yerde mantık hatası vardı.Onu düzeltip yine 10ncu mesaja ekledim.Dosyanın son halini kullanmanız doğru olacaktır.

 

[TİKOS]

makro rapor alma

Evren hocam,
Çok teşekkürler gayet güzel. Ama bir yerde hata var.
Rapor istediğimde Ay' a göre, örneğin Ocak ayı dediğimde 212 AVM yi
o ayki diğer projelerinde üretimlerini toplayıp gösteriyor.
Normalde AVM-212 m2 toplamı 65 olması gerekirken 100 çıkıyor.
diğer projelerdede aynı şeyler oluyor.
İlgilenirseniz çok sevinirim.

 

[TİKOS]

makro rapor alma

Evren hocam,
Çok teşekkürler gayet güzel. Ama bir yerde hata var.
Rapor istediğimde Ay' a göre, örneğin Ocak ayı dediğimde 212 AVM yi
o ayki diğer projelerinde üretimlerini toplayıp gösteriyor.
Normalde AVM-212 m2 toplamı 65 olması gerekirken 100 çıkıyor.
diğer projelerdede aynı şeyler oluyor.
İlgilenirseniz çok sevinirim.

 

[Orion1]

Evren hocam,
Çok teşekkürler gayet güzel. Ama bir yerde hata var.
Rapor istediğimde Ay' a göre, örneğin Ocak ayı dediğimde 212 AVM yi
o ayki diğer projelerinde üretimlerini toplayıp gösteriyor.
Normalde AVM-212 m2 toplamı 65 olması gerekirken 100 çıkıyor.
diğer projelerdede aynı şeyler oluyor.
İlgilenirseniz çok sevinirim.

Dosyanızı 2207 formatında değilde 2003 formatında yollarsanız bakabilirim.Bende 2007 yok.

 

[Orion1]

Evet bir yerde hata yapmışım.Özür.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim i As Long, x As Long, myarr() As Variant, m2 As Double, m3 As Double
Dim z As Byte, k As Long, tplm2 As Double, tplm3 As Double
myarr = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", _
"AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
ListBox1.Clear
If Tarih.Value = "" Then
    MsgBox "Bir Ay Giriniz..!!", vbCritical, "UYAR"
    Tarih.SetFocus
    Exit Sub
End If
With Sheets("Veripnl")
    For i = 3 To .Cells(65536, "C").End(xlUp).Row
        For z = 1 To 12
            If Tarih.Value = myarr(z) Then
                If WorksheetFunction.CountIf(.Range("C3:C" & i), .Cells(i, "C").Value) = 1 Then
                    m2 = 0: m3 = 0
                    For k = i To .Cells(65536, "C").End(xlUp).Row
                        If Month(.Cells(k, "B").Value) = z And _
                        .Cells(k, "C").Value = .Cells(i, "C").Value Then
                            m2 = m2 + .Cells(k, "L").Value
                            m3 = m3 + .Cells(k, "M").Value
                        End If
                    Next k
                    If m2 > 0 Or m3 > 0 Then
                        ListBox1.AddItem
                        ListBox1.List(x, 0) = .Cells(i, "C").Value
                        ListBox1.List(x, 1) = m2
                        ListBox1.List(x, 2) = m3
                        tplm2 = tplm2 + m2
                        tplm3 = tplm3 + m3
                        x = x + 1
                        m2 = 0: m3 = 0
                    End If
                End If
            End If
        Next z
    Next i
End With
ListBox1.AddItem
ListBox1.List(x, 0) = "__________________________"
ListBox1.List(x, 1) = "__________________________"
ListBox1.List(x, 2) = "__________________________"
x = x + 1
ListBox1.AddItem
ListBox1.List(x, 0) = "T O P L A M :"
ListBox1.List(x, 1) = tplm2
ListBox1.List(x, 2) = tplm3
End Sub