Scroll Area - Parçalı Alan Seçimi

[baydeniro]

Merhaba arkadaşlar. Scroll Area kodunun yekpare (bütünsel) alan için kullanabiliyorum. Ancak parçalı alan için nasıl kullanılacağını bilmiyorum.

BÜTÜNSEL ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1:A10"
End Sub

PARÇALI ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1, A3, A8"
End Sub

olmasını nasıl sağlayabilirim ?

 

[uzmanamele]

Merhaba arkadaşlar. Scroll Area kodunun yekpare (bütünsel) alan için kullanabiliyorum. Ancak parçalı alan için nasıl kullanılacağını bilmiyorum.

BÜTÜNSEL ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1:A10"
End Sub

PARÇALI ALAN
Sub Scrol()
Sheets("DATA").ScrollArea = "A1, A3, A8"
End Sub

olmasını nasıl sağlayabilirim ?

Merhaba
Bunu yapamazsınız.

 

[Zeki Gürsoy]

Sayfa koruması ile dağınık kullanabilirsiniz.

 

[uzmanamele]

Merhaba

Sanırım asıl aradığınız; belli hücreler seçilemesin.
Eğer buysa aşağıdaki gibi bir yöntem uygulayabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1,b2,c3]) Is Nothing Then Exit Sub
Range("d1").Select
End Sub

 

[baydeniro]

Sayın uzmanamele çok teşekkür ederim. Dosyaya bu kodu uygulamanın yararlı olacağı yerler var, o noktada yararlanabilirim, sağlıcakla kalın.