z raporu

[Fuat Şirin]

arkadaşlar aşağıdaki kodları kullanarak
satış sayfasında girilen verileri
günlük z raporu almak istiyorum ama sonuç alamadım

Private Sub CommandButton1_Click()
If TextBox1.Value = Empty Then
MsgBox "Lütfen; TARİH Girmelisiniz....", vbExclamation, "TARİH BOŞ OLMAZ..."
Exit Sub
End If
say = WorksheetFunction.CountIf(Sheets("SATIŞ").Range("B3:B65536"), TextBox1.Text)
If say = 0 Then
MsgBox "Girilen TARİHE AİT VERİ BULUNAMADI...", vbInformation, "Veri Error"
Exit Sub
End If
Sheets("rapor").Range("b3:q65536").ClearContents
For x = 2 To 100
son = Sheets("rapor").[a65536].End(3).Row + 1
If TextBox1.Text = Sheets("SATIŞ").Cells(x, 1) Then
Sheets("rapor").Cells(son, 1) = Sheets("SATIŞ").Cells(x, 2)
Sheets("rapor").Cells(son, 2) = Sheets("SATIŞ").Cells(x, 3)
Sheets("rapor").Cells(son, 3) = Sheets("SATIŞ").Cells(x, 4)
Sheets("rapor").Cells(son, 4) = Sheets("SATIŞ").Cells(x, 5)
Sheets("rapor").Cells(son, 5) = Sheets("SATIŞ").Cells(x, 6)
Sheets("rapor").Cells(son, 6) = Sheets("SATIŞ").Cells(x, 7)
Sheets("rapor").Cells(son, 7) = Sheets("SATIŞ").Cells(x, 8)
Sheets("rapor").Cells(son, 8) = Sheets("SATIŞ").Cells(x, 9)
Sheets("rapor").Cells(son, 9) = Sheets("SATIŞ").Cells(x, 10)
Sheets("rapor").Cells(son, 10) = Sheets("SATIŞ").Cells(x, 11)
Sheets("rapor").Cells(son, 11) = Sheets("SATIŞ").Cells(x, 12)
Sheets("rapor").Cells(son, 12) = Sheets("SATIŞ").Cells(x, 13)
End If
Next
ListBox1.RowSource = "rapor!b2:q" & [b65536].End(3).Row
UserForm_Initialize
End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = Date
End Sub


kodlarım bunlar bunları nasıl şekle sokarız

 

[Fuat Şirin]

help me!!!
bir yardım

 

[Ferhat Pazarçevirdi]

Verileri gösteren bir çalışma kitabı eklerseniz ve neyin olmadığını açıklarsanız sanırım daha iyi olacak.

 

[Fuat Şirin]

selam

dosya ektedir

 

[Orion1]

Merhaba.
CommandButonDaki kodları aşağıdaki ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Dim tarih1 As Date, tarih2 As Date, sat As Long, sonsat As Long
Sheets("SATIŞ").Select
If TextBox1.Value = Empty Then
MsgBox "Lütfen; TARİH Girmelisiniz....", vbExclamation, "TARİH BOŞ OLMAZ..."
Exit Sub
End If
ListBox1.Clear
Sheets("rapor").Range("b3:q65536").ClearContents
say = WorksheetFunction.CountIf(Sheets("SATIŞ").Range("B3:B65536"), TextBox1.Text)
If say = 0 Then
MsgBox "Girilen TARİHE AİT VERİ BULUNAMADI...", vbInformation, "Veri Error"
Exit Sub
End If
sat = 3
sonsat = Sheets("SATIŞ").[B65536].End(3).Row
tarih1 = CDate(TextBox1.Value)
ReDim dizi(1 To 12, 1 To say)
For x = 3 To sonsat
tarih2 = CDate(Cells(x, "B").Value)
If tarih1 = tarih2 Then
For J = 2 To 13
    Sheets("rapor").Cells(sat, J) = Sheets("SATIŞ").Cells(x, J)
    dizi(J - 1, x - 2) = Sheets("SATIŞ").Cells(x, J)
Next J
Sheets("rapor").Cells(sat, 2).Value = CDate(tarih2)
sat = sat + 1
End If
Next
ListBox1.Column = dizi
MsgBox "RAPORLAMA YAPILDI..!!", vbOKOnly, Application.UserName
End Sub

 

[Fuat Şirin]

hocam teşekkür süper oldu
bir şey daha sorsam
iki tarih arası
nasıl raporlarız
mesela;
05.01.2007
05.02.2007
arası gibi

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[Fuat Şirin]

hocam çok teşekkür tam olarak oldu
Allah razı olsun

 

[Orion1]

Merhaba.
Satış Sayfasında tarihleri karşılaştırmak için K1 hücresine TOPLA.ÇARPIM formülünü yazdım.Onun İçin satış sayfasındaki K1 hücresini silmeyiniz.Eğer WorksheetFunction kullanarak uygun kodu yazabilirsem CommandButton'a o kodu ekleyeceğiz.
İyi çalışmalar.

 

[Orion1]

Merhaba.
CommandButon'a aşağıdaki kodları yapıştırın.
Böylece Topla.Çarpım formülüne gerek kalmıyor.
a1,B1 ve K1 hücrelerini silebilirsiniz.

Private Sub CommandButton1_Click()
Dim tarih1 As Date, tarih2 As Date, sat As Long, sonsat As Long, tari3 As Date, say As Byte
Sheets("SATIŞ").Select
If Not IsDate(TextBox1.Value) Then
MsgBox "Lütfen; İlk Tarihe TARİH Girmelisiniz....", vbExclamation, "TARİH BOŞ OLMAZ..."
TextBox1.SetFocus
Exit Sub
End If
If Not IsDate(TextBox2.Value) Then
MsgBox "Lütfen; Son Tarihe TARİH Girmelisiniz....", vbExclamation, "TARİH BOŞ OLMAZ..."
TextBox2.SetFocus
Exit Sub
End If
ListBox1.RowSource = ""
tarih1 = CDate(TextBox1.Value)
tarih2 = CDate(TextBox2.Value)
Sheets("rapor").Range("b3:q65536").ClearContents
sat = 3
sonsat = Sheets("SATIŞ").[B65536].End(3).Row
For x = 3 To sonsat
tarih3 = CDate(Cells(x, "B").Value)
If tarih3 >= tarih1 And tarih3 <= tarih2 Then
For J = 2 To 13
    Sheets("rapor").Cells(sat, J) = Sheets("SATIŞ").Cells(x, J)
Next J
Sheets("rapor").Cells(sat, 2).Value = CDate(tarih3)
sat = sat + 1
say = 1
End If
Next
sonsat = Sheets("rapor").Cells(65536, "B").End(xlUp).Row
If say = 0 Then
MsgBox "Girilen TARİHE AİT VERİ BULUNAMADI...", vbInformation, "Veri Error"
Exit Sub
End If
ListBox1.RowSource = "rapor!B3:M" & sonsat
MsgBox "RAPORLAMA YAPILDI..!!", vbOKOnly, Application.UserName
End Sub

 

[Fuat Şirin]

çok tşk çok saolun

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[Fuat Şirin]

stok durumu

aynı dosyada bir işlemim daha olacak
yeni bir topik açmaya gerek görmedim
depo giriş sayfasında sarı renkli olan sütundan
satış sayfasındaki sarı renkli olan sütunlar çıkacak
stok sayfasında sarı olan yerlere işlicek

yani depoda stokta ne varsa görmem lazım
bu kayıtların kod ve barkod baz alınarak benzersiz olması lazım

bir şey daha var ama yüzsüzlük olmasın
satış yaparken eğer depoda yoksa satış yapmasın istiyroum
saygılar şimididen

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Ürün koduna göre karşılaştırma yapıyor.Çıkan ürünün miktarını stoktan düşüyor.Stoktan fazla ürün çıkma durumunda ikaz ediyor.

 

[Fuat Şirin]

hocam süpersiniz yanlız ben bir yere takıldım
depodaki mallarımızı nasıl görücez
yani stok sayfasında

 

[Orion1]

Merhaba.
Depodaki malların Sadece satışı yapılacak ürününümü o anda görmek istiyorsunuz, yoksa depodaki tüm ürünlerimi görmek istiyorsunuz.?
Depodaki tüm ürünleri görmek istiyorsanız,userform'a bir tane dağa page eklemek gerekir veya bir tane userform eklemek gerekir ve o userform'a listbox eklemek gerekir.

 

[Fuat Şirin]

evet hocam depodaki mallarımıda list yapması lazım
yani neyimiz var bilmemiz lazım

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Stok durumu Page'ini açınız ve textbox'a istediğniz ürünü yazarak listeleme yapınız.

 

[Fuat Şirin]

merhaba;
hocam sizi çok yordum ama
depo giriş sayfasındaki ürünlerden
depo çıkışı çıkartıp
stok sayfasına eklemesi gerekmez mi?
yada ben mi çalıştıramadım
Zira sadece stok yazan sayfadaki ürünleri listeliyor...
Saygılarımla;;

 

[Orion1]

Depo girişi sayfasındaki ürünleri önce depo stok sayfasında listelesin ondan sonra listbox'ta listelesinmi istiyorsunuz.?