الترحيل الى مرتبات البنك

[elsedik]

السلام عليكم

برجاء المساعدة

عاوز كود ترحيل يقوم بترحيل صافى مرتب كل عامل الى ورقة مرتبات البنك

مرفق ملف للتوضيح طلبى

مرتبات البنك.rar

[الـعيدروس]

السلام عليكم

هذا الكود

Sub ali_T()

Dim i As Integer

Dim T As Integer

For i = 3 To ورقة4.Range("b1000").End(xlUp).Row

For T = 4 To Range("b1000").End(xlUp).Row

  If ورقة4.Cells(i, "B").Value = Cells(T, "b").Value Then

	  With ورقة4

		  .Cells(i, "B").Offset(0, 1) = ورقة1.Cells(T, "b").Offset(0, 3)

	  End With

   End If

  Next

Next

End Sub

تفضل المرفق

مرتبات البنك.ali.rar

[عبدالله المجرب]

بعد إذن اخي ابو نصار

تفضل المرفق (سيتم جلب البيانات من عدة شيتات الى شيت مرتبات البنك )

جرب ان شاء الله يكون هذا طلبك

Sub Abu_Ahmed()

Dim sh As Worksheet, cl As Range, c As Range

For i = 1 To 3

For Each c In Sheets(i).Range("B3:B6")

For Each cl In Range("B3:B11")

If cl.Value = c.Value Then

cl.Offset(0, 1).Value = c.Offset(0, 3).Value

End If

Next

Next

Next

End Sub

مرتبات البنك.rar

[abouelhassan]

والله مبدع استاذ عبد الله احترام وتقدير وفائق الاحترام من القلب

اخيك

[elsedik]

شكرا على الرد اخى عبدالله ولكن اريد ان يكون الترحيل على اساس رقم الحساب

وفى حالة عدم تشابة رقم الحساب يعطى الناتج صفر

مرفق ملف للتوضيج

مرتبات البنك 2.rar

تم تعديل نوفمبر 26, 2011 بواسطه elsedik

[عبدالله المجرب]

السلام عليكم

عاوز كود ترحيل يقوم بترحيل صافى مرتب كل عامل الى ورقة مرتبات البنك

هكذا كان طلبك

ثم اصبح

ولكن اريد ان يكون الترحيل على اساس رقم الحساب

وفى حالة عدم تشابة رقم الحساب يعطى الناتج صفر

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

سأحاول والله الموفق

[عبدالله المجرب]

السلام عليكم

هل تقصد هكذا

مرتبات البنك 2.rar