Makro içerisinde Range özelliği

[airborne]

s.a. üstadlar,

aşağıdaki makroda range özelliğinde hata veriyor. nasıl düzelememiz gerekir.


Private Sub CommandButton5_Click()
Range("I7:O46" & "Q7:W46" & "Y7:AE46" & "AG7:AM46" & "AO7:AU46" & "I59:O98" & "Q59:W98" & "Y59:AE98" & "AG59:AM98" & "AO59:AU98" & "I111:O150" & "Q111:W150" & "Y111:AE150" & "AG111:AM150" & "AO111:AU150" & "I163:O202" & "Q163:W202" & "Y163:AE202" & "AG163:AM202" & "AO163:AU202" & "I215:O254" & "Q215:W254" & "Y215:AE254" & "AG215:AM254" & "AO215:AU254" & "I267:O306" & "Q267:W306" & "Y264:AE306" & "AG267:AM306" & "AO267:AU306").Select
Selection.ClearContents
Range("F7").Select
Else
End If
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki gibi yazmayı dener misiniz?

Range("I7:O46,Q7:W46,Y7:AE46,AG7:AM46,AO7:AU46").Select

 

[Zeki Gürsoy]

Merhaba,

Seçim çoklu seçim aralığı çok fazla ve yazım hatanız var. Seçim aralığı fazla olduğu için iki aşamada içerik temizleyin.

r = Array( _
    "I7:O46", "Q7:W46", "Y7:AE46", "AG7:AM46", "AO7:AU46", "I59:O98", _
    "Q59:W98", "Y59:AE98", "AG59:AM98", "AO59:AU98", "I111:O150", _
    "Q111:W150", "Y111:AE150", "AG111:AM150", "AO111:AU150")

Range(Join(r, ",")).ClearContents

r = Array("I163:O202", _
    "Q163:W202", "Y163:AE202", "AG163:AM202", "AO163:AU202", "I215:O254", _
    "Q215:W254", "Y215:AE254", "AG215:AM254", "AO215:AU254", "I267:O306", _
    "Q267:W306", "Y264:AE306", "AG267:AM306", "AO267:AU306")
    
Range(Join(r, ",")).ClearContents

Range("F7").Select

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak UNION komutuda kullanılabilir.

Sub TEMİZLE()
    Dim A As Range, B As Range, C As Range, D As Range
    Dim E As Range, F As Range, G As Range, H As Range
    Dim Alan As Range
    
    Set A = Range("A1:A1100")
    Set B = Range("B2:B10")
    Set C = Range("C10:C25")
    Set D = Range("D1:D20")
    Set E = Range("E15:E22")
    Set F = Range("F6:F12")
    Set G = Range("G20:G25")
    Set H = Range("H3:H5")
    Set Alan = Union(A, B, C, D, E, F, G, H)
    
    Alan.ClearContents
End Sub