نسورالجو قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 ورقة عمل Microsoft Excel جديد.xlsm الشرط اﻻول في العمود T محتاج الشرط التاني U رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر سبتمبر 19, 2021 الكاتب مشاركة قام بنشر سبتمبر 19, 2021 Private Sub CommandButton1_Click() Range("a3:d200") = "" Sheets("الصفحة الرئيسية").Select For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "مراكز الإنتاج " Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "مراكز الإنتاج" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التجميع" Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي المراكز" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي المراكز" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات الانتاج" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الانتاج" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الانتاج" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات التسويقية" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات التسويقية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات التسويقية" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات الادارية" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الادارية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الادارية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "الاجمالي العــام" End Sub المطلوب التعديل في كود ترحيل بشرطين الشرط اﻻول في العمود T محتاج الشرط التاني U Microsoft Excel جديد.xlsm رابط هذا التعليق شارك More sharing options...
0d59eacf59 قام بنشر أكتوبر 1, 2021 مشاركة قام بنشر أكتوبر 1, 2021 جربت الكود في الاعلى ؟ Speed Test رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.