الجموعي قام بنشر ديسمبر 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
ياسر خليل أبو البراء قام بنشر ديسمبر 25, 2014 قام بنشر ديسمبر 25, 2014 روعة أخي الحبيب اجموعي هو دا الشغل اللي بجد ..فيد واستفيد بارك الله فيك وجزاك الله خير الجزاء 1
الجموعي قام بنشر ديسمبر 25, 2014 الكاتب قام بنشر ديسمبر 25, 2014 روعة أخي الحبيب اجموعي هو دا الشغل اللي بجد ..فيد واستفيد بارك الله فيك وجزاك الله خير الجزاء أستاذي القدير منكم نستفيد الله لا يحرمنا منكم اذا فيه استاذي أكواد أخرى ياريت تشاركنا بها وبارك الله فيك وفي والديك ربي يحفظك
ابو تراب قام بنشر ديسمبر 25, 2014 قام بنشر ديسمبر 25, 2014 بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت 1
الجموعي قام بنشر ديسمبر 25, 2014 الكاتب قام بنشر ديسمبر 25, 2014 بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت وفيك بارك الله استاذي وجزاك الله خيرا وأثبك الجنة ودي وتقديري
أبو محمد عباس قام بنشر ديسمبر 25, 2014 قام بنشر ديسمبر 25, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الجموعي الله يبارك فيك عمل رائع جعله الله في ميزان حسناتكم زادكم الله علما ومعرفة وفقكم الله ورعاك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.