range sınıfının select yönetimi başarısız

[Schuba]

arkadaşlar mevcut kodun işaretli kısmında hata alıyorum
range sınıfının select yönetimi başarısız diye uyarı mesajı çıkıyor
düzeltecek bir arkadaş varsa çok sevinirim..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("c25:c50000")) Is Nothing Then Exit Sub
    Set S1 = Sheets("bakım takip")
    Set S2 = Sheets("müşteri carisi")
    a = Target.Row
    With S2
        .[C3] = S1.Cells(a, "B")
        .[C9] = S1.Cells(a, "C")
        .[I9] = S1.Cells(a, "D")
        .[C11] = S1.Cells(a, "F")
        .[C12] = S1.Cells(a, "G")
        .[C13] = S1.Cells(a, "H")
        .[C14] = S1.Cells(a, "I")
        .[C17] = S1.Cells(a, "J")
        .[F17] = S1.Cells(a, "K")
        .[C18] = S1.Cells(a, "L")
        .[F18] = S1.Cells(a, "M")
        .[C19] = S1.Cells(a, "N")
        .[F19] = S1.Cells(a, "O")
        .[C20] = S1.Cells(a, "P")
        .[F20] = S1.Cells(a, "Q")
        .[I11] = S1.Cells(a, "R")
        .[I12] = S1.Cells(a, "S")
        .[I13] = S1.Cells(a, "T")
        .[I14] = S1.Cells(a, "U")
        .[I15] = S1.Cells(a, "V")
        .[I16] = S1.Cells(a, "W")
        .[C22] = S1.Cells(a, "X")
        .[L21] = S1.Cells(a, "AA")
        .[K10] = S1.Cells(a, "AC")
        .[P10] = S1.Cells(a, "AD")
        End With
        Sheets("müşteri carisi").Select
        [COLOR="Red"]Range("P21:R21,V9:W9,V11:W13,V17:W22,V24:W26,U29:W35,V37:W37").Select[/COLOR]
    Range("V37").Activate
    Selection.ClearContents
    Range("V37:W37").Select
    End Sub

 

[Orion1]

O aralıkların içinde kilitli hücreler var ve sayfa koruması varsa hata verir.

 

[Schuba]

anladım hocam ama herhangi bir sayfa koruması veya kilitli bir hücre yok bakmıştım zaten
ama gene kontrol ettim yok bi detaylı incelerseniz hehalde kodda fark edemediğimiz bir hata var ben çözemedim.....

 

[Orion1]

anladım hocam ama herhangi bir sayfa koruması veya kilitli bir hücre yok bakmıştım zaten
ama gene kontrol ettim yok bi detaylı incelerseniz hehalde kodda fark edemediğimiz bir hata var ben çözemedim.....

Başka bir şey göremedim.

 

[Ömer BARAN]

Merhaba.

Bir de, S2.Range("P21:R......... şeklinde alanın başına sayfa adını ekleyerek deneyin.
.

 

[Schuba]

Ömer hocam teşekkür ederim koddaki gibi denedim oldu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("c25:c50000")) Is Nothing Then Exit Sub
    Set S1 = Sheets("bakım takip")
    Set S2 = Sheets("müşteri carisi")
    a = Target.Row
    With S2
        .[C3] = S1.Cells(a, "B")
        .[C9] = S1.Cells(a, "C")
        .[I9] = S1.Cells(a, "D")
        .[C11] = S1.Cells(a, "F")
        .[C12] = S1.Cells(a, "G")
        .[C13] = S1.Cells(a, "H")
        .[C14] = S1.Cells(a, "I")
        .[C17] = S1.Cells(a, "J")
        .[F17] = S1.Cells(a, "K")
        .[C18] = S1.Cells(a, "L")
        .[F18] = S1.Cells(a, "M")
        .[C19] = S1.Cells(a, "N")
        .[F19] = S1.Cells(a, "O")
        .[C20] = S1.Cells(a, "P")
        .[F20] = S1.Cells(a, "Q")
        .[I11] = S1.Cells(a, "R")
        .[I12] = S1.Cells(a, "S")
        .[I13] = S1.Cells(a, "T")
        .[I14] = S1.Cells(a, "U")
        .[I15] = S1.Cells(a, "V")
        .[I16] = S1.Cells(a, "W")
        .[C22] = S1.Cells(a, "X")
        .[L21] = S1.Cells(a, "AA")
        .[K10] = S1.Cells(a, "AC")
        .[P10] = S1.Cells(a, "AD")
        End With
        Sheets("müşteri carisi").Select
        S2.Range("P21:R21,V9:W9,V11:W13,V17:W22,V24:W26,U29:W35,V37:W37").Select
   S2.Range("V37").Activate
    Selection.ClearContents
    S2.Range("V37:W37").Select
    End Sub

 

[Ömer BARAN]

Aslında bir sayfadaki belli alandaki verileri silmek için ne o sayfanın seçilmesi ve ne de silinecek alanın seçilmesine gerek yok.

Eğer bu kod'un çalışmasından sonra (kodun sonunda V37:W37 alanını seçtiriyorsunuz, bundaki amacınızı da bilemiyorum)
bu sayfada başka işiniz yoksa End With satırından sonra sadece aşağıdaki satırın varlığı yeterlidir.

V37:W37 hücrelerinin seçilmesi gerekmiyorsa;
S2.Range("V37:W37").Select
şeklindeki satırı da silin.
.

S2.Range("P21:R21,V9:W9,V11:W13,V17:W22,V24:W26,U29:W35,V37:W37").ClearContents

 

[YUSUF44]

Alternatif olarak o satırın başına

Activesheet.

Eklerseniz de düzelir.

Hatanın sebebi kodda hangi sayfadaki hücrenin silineceğinin belirtilmemesi.