الجموعي قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 السلام عليكم ورحمة الله تعالى وبركاته اقدم لكم هذا الفورم البسيط للترحيل في العمود A مثلا وهذا بفضل أساتذتي الكرام في هذا الصرح العظيم أكواد الترحيل 1 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = ws.Cells(Rows.Count, "A").End(xlUp).Row ws.Cells(lr + 1, 1) = Me.TextBox1.Text '--------------------------------------------- 2 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Cells(lr, 1) = Me.TextBox1.Text '--------------------------------------------- 3 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = Range("A65536").End(xlUp).Row ws.Cells(lr + 1, 1) = Me.TextBox1.Text '--------------------------------------------- 4 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = Range("A65536").End(xlUp).Row + 1 ws.Cells(lr, 1) = Me.TextBox1.Text '--------------------------------------------- 5 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1 ws.Cells(lr + 2, 1) = Me.TextBox1.Text 6 Dim ws As Worksheet Dim lr As Long '--------------------------------------------- Set ws = ThisWorkbook.Sheets(1) '--------------------------------------------- lr = Cells(Rows.Count, "A").End(xlUp).Row - 1 ws.Cells(lr + 2, 1) = Me.TextBox1.Text '--------------------------------------------- وفي الأخير ملف مع التجميعية اتمنى ان تفيدكم خاصة للمبتدئين الترحيل من الفورم للشيت بعدة طرق.rar 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 روعة أخي الحبيب اجموعي هو دا الشغل اللي بجد ..فيد واستفيد بارك الله فيك وجزاك الله خير الجزاء 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 روعة أخي الحبيب اجموعي هو دا الشغل اللي بجد ..فيد واستفيد بارك الله فيك وجزاك الله خير الجزاء أستاذي القدير منكم نستفيد الله لا يحرمنا منكم اذا فيه استاذي أكواد أخرى ياريت تشاركنا بها وبارك الله فيك وفي والديك ربي يحفظك رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت وفيك بارك الله استاذي وجزاك الله خيرا وأثبك الجنة ودي وتقديري رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 اخى / الجموعى بارك الله فيك رابط هذا التعليق شارك More sharing options...
خزاني قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 بارك الله فيك اخي الجموعي رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الجموعي الله يبارك فيك عمل رائع جعله الله في ميزان حسناتكم زادكم الله علما ومعرفة وفقكم الله ورعاك رابط هذا التعليق شارك 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.