تم جلب بيانات خلايا من ملفات اكسل الى ملف اكسل مستقل..لكن المشكله

[ا بو سليمان]

المشكلة انه عندما يتم تحديث الملفات  المرافقة للملف الرئيسي     لا تتحدث في الملف الرئيسي

 

تم ربط الملفات مع الملف الرئيس عن طريق استيراد ملفات

222.rar

[ا بو سليمان]

انني متفااااائل كثير في حل المشكلة 

 

فانا بين اخوتي وفي وسط عائلة افسينا

[أبوعيد]

السلام عليكم

اقتراح : لماذا لا يتم إدراج زر يتم الضغط عليه كلما أردت تحديث البيانات في الملف الرئيسي

وليس تحديث تلقائي

تحياتي

 

[ا بو سليمان]

السلام عليكم

اقتراح : لماذا لا يتم إدراج زر يتم الضغط عليه كلما أردت تحديث البيانات في الملف الرئيسي

وليس تحديث تلقائي

تحياتي

عليكم السلام اخي ابو عيد

 

 

انا ارغب تحديث البيانات تلقائي  لان مصدر البيانات يحدثه الملفات الاصل تلقائي

[شوقي ربيع]

السلام عليكم

الملف الذي ادرجته لا يحوي اي اكواد لذى لن يحدث لك اي شئ

[ا بو سليمان]

السلام عليكم

الملف الذي ادرجته لا يحوي اي اكواد لذى لن يحدث لك اي شئ

حياك الله وبياك اخي شوقي

 

نعم لا يوجد اكواد 

 

انا فقط  جلبتها عن طريق  ايقونه  استيراد بيانات خارجية

 

فهي تحتاج اكواد او معادلات لكي يتم ربطها

 

لذا انا  كتتب المشاركة  هنا طلبا للمساعدة

[شوقي ربيع]

الكود الذي برمجته لك في الرابط

http://www.officena.net/ib/index.php?showtopic=53794

المشاركة رقم 16 يفي بالغرض

[ا بو سليمان]

حبيب قلبي اخي شوقي 

الكود الذي برمجته لك في الرابط

http://www.officena.net/ib/index.php?showtopic=53794

المشاركة رقم 16 يفي بالغرض

 

وهل تعتقد انني استطيع ان اضع الكود وان اعمله بنفسي ..............؟؟؟؟!!!!  اذا الدنيا تتلخبط   وتنمسح الاميه من العالم الاسلامي نهائي....

 

ههههههههههه

[ا بو سليمان]

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

 

ولكن  كل الاخوه الذين يضعون دروس للتعليم  هي تعتبر لنا  متقدمة 

 

فنحن  نحتاج البدايه من الالف   ثم الباء  ثم التاء......

[ا بو سليمان]

لا زلنا ننتظر 

 

فالسؤال  و الجواب موجود 

 

فقط نحتاج  لمهندس  يهندس الجواب  فعليا

[أبوعيد]

السلام عليكم

الملفات التي أرسلتها كلها بامتداد csv

هل تريدها تبقى بهذا الامتداد ؟

وهل يمكن تغييرها إلى امتداد xlsm ؟

[ا بو سليمان]

السلام عليكم

الملفات التي أرسلتها كلها بامتداد csv

هل تريدها تبقى بهذا الامتداد ؟

وهل يمكن تغييرها إلى امتداد xlsm ؟

عليكم السلام اخي ابو عيد

 

انا لا اعرف الامتدادات ولكن يهمني انه  عندما يتحدث الملف االاساس  فانه يتحدث  في   الملف الاساسية   في  داخل الورقة

 

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

[رشراش علي]

حبيب قلبي اخي شوقي 

الكود الذي برمجته لك في الرابط

http://www.officena.net/ib/index.php?showtopic=53794

المشاركة رقم 16 يفي بالغرض

 

وهل تعتقد انني استطيع ان اضع الكود وان اعمله بنفسي ..............؟؟؟؟!!!!  اذا الدنيا تتلخبط   وتنمسح الاميه من العالم الاسلامي نهائي....

 

ههههههههههه

لا فظ فوك وكانك تكلمت عن لساني العاجز ....... لست وحدك في قدر الامية بكسر القاف وكسر القدر نفسها هههههههه

اللهم ادم نعمك على اساتذتنا فان كرمهم من كرمك

[ا بو سليمان]

منتظرين   ..

 

سبحان الله وبحمدة   سبحان الله العظيم

[مختار حسين محمود]

أبوسليمان  فى هذا المرفق 

تم تغيير امتداد الملفات الستة الى xls  مع تغيير أسماء الملفات لسهولة التعامل

جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية

تحديث البيانات : عدل كما تشاء فى الملفات الخمس  وانقر على الزر فى الرئيسية فقط

وبكده نكون عملنا المرحلة الأولى  أما الثانية  سوف أسألك بعض الأسئلة فى حينها

أما السؤال الأن :  الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده  بيتقسم الى خلايا

هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟  أرجو الايضاح

وسوف نكمل الموضوع باذن الله تعالى

mokhtar get data for bosoliman.rar

تم تعديل أبريل 29, 2015 بواسطه مختار حسين محمود

[ا بو سليمان]

أبوسليمان  فى هذا المرفق 

تم تغيير امتداد الملفات الستة الى xls  مع تغيير أسماء الملفات لسهولة التعامل

جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية

تحديث البيانات : عدل كما تشاء فى الملفات الخمس  وانقر على الزر فى الرئيسية فقط

وبكده نكون عملنا المرحلة الأولى  أما الثانية  سوف أسألك بعض الأسئلة فى حينها

أما السؤال الأن :  الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده  بيتقسم الى خلايا

هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟  أرجو الايضاح

وسوف نكمل الموضوع باذن الله تعالى

اخي مختار انت راااااااااااااااااائع 

 

طبعا  المفترض يتم فرز الاسهم  ليكون  كل قيمة في  خلية 

نحتاج  شرح  لكيفيه  تطبيقها   على  ملفات  اخرى   

 

فماهو المطلوب  لعمل ذل 

 

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

تم تعديل أبريل 30, 2015 بواسطه ا بو سليمان

[مختار حسين محمود]

السلام عليكم انتظرتى شوية يا بوسليمان  الملف جاهز تماما لا تقلق

ساعة و الملف يكمل بأذن الله

[مختار حسين محمود]

تفضل  يا أبو سليمان 

بعد فك الضغط عن المرفق سوف تجد ملفاً باسم الرئيسية 

ضعه  فى المجلد mokhtar get data for bosoliman

كن حذرا مع الملف إذ به معادلات   واحتفظ بالملف المضغوط كنسخة احتياطية

الشرح بعد ما تبدى رأيك تحياتى

الرئسية.rar

تم تعديل أبريل 30, 2015 بواسطه مختار حسين محمود

[ا بو سليمان]

اخي مختار  انا ارغب اتعلم   كيف الطريقة  وياليت نكون  في ملف  صغير  

 

ملف  وملف اخر رئيسي  

 

نتعلم الطريقة بشكل مبسط   ويسهل تطبيقها على  خلفات اخرى  لنربطها مع الرئيسي

[مختار حسين محمود]

خلى بالك  يا بو سليمان

لما نريد نقل بضاعة من مكان  الى مكان  يلزمنا عربية نقل  وسواق شاطر

عربية النقل هى  الدوال دى   نسيبها زى ما هيه   فى الملف الرئيسى

Public Sub GetData(SourceFile As Variant, SourceSheet As String, _
                   SourceRange As String, TargetRange As Range, Header As Boolean, UseHeaderRow As Boolean)

    Dim rsCon As Object
    Dim rsData As Object
    Dim szConnect As String
    Dim szSQL As String
    Dim lCount As Long

    ' Create the connection string.
    If Header = False Then
        If Val(Application.Version) < 12 Then
            szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 8.0;HDR=No"";"
        Else
            szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=No"";"
        End If
    Else
        If Val(Application.Version) < 12 Then
            szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 8.0;HDR=Yes"";"
        Else
            szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=Yes"";"
        End If
    End If

    If SourceSheet = "" Then
        ' workbook level name
        szSQL = "SELECT * FROM " & SourceRange$ & ";"
    Else
        ' worksheet level name or range
        szSQL = "SELECT * FROM [" & SourceSheet$ & "$" & SourceRange$ & "];"
    End If

    On Error GoTo SomethingWrong

    Set rsCon = CreateObject("ADODB.Connection")
    Set rsData = CreateObject("ADODB.Recordset")

    rsCon.Open szConnect
    rsData.Open szSQL, rsCon, 0, 1, 1

    ' Check to make sure we received data and copy the data
    If Not rsData.EOF Then

        If Header = False Then
            TargetRange.Cells(1, 1).CopyFromRecordset rsData
        Else
            'Add the header cell in each column if the last argument is True
            If UseHeaderRow Then
                For lCount = 0 To rsData.Fields.Count - 1
                    TargetRange.Cells(1, 1 + lCount).Value = _
                    rsData.Fields(lCount).Name
                Next lCount
                TargetRange.Cells(2, 1).CopyFromRecordset rsData
            Else
                TargetRange.Cells(1, 1).CopyFromRecordset rsData
            End If
        End If

    Else
        MsgBox "No records returned from : " & SourceFile, vbCritical
    End If

    ' Clean up our Recordset object.
    rsData.Close
    Set rsData = Nothing
    rsCon.Close
    Set rsCon = Nothing
    Exit Sub

SomethingWrong:
    MsgBox "The file name, Sheet name or Range is invalid of : " & SourceFile, _
           vbExclamation, "Error"
    On Error GoTo 0

End Sub

Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function


Function Array_Sort(ArrayList As Variant) As Variant
    Dim aCnt As Integer, bCnt As Integer
    Dim tempStr As String

    For aCnt = LBound(ArrayList) To UBound(ArrayList) - 1
        For bCnt = aCnt + 1 To UBound(ArrayList)
            If ArrayList(aCnt) > ArrayList(bCnt) Then
                tempStr = ArrayList(bCnt)
                ArrayList(bCnt) = ArrayList(aCnt)
                ArrayList(aCnt) = tempStr
            End If
        Next bCnt
    Next aCnt
    Array_Sort = ArrayList
End Function

السواق  (  لازم يكون شاطر  ولو خايب نغيره   ) 

احنا بقى  السواق بتاعنا هو الكود ده

Sub GetData_bymokhtar()

             GetData ThisWorkbook.Path & "\bosoliman1.xls", "_4300", "A1:a", Sheets("الرئسية").Range("A2"), True, True
            
            
            GetData ThisWorkbook.Path & "\bosoliman2.xls", "_6050", "A1:a", Sheets("الرئسية").Range("i2"), True, True
            
            
            GetData ThisWorkbook.Path & "\bosoliman3.xls", "_8011", "A1:a", Sheets("الرئسية").Range("q2"), True, True
            
            
            
            GetData ThisWorkbook.Path & "\bosoliman4.xls", "_TASI", "A1:a", Sheets("الرئسية").Range("y2"), True, True
            
            
            GetData ThisWorkbook.Path & "\bosoliman5.xls", "81401", "A1:a", Sheets("الرئسية").Range("ag2"), True, True
          
           
End Sub

لاحظ أن السواق يجب أن يكون عارف هو بيحمل ايه   وعدده كام   عشان ده بيفرق فى الأجره

بص فى الكود  كده   هتلاقى خمس  سطور  بعدد الملفات اللى هنحمل منها بضاعة    كل سطر خاص بملف

 

فى أى سطر من الخمسة  بنقول للسواق  : من  الملف  الذى اسمه كذا اللى فى مسارك    حمّل المدى الفلانى ( من الخلية   .... الى الخلية ....)

 

من الشيت اللى اسمه .......وتعالى حطه فى  ملف الرئيسية  اعتبارا من الخلية ...... بس كدا خلاص البضاعة وصلت

 

====

 

قسمنا البيان ده    12/30/2007,38.70,39.00,36.70,38.30,86849042,38.30  

 

بدالة  StrSplit دى 

Function StrSplit(InString, Pos, Delim)
StrArray = Split(InString, Delim)
StrSplit = StrArray(Pos - 1)
End Function

نستعملها ازاى :  قف خلية   اضغط  fx  عند شريط المعادلات

هتلاقى  الاكسل بيقولك أدرج داله     اختر من القائمة المنسدلة     user defined

مثال  =IF(A2="";"";StrSplit(A2;1;","))        دى تعطيك الجزء الأول من  الرقم

=IF(A2="";"";StrSplit(A2;2;","))             دى تعطيك الجزء الثانى من  الرقم

=IF(A3="";"";StrSplit(A3;3;","))              دى تعطيك الجزء الثالث من  الرقم   وهكذا

بعد ما تخلص من المعادلة شدها لتحت  وتوتة توتة  فرغت الحدوتة   حلوة ولا ملتوتة

تم تعديل مايو 1, 2015 بواسطه مختار حسين محمود

[ا بو سليمان]

استاذي ومعلمي الفاضل  مختار 

 

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

 

بارك الله في عملك وجهدك وعلمك 

 

======

 

حبيب قلبي مختار  شوف الرابط  

 

http://www.up-00.com/?CtcY

 

http://www.up-00.com/?CtcY[url=http://www.up-00.com/]

 

 

المطلوب   اولا

 

- هو ترتيب البيانات   من تاريخ الاحدث الى تاريخ الاقم    

 

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

 

بشرط  انه  يترتب  تلقائي  دائما كلما تم تحديث الملف 

 

المطلوب ثانيا   هو فرز  البيانات  لتكون البيانات  منفصلة  بالخلايا     لانها بشكلها الحالي   مجتمعة 

 

 

المطلوب ثالثا  هو انك تتحملنا وتصبر علينا ...  فاجرك على قدر صبرك و هل هنالك جزاء اكثر من ذلك يوم  ينادى  اهل الجنة ( سلام عليكم بما صبرتم  فنعم عقبى الدار )

[مختار حسين محمود]

أخى الكريم أبوسليمان 

قدر استطاعتى أساعدك

لكن لى طلب أرجوك ألا تطرح طلباتك لشخص بعينه  فى المنتدى  وإنما لكل الزملاء

فإن كانت الطلبات بهذا الشكل سوف ينفر منك  الزملاء ولن تجد ضآلتك .هذه واحدة

الثانية  : أى فرد له قدرة ووقت  يسمحان له بتنفيذ الطلب أو لا يسمحان بتنفيذه

الثالثة : أن الكل يجب أن يشترك فى البحث والعمل  حتى تعم الفائدة على الجميع

الرابعة :أننى أراك غالباً مستقبل للمعلومة فقط دون محاولة  منك فى البحث والتطبيق  قبل طرح الطلب

اعذرنى على صراحتى  وتقبل رأيى  فأند لا أقصد لك إلا الخير  وهو أن تتعلم بنفسك أولا ثم تسأل عن المستعصى أمامك

 

أخوك مختار

[ا بو سليمان]

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

[ا بو سليمان]

سبحانك اللهم وبحمدك  .............. سبحان الله العظيم