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

لوحة التميز الأسبوعي
العضو المتميز	المشرف المتميز	المراقب المتميز	المدير المتميز	الموضوع المتميز	القسم المتميز

هانى على	لا تميز خلال هذه الفترة	لا تميز خلال هذه الفترة	YasserKhalil	هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد	اكسيل اسئله واجابات

أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

الرئيسية

منتدى الاكسيل

اكسيل شروحات ودروس

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

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت [code]PGJyIC8+DQpQcml2YXRlIFN1YiBDb21tYW5kQnV0dG9uMV9DbGl ..

: لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

الصفحة 1 من 3

الأخيرة »

أدوات الموضوع

أدوات الموضوع

تحميل محتوى الموضوع

عرض نسخة صالحة للطباعة

أرسل هذا الموضوع إلى صديق

: معرفة اخر صف في كل ورقة

24-07-2018 07:30 صباحا

salim

خبير معتمد

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 43

المشاركات : 853

الجنس :

تاريخ الميلاد : 1-5-1989

الدعوات : 1

يتابعهم : 13

يتابعونه : 33

قوة السمعة : 6607

عدد الإجابات: 67

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



Private Sub CommandButton1_Click()

my_row

End Sub
'==============

Option Explicit

Dim lr



Sub LastRow_In_sheet(sh_Name)

    On Error Resume Next

    lr = sh_Name.Cells.Find(What:="*", _

                            After:=Range("A1"), _

                            Lookat:=xlPart, _

                            LookIn:=xlValues, _

                            SearchOrder:=xlByRows, _

                            SearchDirection:=xlPrevious, _

                         MatchCase:=False).Row

     If Err.Number <> 0 Then lr = ""

     On Error GoTo 0

End Sub

'===============================================



Sub my_row()

Dim i%

Dim lr1

Dim k%: k = Sheets.Count

Sheets("sheet1").Activate

lr1 = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row

 If lr1 = 1 Then lr1 = 2

 Sheets("sheet1").Range("a2:b" & lr1).ClearContents

If k = 1 Then

  Sheets("sheet1").Range("b2") = Sheets("sheet1").Name

  Sheets("sheet1").Range("a2") = 2

  Exit Sub

 End If

For i = 2 To Sheets.Count

Call LastRow_In_sheet(Sheets(i))

Sheets("sheet1").Range("b" & i) = Sheets(i).Name

    If IsNumeric(lr) Then

        Sheets("sheet1").Range("a" & i) = lr

       Else

        Sheets("sheet1").Range("a" & i) = " (Empty)"

    End If

Next

End Sub

Last_row In sheets.rar تحميل rar مرات التحميل :(25)
الحجم :(26.033) KB

: 24-07-2018 09:35 صباحا

[1]

الصقر

مدير المنتدى

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 2

المشاركات : 1824

الجنس :

الدعوات : 21

يتابعهم : 0

يتابعونه : 749

قوة السمعة : 19987

موقعي : زيارة موقعي

عدد الإجابات: 2

: معرفة اخر صف في كل ورقة

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

Sub Alsqr()

Dim lr As Long

Dim sh As String

Dim i As Worksheet

For Each i In Worksheets

lr = i.Cells(Rows.Count, 1).End(3).Row

sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)

Next i

MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"

End Sub

: توقيع :الصقر

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

: 24-07-2018 09:42 صباحا

[2]

salim

خبير معتمد

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 43

المشاركات : 853

الجنس :

تاريخ الميلاد : 1-5-1989

الدعوات : 1

يتابعهم : 13

يتابعونه : 33

قوة السمعة : 6607

عدد الإجابات: 67

: معرفة اخر صف في كل ورقة

المشاركة الأصلية كتبت بواسطة: الصقر

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء
Sub Alsqr()

Dim lr As Long

Dim sh As String

Dim i As Worksheet

For Each i In Worksheets

lr = i.Cells(Rows.Count, 1).End(3).Row

sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)

Next i

MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"

End Sub

جزاك الله خيراً اخي حسام

لكن ليس من الضروي ان يكون اخر صف بتاع اخر خلية غير فارغة في العامود الاول (اقصد العامود A)

: 24-07-2018 10:14 صباحا

[3]

الصقر

مدير المنتدى

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 2

المشاركات : 1824

الجنس :

الدعوات : 21

يتابعهم : 0

يتابعونه : 749

قوة السمعة : 19987

موقعي : زيارة موقعي

عدد الإجابات: 2

: معرفة اخر صف في كل ورقة

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

Sub Alsqr()

Dim lr As Long

Dim sh As String

Dim i As Worksheet

For Each i In Worksheets

lr = i.Cells.SpecialCells(xlLastCell).Row

sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)

Next i

MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"

End Sub

الكود يختلف عن الكود السابق فى استبدال هذا السطر

lr = i.Cells(Rows.Count, 1).End(3).Row

بهذا السطر

lr = i.Cells.SpecialCells(xlLastCell).Row

: توقيع :الصقر

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

: 24-07-2018 10:39 صباحا

[4]

الصقر

مدير المنتدى

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 2

المشاركات : 1824

الجنس :

الدعوات : 21

يتابعهم : 0

يتابعونه : 749

قوة السمعة : 19987

موقعي : زيارة موقعي

عدد الإجابات: 2

: معرفة اخر صف في كل ورقة

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

Sub Alsqr()

Dim lr As Long

Dim sh As String

Dim i As Worksheet

For Each i In Worksheets

On Error Resume Next

lr = 0

lr = i.Cells.Find(What:="*", After:=Range("a1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)

1

Next i

MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"

End Sub

: توقيع :الصقر

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

: 24-07-2018 12:06 مساء

[5]

ali mohamed ali

مشرف على منتدى الاكسيل

تاريخ الإنضمام : 20-11-2017

رقم العضوية : 1757

المشاركات : 1772

الدولة : مصر

الجنس :

الدعوات : 2

يتابعهم : 0

يتابعونه : 68

قوة السمعة : 9642

عدد الإجابات: 47

: معرفة اخر صف في كل ورقة

بارك الله فيكم جميعا مجهود رائع وتنافس شريف -جزاكم الله كل خير

: توقيع :ali mohamed ali

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره

أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة

الاخرين لوجه الله وان تحتسب له اجر عند الله

: 24-07-2018 01:41 مساء

[6]

YasserKhalil

مراقب عام

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 3

المشاركات : 10461

الجنس :

تاريخ الميلاد : 1-10-1978

الدعوات : 24

يتابعهم : 1

يتابعونه : 539

قوة السمعة : 36712

عدد الإجابات: 257

: معرفة اخر صف في كل ورقة

بارك الله فيك أخي الحبيب سليم وجزاك الله خير الجزاء
والشكر موصول للأخ الحبيب حسام خطاب
وإثراءً للموضوع هذه دالة معرفة شبيهة بالإجراء العام ويمكن استخدمها بسهولة

Sub Test_LastRow_UDF()

    MsgBox LastRow(ActiveSheet)

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

لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

الصفحة 1 من 3

الأخيرة »

الكلمات الدلالية

معرفة ، ورقة ،

« أرقام عشوائية بين عددين بدون تكرار ( معادلات) | المراتب بين واحد و مئة »

اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:04 مساء

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت [code]PGJyIC8+DQpQcml2YXRlIFN1YiBDb21tYW5kQnV0dG9uMV9DbGl ..

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

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

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

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

الكود يختلف عن الكود السابق فى استبدال هذا السطر

بهذا السطر

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

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

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

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

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

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

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