Raporda sorun

[programer]

Arkadaşlar raporalmada sorunum var kodlarda bi karışıklık yaptım bi türlü içinden çıkamadım bana yardımcı olurmusunuz.

 

[Levent Menteşoğlu]

Listele butonuna bağlı kodu aşağıdaki gibi değiştirerek deneyin.

[vb:1:cf84ac0783]Private Sub CommandButton1_Click()
Set rap = Sheets("Raporlar")
rap.Range("A2:H65536").ClearContents
Set ad = Sheets("İşlemler")
Sat = WorksheetFunction.CountA(ad.Range("A2:A65536"))
c = 0
d = 0
For satr = 2 To Sat + 2
If ad.Cells(satr, 3).Value = TextBox3.Value And ad.Cells(satr, 2).Value >= CDate(TextBox1.Value) And ad.Cells(satr, 2).Value <= CDate(TextBox2.Value) Then
c = c + 1
d = d + ad.Cells(satr, 8).Value
For a = 1 To 8
rap.Cells(c + 1, a) = ad.Cells(satr, a).Value
Next
End If
Next satr
TextBox4 = d
adres = "Raporlar!A2:H" & c + 1
ListBox1.RowSource = adres
End Sub[/vb:1:cf84ac0783]

 

[programer]

levetnm teşekkürler projemi yavaş yavaş tamamlıyorum baya bigeniş proje olucak
üretim takip ama daha yeni başladım şunun şurasında kodlarla tanışmam 1.5 ay kadar oluyo ama gerçekten baya bilgiler öğrendim yardım eden arkadaşlara çok teşekkür ederim.

bi sorum daha olacak rapor aldıktan sonra listbox1 üzerindeki veriye çift tkladığım zaman satış formunun açılıp verilerin ilgili yerlere gelmesini nasıl sağlayabilirim. aşağıdaki kodda ne gibi bi değişiklik yapmam gerekli

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Cells(ListBox1.ListIndex + 2, "b")
ComboBox3 = Cells(ListBox1.ListIndex + 2, "c")
ComboBox2 = Cells(ListBox1.ListIndex + 2, "d")
TextBox4 = Cells(ListBox1.ListIndex + 2, "e")
TextBox1 = Cells(ListBox1.ListIndex + 2, "f")
TextBox2 = Cells(ListBox1.ListIndex + 2, "g")
TextBox5 = Cells(ListBox1.ListIndex + 2, "h")
End Sub