rapor yardım

[mitix]

ek te dosyanın 3. sayfadaki rapor makrosunu buradaki arkadaşlara yaptırmıştım . dosya üzerindeki sütün eklemeleri olunca rapor butonu şu anda çalışmıyor. yardımcı olabilirmisiniz (tarih aralığına göre kullanılan bobin kg.ları)

 

[mitix]

arkadaşlar yardım cı olabilecek yokmu bana . üzerinde değişiklik yapılması gereken makro aşağıda . ben değişikliği dili bilmediğim için yapamadım . n11_stok_ , q11_stok_........... tarihlerindeki kullanılan kg ları getirmesi gerekiyor.


(Sub RAPOR()

Dim S1 As Worksheet, S2 As Worksheet
Dim TARİH As Variant, SATIR As Long, X As Byte, Y As Long

Set S1 = Sheets("_STOK_")
Set S2 = Sheets("RAPOR")

TARİH = InputBox("Lütfen raporlamak istediğiniz başlangıç tarihi giriniz.", "BAŞLANGIÇ TARİH GİRİŞİ", Format(Date, "dd.mm.yyyy"))
TARİH1 = InputBox("Lütfen raporlamak istediğiniz bitiş tarihi giriniz.", "BİTİŞ TARİH GİRİŞİ", Format(Date, "dd.mm.yyyy"))

If TARİH = "" Or TARİH1 = "" Or TARİH = False Then Exit Sub

S2.Range("A2:H65536").ClearContents
S2.Range("A2:H65536").Font.Bold = False

SATIR = 2
SÜTUN = 30

For X = 10 To 29 Step 2
For Y = 11 To S1.Range("A65536").End(3).Row
If S1.Cells(Y, X) > 0 Then

If S1.Cells(Y, X) >= CDate(TARİH) And S1.Cells(Y, X) <= CDate(TARİH1) Then
S2.Cells(SATIR, "A") = S1.Cells(Y, X)
S2.Cells(SATIR, "B") = S1.Cells(Y, "B")
S2.Cells(SATIR, "C") = S1.Cells(Y, "C")
S2.Cells(SATIR, "D") = S1.Cells(Y, "D")
S2.Cells(SATIR, "E") = S1.Cells(Y, "E")
S2.Cells(SATIR, "F") = S1.Cells(Y, "F")
S2.Cells(SATIR, "G") = S1.Cells(Y, "G")
S2.Cells(SATIR, "H") = S1.Cells(Y, SÜTUN)
SATIR = SATIR + 1
End If
End If
Next
SÜTUN = SÜTUN + 1
Next

If S2.Range("A2") = "" Then
MsgBox CDate(TARİH) & " ve " & CDate(TARİH1) & " tarihlerine ait veri bulunamamıştır !", vbExclamation, "Dikkat !"
Else
S2.Cells(SATIR + 1, "G").Font.Bold = True
S2.Cells(SATIR + 1, "G") = "TOPLAM"
S2.Cells(SATIR + 1, "H").Font.Bold = True
S2.Cells(SATIR + 1, "H") = WorksheetFunction.Sum(Range("H:H"))
MsgBox "İşleminiz tamamlanıştır.", vbInformation
End If

Set S1 = Nothing
Set S2 = Nothing
End Sub

)

 

[mitix]

üstadlar lütfen yardım edin . yukarıda ufak bir değişiklik etkili olacak .
kaynağa bir kaç sutün eklediğim için şu anda çalışmıyor rapor.