مسح بيانات

[أ/حكيم]

المطلوب كود مسح محنوبات نطاق محدد من الخلايا متغير النطاق

مسح.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub del_data()
Dim Cel_1$, Cel_2$, x%, y%
Cel_1 = Range("B4"): Cel_2 = Range("C4")
x = Cel_1 Like "[A-Za-z]*#*"
y = Cel_2 Like "[A-Za-z]*#*"
If x * y <> 0 Then _
Range(Cel_1 & ":" & Cel_2).Delete Shift:=xlUp

End Sub

 

[أ/حكيم]

أريد الكود بهذا الشكل ولكن يعمل بشكل صحيح

أرجو أن أكون وضحت المطلوب

Sub del_data()
Range(Range("G" & [B4]) & ":" & Range("G" & [C4])).ClearContents
End Sub

 

[سليم حاصبيا]

في نفس الكود

ضع مكان .Delete Shift:=xlUp العبارة التالية  ClearContents

[أ/حكيم]

أقصد أن لا أكتب في الخلية النطاق يعني يكون في الكود العمود G  ويكتب في الخلية نطاق الصفوف

مثالا أكتب في الخلية B4 رقم 1 و الخلية C4 رقم 30

فيتم مسح النطاق G1:G30

[سليم حاصبيا]

تم التعديل

Option Explicit

Sub del_data()
Dim Cel_1, Cel_2, x%, y%
Cel_1 = Range("B4"): Cel_2 = Range("C4")
x = Cel_1 Like "#*"
y = Cel_2 Like "#*"
If x * y <> 0 Then
  Cel_1 = "G" & Cel_1
  Cel_2 = "G" & Cel_2
  Range(Cel_1 & ":" & Cel_2).ClearContents
End If
End Sub

 

[أ/حكيم]

هذا هو المطلوب شكرا جزيلا