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

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

  • أفضل إجابة

جرب هذا الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Target.Address = "$K$4" And Target.Count = 1 Then
     get_data
  End If
Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++++++++
Sub get_data()
Dim T As Worksheet, Mb As Worksheet, Msh As Worksheet
Dim Opt_sh As Worksheet
Dim Str$, Ro_T%, Opt_ro%
Set T = Sheets("Tarhil")
Set Mb = Sheets("Mab")
Set Msh = Sheets("Moush")
Str = T.Cells(4, "K")
  Select Case Str
    Case "المبيعات": Set Opt_sh = Mb
    Case "المشتريات": Set Opt_sh = Msh
    Case Else: Exit Sub
  End Select
 Opt_ro = Opt_sh.Cells(Rows.Count, 1).End(3).Row
 Opt_ro = IIf(Opt_ro = 3, 4, Opt_ro + 2)
 Ro_T = T.Range("b9").CurrentRegion.Rows.Count
 If Ro_T > 1 Then
    Opt_sh.Range("A" & Opt_ro).Resize(Ro_T - 1, 12).Value = _
    T.Range("b10").Resize(Ro_T - 1, 12).Value
  Else
  MsgBox "No data to transfer"
    Exit Sub
 End If

End Sub
'=================================
Sub clear_all_Mab()
 Sheets("Mab").Range("A3").CurrentRegion.Offset(1).Clear
End Sub
'=================================
Sub clear_all_Moush()
 Sheets("Moush").Range("A3").CurrentRegion.Offset(1).Clear
End Sub

الملف مرفق

Book_sal.xlsm

  • Like 1
رابط هذا التعليق
شارك

تسلم رائع جدا وجزاكم الله خير الجزاء اريد اضافة هل ممكن عمل رسالة تفيد بالترحيل حتى لا يتم التكرار ولاتلافي عملية التكرار لانه يقوم بالتكرار وهذا قد يسبب اخطاء كذلك اريد اضافة مردودات المشتريات ومردودات المبيعات ومتحصلات النقدية ومدفوعات حسب المرفق ولكم جزيل الشكر والتقدير لشخصكم الكريم حيث أنني حينما قمت بتجربة النموذج السابق اعجبني جدا فكرته فاطمع في التعديل على الباقي

Book1.xlsx

تم تعديل بواسطه هشام كمال
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information