كود الوصول الى اول خليه مستعمله فى العمود الاول

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

الاخوه الافاضل

اريد كود الوصول الى اول خليه مستعمله فى العمود الاول

[الـعيدروس]

السلام عليكم

تفضل

Sub S_A()

[A1].End(xlDown).Select

End Sub

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

الاخ عباد

ارجو النظر الى المرفق

اول خليه.rar

[الـعيدروس]

السلام عليكم

جرب هكذا

Sub Ali_S()

With [A13:A24]

For R = 1 To .Rows.Count

   If Not IsEmpty(.Cells(R, 1)) Then

	  .Cells(R, 1).Select: Exit For

   End If

Next

End With

End Sub

تم تعديل نوفمبر 27, 2012 بواسطه عباد

[جمال عبد السميع]

أعلم أخي( إبراهيم )إنك تريد كود ولكن هذه المعادلة قد تفي بالغرض

أول خلية.rar

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

الاخ عباد بارك الله فيك

الاخ محمود استخدام امثل للمعادلات

ولكن بالنسبه لكود اخى الكريم عباد

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

للوصول الى اخر خليه مملؤه فى نفس النطاق

[أبو حنــــين]

نفس الكود الذي وضعه أخي عباد مع تعديل بسيط و هو حذف : Exit For

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

الاخ ابو حنين

مشكورا على الرد

وفعلا ايجابه فى محلها

ولكن هل يمكن تنفيذ الكودين بزر واحد

بمعنى

ان يكون هناك زر واحد فقط

عند الضغط عليه للمره الاولى يتم الانتقال الى اول خليه بها بيانات

ثم عن الضغط عليه مره اخر ينتقل الى اخر خليه بها بيانات

تم تعديل نوفمبر 28, 2012 بواسطه دغيدى

[أبو حنــــين]

يمكن استعمال الكود السابق بتعديل آخر

Dim a As Integer

Private Sub CommandButton2_Click()

a = a + 1

With [A13:A24]

If a = 1 Then

For R = 1 To .Rows.Count

   If Not IsEmpty(.Cells(R, 1)) Then

		  .Cells(R, 1).Select: Exit For

   End If: Next: a = 2

Else

If a = 3 Then

For R = 1 To .Rows.Count

   If Not IsEmpty(.Cells(R, 1)) Then

		  .Cells(R, 1).Select

   End If

Next: a = 0: End If: End If: End With

End Sub

مع الملاحظة أن المتغير a يوضع في قسم General

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

الاخ ابوحنين

عمل رائع اخى الفاضل

بارك الله فيك