أبو قاسم قام بنشر أبريل 25, 2018 مشاركة قام بنشر أبريل 25, 2018 حفظ بينات الست بوكس الى pdf مثلا ان ان ابحث في الفورم عن بيانات شخص بين تايخين وبعد البحث ارسال النتيجة حفظ pdf Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Workbooks.Add(xlWBATWorksheet) With .Sheets(1) .Range("A1").Resize(1, ContColmn).Value = sRng.Value .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List .UsedRange.Columns.AutoFit End With End With Application.ScreenUpdating = True Unload Me 1 End Sub التعديل على الكود لجعلة يحفظ البيانات pdf رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 26, 2018 الكاتب مشاركة قام بنشر أبريل 26, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 26, 2018 الكاتب مشاركة قام بنشر أبريل 26, 2018 up رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 27, 2018 مشاركة قام بنشر أبريل 27, 2018 للرفع .. جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 28, 2018 الكاتب مشاركة قام بنشر أبريل 28, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 28, 2018 الكاتب مشاركة قام بنشر أبريل 28, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 29, 2018 الكاتب مشاركة قام بنشر أبريل 29, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 29, 2018 الكاتب مشاركة قام بنشر أبريل 29, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 30, 2018 الكاتب مشاركة قام بنشر أبريل 30, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر أبريل 30, 2018 الكاتب مشاركة قام بنشر أبريل 30, 2018 up رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر مايو 4, 2018 الكاتب مشاركة قام بنشر مايو 4, 2018 up رابط هذا التعليق شارك 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.