ScrollBar İle Hücre İçeriğini Değiştirme

[ormann]

Günaydın ,ekteki örnek dosya içerisinde veri sayfasındaki Userform1'deki ScrollBar ile a ve b sayfalarındaki D8:j8 birleştirilmiş hücre içerisindeki metin ileri-geri kaydırma yapılabilir mi?.Yardımcı olurmusunuz.?Saygılar.

 

[prmts]

Selam, alttaki kodları dener misiniz.

Private Sub ScrollBar1_Change()
Sheets("A").Range("D8").Value = ""
For L = 1 To ScrollBar1.Value
SD = SD & " "
Next L
Sheets("A").Range("D8").Value = SD & "A"
End Sub


Private Sub UserForm_Initialize()
ScrollBar1.Max = 108
End Sub

 

[ormann]

Sayın prmts teşekkür ederim ama ben böyle istememiştim.Benim İstediğim A ve B sayfalarındaki D8 hücrelerine herhangi bir veriyi girdiğim zaman Userform1'deki ScrollBar ile metni sağa ve sola kaydırmaktı.

 

[ExcelF1]

Ek'li örneği inceleyiniz.

ScrollBar nesnesinin özelliklerindeki Max. değerini değiştirerek hücre genişliğine göre haraketi kendiniz ayarlayabilirsiniz. (b sayfasını kendiniz yaparsınız diye dokunmadım)

 

[ormann]

Sayın Exce F1 ScrollBar yarıyı geçtikten sonra hata veriyor .Ayrıca A ve B sayfaları parelel olarak ScrollBar ile aynı anda sağa-sola gitmesi gerekiyor.

 

[Korhan Ayhan]

Merhaba,

Formunuza aşağıdaki kodları uygulayıp deneyiniz.

Private Sub ScrollBar1_Change()
    Application.ScreenUpdating = False
    Sheets(Array("a", "b")).Select
    ActiveSheet.Range("D8:J8").Select
    
    With Selection
        Select Case Me.ScrollBar1.Value
            Case 1
                .HorizontalAlignment = xlLeft
            Case 2
                .HorizontalAlignment = xlCenter
            Case 3
                .HorizontalAlignment = xlRight
            Case Else
                .HorizontalAlignment = xlCenter
        End Select
    End With
    
    Sheets("veri").Select
    Application.ScreenUpdating = True
End Sub
 
Private Sub UserForm_Initialize()
    With Me.ScrollBar1
        .Min = 0
        .Max = 3
        .Delay = 50
    End With
End Sub

 

[ExcelF1]

Sanırım tam ifade edememişiz.

Korhan Hocam sorunuzu cevaplamışlar, kolay gelsin.