التركيز على الخلية بعد الادخال

[حمدى]

كل عام وانتم بخير

هل من الممكن ان يتم الادخال في الخلية a1 ادخال اي ارقام 123456

وبعد الضغط على مفتاح الادخال تنتقل تلك الارقام الى b1

بحيث يتم افراغ a1 من البيانات والتركيز ايضا يكون على a1

اقصد بعد الضغط على مفتاح الادخال

a1=setfocus

a1=" " فارغ

ويتم انتقال الرقم الجديد في a1 الى اول سطر فارغ في b1

وشكرا

تم تعديل أكتوبر 6, 2006 بواسطه حمدى

[علي السحيب]

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

http://www.officena.net/ib/index.php?showtopic=12657&hl=

على كل حال .. قمت بإجراء بعض التعديلات على الكود الموجود في الرابط السابق لكي يتناسب مع طلبك .. شاهد المرفق،

________________________________________.rar

تم تعديل أكتوبر 7, 2006 بواسطه علي السحيب

[gamalin]

الله عليك اخ علي زادك الله من علمة ونفع بك

[حمدى]

الاخ العزيز علي السحيب

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

هو المطلوب بالضبط

[skyblue]

هل يمكن يااستاذ علي ان تترحل الارقام الى B1 ثم الى C1 ثم الى D1 ثم الى E1

ثم بعد ذلك تبدا من B2 ثم الى الى C2 ثم الى D2 ثم الى E2 وهكذا .

واخيرا فعلا نشكرك ونقول ماشاء الله على هذا الابداع ربي يحفظك من كل سوء

تحياتي لك

تم تعديل أكتوبر 11, 2006 بواسطه علي السحيب

[علي السحيب]

الكود التالي ينفذ جميع ما طلبت:

Private Sub Worksheet_Change(ByVal Target As Range)

MF = Application.WorksheetFunction.CountA([B1:E65535]) Mod 4

If [A1] = "" Then Exit Sub
If Target.Address = "$A$1" Then

With Columns(1).Rows(65536).End(xlUp)
     .Offset(Application.WorksheetFunction.CountA([E1:E65536]), MF + 1) = [A1]
End With

With [A1]
.Select
.ClearContents
End With

End If

End Sub

شاهد المرفق،

__________________________________________.rar

[حمدى]

الاخ العزيز علي السحيب

اكثر من رائع

[علي السحيب]

أشكرك ..