كشف حساب عميل باليوزرفورم

[Tarekchahine]

هكذا

AAAAA.rar

[lionheart]

There are not enought details but try the following code study it well and change it to suit your needs

Option Explicit

Private Sub ComboBox1_Change()
    Dim ws As Worksheet, i As Integer, m As Long, r As Long, k As Long
    For i = 2 To 5
        Set ws = ThisWorkbook.Worksheets(i)
        With ws
            m = .Cells(Rows.Count, "D").End(xlUp).Row
            If m <= 1 Then GoTo NXT
            For r = 2 To m
                If .Cells(r, "D").Value = ComboBox1.Value Then
                    With Me.ListBox1
                        If k = 0 Then .ColumnCount = 3
                        .AddItem
                        .List(k, 0) = ws.Cells(r, 1).Value
                        .List(k, 1) = ws.Cells(r, 2).Value
                        .List(k, 2) = ws.Cells(r, 6).Value
                        k = k + 1
                    End With
                End If
            Next r
NXT:
        End With
    Next i
End Sub

 

[Tarekchahine]

استاذ شكرا علي المجهودك 

بس المشكله اذا كانت شيت اكسيل نشطه مبيعات او مشتريات  يعمل الكود علي نفس الصفحه 

لو سمحت انا اريد يعمل علي صفحات المبيعات و المشتريات و المرتجع 

[lionheart]

Change the variable i to determine the worksheets index number to suit your needs

[Tarekchahine]

هكذا استاذ

 m = .Cells(Rows.Count, "D").End(xlUp).Row+1

لو سمحت استاذ ممكن اضافة عند تغيير اسم يتم مسح معلومات الليست بوكس

 

[Tarekchahine]

Application.ScreenUpdating = False
ListBox1.RowSource = Empty
ListBox1.Clear

تم الحل  بفضلكم 

شكرا lionheart

[lionheart]

Before the loop in the code use this line

Me.ListBox1.Clear

 

[Tarekchahine]

شكرا استاذ .. لو سمحت عندي سؤال 

لازم يكون كشف الحساب دائن ومدين من المبيعات و المشتريات و المرتجع المبيعات و المشتريات    في الليست بوكس ؟

[lionheart]

Not clear for me. I will leave this question for those who are specialist in accounting

[Tarekchahine]

اوكي استاذ ممكن نعمل تعديل بسط اذا سمحت

 

 

[Tarekchahine]

[lionheart]

I can't help you anymore as there are no clear steps

But generally you can use IF statement and the property NAME to refer to sepcific worksheet

If worksheets(i).Name = "NAMEOFSHEET" Then
	'Do Something
Else
	'Do Another Thing
End If

 

[Tarekchahine]

هذا جزء مع الكود 

[lionheart]

I just gave you some instructions. Now you have the main code, study it well then try to implement your needs in the code

[Tarekchahine]

نعم انت علي حق استاذ

شكرا الك علي المساعد بس صدقني لو عندي خلفيه عن البرمجه كنت عملت كود  خبرتي صغير 

شكرا 

 

[lionheart]

learning is a continuous process and we were not born know anything. Try and you will be able to do it yourself

[Tarekchahine]

ممكن شرح كود كيف يعمل (( حتي اقد اوصل الا حل ))

[lionheart]

I will leave the explanation of the code to someone who can understand vba codes as I will not be able to explain in Arabic