الذهاب إلى أول خلية فارغة في عمود معين

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

السلام عليكم

 

هل يوجد كود خفيف للذهاب إلى أول خليه فارغة في عمود معين

 

Go to first empty cell in a specific column

 

ولكم جزيل الشكر

[رجب جاويش]

تفضل أخى

Sub ragab()
x = 1
Cells(Cells(Rows.Count, x).End(xlUp).Row + 1, x).Select
End Sub

غير قيمة x الى رقم العمود الذى تريده

[إبراهيم ابوليله]

اخى رجب

دائما ما نرى منك السهوله فى الاداء

واسمح لى بالمشاركه فى الموضوع

هذا كود للوصول الى اول خليه فارغه

بعد الخليه النشطه

Sub ActivateNextBlankDown()
كود الوصول الى اول خليه فارغه بعد الخليه النشطه
    activeCell.offset(1, 0).Select
    Do While Not IsEmpty(activeCell)
        activeCell.offset(1, 0).Select
    Loop
End Sub

[إبراهيم ابوليله]

اخى عبد الرحمن

تفضل كود اخر

يقف على اول خليه فارغه

Sub H()
Range("B" & [B10000].End(xlUp).Row + 1).Select
End Sub

كما يمكن ايضا استخدام هذا الكود

Sub HM()
For HH= 1000 To 1 Step -1
If Not IsEmpty(Cells(HH, 2)) Then
Cells(HH+ 1, 2).Select
Exit For
End If
Next
End Sub

Book1.rar

[رجب جاويش]

أخى الحبيب / ابراهيم

بسم الله ما شاء الله

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

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

تفضل أخى

Sub ragab()
x = 1
Cells(Cells(Rows.Count, x).End(xlUp).Row + 1, x).Select
End Sub

غير قيمة x الى رقم العمود الذى تريده

شكرا لك أخي رجب ماذا تقصد برقم العمود أرجو التوضيح لإني وضعت مثلا C    يقوم بتطبيق الكود على العمود A

هل يوجد يوجد خطأ أقوم به ولك جزيل الشكر

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

أخي ابراهيم بارك الله بك على هذه المشاركة القيمة و لك كل الشكر و التقدير

[رجب جاويش]

أخى الفاضل / عبد الرحمن

أقصد رقم العمود وليس رمزه

فمثلا العمود  A   رقمه 1 والعمود   B  رقمه 2 والعمود  C  رقمه 3 وهكذا

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

Sub H()
Range("B" & [B10000].End(xlUp).Row + 1).Select
End Sub

أخي ابراهيم هل تقصد ب B1000 أنه يمكن تطبيق المعادلة على 10000 صف فقط لإن ورقة العمل عندي أكثر من 20000 صف

 

شكرا

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

أخي ابراهيم بارك الله بك على هذه المشاركة القيمة و لك كل الشكر و التقدير

 

أخى الفاضل / عبد الرحمن

أقصد رقم العمود وليس رمزه

فمثلا العمود  A   رقمه 1 والعمود   B  رقمه 2 والعمود  C  رقمه 3 وهكذا

 

أخي الفاضل رجب سأقوم بتجريبها و أعود إليك

شكرا على المساعدة الطيبة

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

أخي رجب شكرا جزيلا أصبح الكود على الشكل التالي :

A = 1
Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Select

حيث 3 هي العود C

 

ماشاء الله عليك جعلها الله في ميزان حسناتك

[رجب جاويش]

أخى / عبد الرحمن

الرقم 3 فى السطر التالى فعلا يحدد العمود C

Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Select

وبالتالى السطر A=1

ليس له فائدة

وبالتالى يمكنك تغيير الرقم 3  فى السطر السابق الى أى رقم تريده مباشرة لتحديد العمود المطلوب

[إبراهيم ابوليله]

Sub H()
Range("B" & [B10000].End(xlUp).Row + 1).Select
End Sub

أخي ابراهيم هل تقصد ب B1000 أنه يمكن تطبيق المعادلة على 10000 صف فقط لإن ورقة العمل عندي أكثر من 20000 صف

 

شكرا

 

اخى عبد الرحمن

بالفعل كما قلت

ويمكنك زياده عدد الاسطر التى تريد

ادخالها ضمن نطاق عمل الكود كما تري

مثلا تستطيع ان تجعلها100000

[إبراهيم ابوليله]

اخى رجب

يسعدنى تشجيعك

وكل هذه الاكواد تعلمناها من امثالكم

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

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

وصلت الفكرة أخي الحبيب رجب 

بارك الله بك و أرضاك

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

بارك الله بك أخي رجب وصلت الفكرة أيضا

لك كل المودة و التقدير

[عادل ابوزيد]

ما شاء الله عليكم اساتذتى الاجلاء

الاستاذ الكبير رجب جاويش

الاستاذ الكبير ابراهيم ابو ليله

جعلها الله فى ميزان حسناتكما

[رجب جاويش]

أخى الفاضل / عبد الرحمن

جزاك الله كل خير على هذه الكلمات الطيبة

[رجب جاويش]

أخى الفاضل / عادل ابو زيد

جزاك الله كل خير على هذه الكلمات الطيبة

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

الشكر لكم جميعا أخوتي ما شاء الله عليكم كلكم حماس و همة عالية وصبر لمساعدة الآخرين بما آتاكم الله من علم ومعرفة

 

شكرا لك أخي ابراهيم ابو ليله على هذا التوضيح

[إبراهيم ابوليله]

اخى عادل

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

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

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

فيرجى اعتبار الموضوع محلولا

فقط قم باختيار افضل اجابه

حتى لايترك الموضوع مفتوحا بدون فائده