تحديد النطاق الذي بياناته اكبر من صفر

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة ,,,

الكود التالي :

Sub Select_Range()
[A7:J7].Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

يقوم بتحديد النطاق الذي يوجد بة بيانات , واريد علية تعديل بسيط جدا , وهو حصرة في تحديد النطاق الذي يوجد بة بيانات اكبر من صفر ,,,

لان النطاق يحتوي علي معادلات فقد يكون ناتج هذة المعادلات وخصوصا السفلية من الصفحة يساوي صفر وارغب في جعل النطاق المحدد تكون بياناتة اكبر من صفر , والخلايا التي تحتوي علي معادلات يكون ناتجها يساوي صفر لا يشملها هذا التحديد ,,,

مع تقديم كل الشكر والامتنان للاستاذ علي الذي قدم لنا الكود السابق ,,,

[ماجدجلال]

للرفع

[علي السحيب]

جرب الكود التالي أخي ماجد .. والرجاء عدم الإستعجال في إنتظار الإجابة في المرات القادمة .. لأن إعداد الكود ليس كإعداد الصيغ.

Option Explicit
Sub testme()

Dim myRng As Range
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long

With ActiveSheet
FirstRow = 7
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For iRow = FirstRow To LastRow
If .Cells(iRow, "A").Value > 0 Then
If myRng Is Nothing Then
Set myRng = .Cells(iRow, "A")
Else
Set myRng = Union(.Cells(iRow, "A"), myRng)
End If
End If
Next iRow

If myRng Is Nothing Then
MsgBox "لا يوجد سجلات للإختيار"
Else
'.select
Intersect(myRng.EntireRow, .Range("a:j")).Select
End If
End With

End Sub

[ماجدجلال]

انا اسف استاذ علي ,,,

واشكرك علي حسن تعاونك ,,,

وتقبل اعتذاري مرة اخري ,,

[ماجدجلال]

السلام عليكم ورحمة الله ,,

استاذي العزيز علي حسين , لم استطع التعديل علي الملف الموجود لدي سابقا . لجعلة يقوم فقط بترحيل البيانات التي تكون قيمتها اكبر من صفر الي صفحة اخري ,,

حيث اريد الدمج بين كودين ,

الاولي لتحديد النطاق الذي يوجد فية بيانات اكبر من صفر ,

والثاني لنسخ هذا النطاق ولصق في صفحة اخري ,,

ارجو منك المساعدة حيث ان الكودين من تصميمك ,,

الملف المرفق ,

http://www.officena.net/ib/index.php?showtopic=10244

[علي السحيب]

شاهد المرفق،

____________________________.rar

[ماجدجلال]

السلام عليكم ,,

الف شكر استاذ علي

الف شكر لك