اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله وبركاتة

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

وانى محتاجة بسرعة جدا

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

اخوكم ايمن

ِAyman.rar

قام بنشر

السلام عليكم

اخي ضع هذا الكود في زر امر


Sub Trhl_Abu_Ahmed()

Dim i As Integer, LR As Integer

t = 1

LR = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To 5

Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value

t = t + 1

Next i

End Sub

قام بنشر

واذا اردت مسح البيانات بعد الترحيل من الخانات التي في العمود G

فالكود سيكون كذا


Sub Trhl_Abu_Ahmed()

Dim i As Integer, LR As Integer

t = 1

LR = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To 5

Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value

Cells(i + 15 + t, "G").Value = ""

t = t + 1

Next i

End Sub

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

Sub Trhl_Abu_Ahmed()

Dim i As Integer, LR As Integer

If Application.WorksheetFunction.Count(Range("G17:I26")) < 5 Then

MsgBox "لم يتم الترحيل لعدم اكمال الحقول المرحلة ", vbOKOnly + vbCritical, "تنبيه": Exit Sub

End If

t = 1

LR = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To 5

Cells(LR + 1, i).Value = Cells(i + 15 + t, "G").Value

Cells(i + 15 + t, "G").Value = ""

t = t + 1

Next i

End Sub

قام بنشر

اخى الكريم

اشكرك على الرد ولكنى لا اعرف اين زر امر معزرة اخى الكريم لو ممكن توضحة لى او تشرح لى كيف افعلها

شكرا جداااااااا

قام بنشر

السلام عليكم

اخي الحبيب ابو احمد

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

لكن لي ملاحظة صغيرة جدا عليه ولا تؤثر على الكود

لماذا استخدمت ال"Counter-t" طالما لديك عداد يلبي الحاجة التي استخدمته لاجلها "i" ويمكنك استخدام العداد على هذا النحو


Dim i As Integer, LR As Integer

LR = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To 5

Cells(LR + 1, i).Value = Cells(i * 2 + 15, "G").Value

Next i

قام بنشر

الاستاذ الفاضل عماد الحسامي

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

شكراً على التشجيع والكلام الحلو

ابواحمد

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information