مساعدة في استدعاء بيانات من صفحتين الى تكست بوكس

[nicola]

السلام عليكم ورحمة الله تعالى وبركاتة

بارك الله بالقائمين على هذا الصراح التعلمي 

وزاد الله من علم اساتذتنا الذين ما بخلون علينا بعلمهم

 

 

اخوتي الاكارم 

ان الملف المرفق هو استدعاء بيانات من صفحتين الى الست بوكس حسب الكود

وعند الاختيار من الست البوكس يتم استدعاء البيانات المحددة من الست بوكس الي التكست بوكس

وهنا اواجة مشكلة في عملية الاستدعاء الى التكست بوكس

 

في المرفق توجد التفاصيل 

ارجوا مساعدتكم 

ولكم فائق الاحترام والتحية

 

 

مساعدة في استدعاء بيانات من صفحتين الى التكست بوكس.rar

[nicola]

للرفع

[nicola]

للرفع

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

Private Sub ListBox1_Click()
ComboBox1.ListIndex = ListBox1.ListIndex
LASTROW = Sheets("DB1").Cells(Rows.Count, "A").End(xlUp).Row + 1
LASTROW2 = Sheets("DB2").Cells(Rows.Count, "A").End(xlUp).Row + 1

If Left(ComboBox1.Text, 1) = "a" Then
 For i = 1 To LASTROW2
 F = Right(ComboBox1.Text, Len(ComboBox1.Text) - 1)
   If Sheets("DB2").Cells(i, 1) = Val(Right(ComboBox1.Text, Len(ComboBox1.Text) - 1)) Then
    For R = 2 To 5
       Me.Controls("TextBox" & R).Value = Sheets("DB2").Cells(i, R).Value
    Next
   End If
Next
   
Else
 For i = 1 To LASTROW
    If Sheets("DB1").Cells(i, 1) = ComboBox1.Text Then
    For R = 2 To 5
       Me.Controls("TextBox" & R).Value = Sheets("DB1").Cells(i, R).Value
    Next
   End If
 Next
    
End If


End Sub

Private Sub TextBox1_Change()
Dim LASTROW As Long
Dim i As Integer, T As Integer
Dim MYSH As Worksheet
Dim v As Integer
Dim M As String
Dim q, F As String
ListBox1.Clear
ComboBox1.Clear
M = TextBox1.Value
Set DADA = Sheets("DB1")
        With DADA
            LASTROW = .Cells(.Rows.Count, "A").End(xlUp).Row
            Set q = .Range("B2:B" & LASTROW).Find(M)
            If Not q Is Nothing Then
                F = q.Address
                Do
                If Application.WorksheetFunction.Search(M, q, 1) = 1 Then
                
                    ComboBox1.AddItem q.Offset(0, -1).Value
                    
                    ListBox1.AddItem q.Value
                    ListBox1.List(v, 1) = q.Offset(0, 1).Value
                    'ListBox1.List(v, 2) = q.Offset(0, 2).Value
                    ListBox1.List(v, 2) = q.Offset(0, 3).Value
                    v = v + 1
                 End If
                Set q = .Range("B2:B" & LASTROW).FindNext(q)
                Loop While Not q Is Nothing And q.Address <> F
            End If
        End With
        
        
Set DADA = Sheets("DB2")
        With DADA
            LASTROW = .Cells(.Rows.Count, "A").End(xlUp).Row
            Set q = .Range("B2:B" & LASTROW).Find(M)
            If Not q Is Nothing Then
                F = q.Address
                Do
                If Application.WorksheetFunction.Search(M, q, 1) = 1 Then
                
                    ComboBox1.AddItem "a" & q.Offset(0, -1).Value
                    
                    ListBox1.AddItem q.Value
                    ListBox1.List(v, 1) = q.Offset(0, 1).Value
                    'ListBox1.List(v, 2) = q.Offset(0, 2).Value
                    ListBox1.List(v, 2) = q.Offset(0, 3).Value
                    v = v + 1
                 End If
                Set q = .Range("B2:B" & LASTROW).FindNext(q)
                Loop While Not q Is Nothing And q.Address <> F
            End If
        End With


End Sub

 

تحياتي

[حمادة عمر]

السلام عليكم

الاستاذ والاخ الكريم / احمد عبد الناصر

 

تعديل رااائع علي الكود ويعمل بنجاح

وبكفاءة عاليه

جزاك الله خيرا

 

[aammrr]

عندى مشكله

عندى ملفين اكسيل (وليس شيتين) اريد ان ادخل البيانات فى ملف الاكسيل الاول
وعند فتح الملف الثانى يظهر البيانات ( يعنى ربط البيانات بين الملفين )

 

[احمد عبد الناصر]

aammrr   

 

مرحبا بك في المنتدي .

 

الافضل ان تضع السؤال في موضوع جديد لتعم الفائدة و تتنوع الحلول .

 

و ان شاء الله هناك حلول.

 

و حبذا لو اضفت مرفق للملفين .

 

تحياتي 

تم تعديل فبراير 21, 2013 بواسطه احمد عبد الناصر

[aammrr]

انا اضفت موضوع جديد ولم يظهر شئء

[nicola]

اخي الكريم احمد عبد الناصر

ما شاء الله عنك 

والله انك لمبدع 

زادك الله علما 

وبارك الله فيك 

وهنيأ لهذا المنتدى بعضوا مثابرا ومبدع مثلك

ولك جزيل الشكر والتحية

[حسين العصلوجى]

تحية طيبه للاخ الفاضل احمد عبدالناصر

لي سؤال 

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

[احمد عبد الناصر]

اخي الكريم احمد عبد الناصر

ما شاء الله عنك 

والله انك لمبدع 

زادك الله علما 

وبارك الله فيك 

وهنيأ لهذا المنتدى بعضوا مثابرا ومبدع مثلك

ولك جزيل الشكر والتحية

 

تحياتي لك 

 

ولكن هنيئا لي انا بهذا المنتدى و اعضاءه اصحاب الخلق الحميد و الجود و الكرم .

[حمادة عمر]

اخي الكريم احمد عبد الناصر

ما شاء الله عنك 

والله انك لمبدع 

زادك الله علما 

وبارك الله فيك 

وهنيأ لهذا المنتدى بعضوا مثابرا ومبدع مثلك

ولك جزيل الشكر والتحية

 

الاخ الكريم / nicola

كل كلماتك صحيحة بالفعل

فالاخ/  احمد عبد الناصر  من الاعضاء المبدعين حقاً

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسين العصلوجى

 

يمكنك تغيير عرض اعمدة الست بوكس وذلك من الخيار ColumnWidths وذلك بكتابة المقاسات كالتالي 100 pt;90 pt;90 pt;90 pt;90 pt;0 pt

كما في الصورة المرفقة

جزاك الله خيرا

 

تغيير مقاسات اعمدة الست بوكس.rar