Toggle Button ile Hücreyi Hizalama

[ormann]

Günaydın;ekteki Örnek dosyada sayfa 1 de bulunan Toggle Button ile sayfa 2 deki D3 hücresindeki veriyi sağa,sola ve ortaya nasıl hizalayabiliriz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub ToggleButton1_Click()
    With Sheets("Sayfa2").Range("D3:G3")
        .HorizontalAlignment = xlRight 'Sağa hizalar
        .HorizontalAlignment = xlLeft 'Sola hizalar
        .HorizontalAlignment = xlCenter 'Yatayda ortalar
        .VerticalAlignment = xlCenter 'Dikeyde ortalar
    End With
End Sub

 

[asi_kral]

Günaydın;ekteki Örnek dosyada sayfa 1 de bulunan Toggle Button ile sayfa 2 deki D3 hücresindeki veriyi sağa,sola ve ortaya nasıl hizalayabiliriz?

Merhaba
Alternatif olsun

Option Explicit
Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Sağ" Then
Sayfa2.Range("D3").HorizontalAlignment = xlRight
ToggleButton1.Caption = "Sol"
ElseIf ToggleButton1.Caption = "Sol" Then
Sayfa2.Range("D3").HorizontalAlignment = xlLeft
ToggleButton1.Caption = "Orta"
ElseIf ToggleButton1.Caption = "Orta" Then
Sayfa2.Range("D3").HorizontalAlignment = xlCenter
ToggleButton1.Caption = "Sağ"
End If
End Sub

 

[ormann]

Sayın Korhan bey ve Asi Kral kodu çalıştıramadım.Sayfa2 'de menüden sola,sağa yapıp Sayfa1 deki butondan yaptığım zaman sadece ortalama yapıyor.

 

[Korhan Ayhan]

Merhaba,

Siz sorunuzun içinde (sağa,sola,ortala) şeklinde sorduğunuz için verdiğim kod içinde tüm örnekleri verdim. Siz işinize yarayan satırı bırakıp diğerlerini pasif yapın yada silin.

 

[ormann]

Korhan bey aynı butonla hem sağa,hem sola ,hemde ortalama olmaz mı?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub ToggleButton1_Click()
    With Sheets("Sayfa2").Range("D3:G3")
        Select Case ToggleButton1.Caption
            Case "SAĞA HİZALA"
                .HorizontalAlignment = xlRight
                 ToggleButton1.Caption = "SOLA HİZALA"
            Case "SOLA HİZALA"
                .HorizontalAlignment = xlLeft
                 ToggleButton1.Caption = "ORTALA"
            Case "ORTALA"
                .HorizontalAlignment = xlCenter
                 ToggleButton1.Caption = "SAĞA HİZALA"
            Case Else
                .HorizontalAlignment = xlCenter
                 ToggleButton1.Caption = "SAĞA HİZALA"
        End Select
    End With
End Sub

 

[ormann]

Korhan bey çok teşekkür ederim.Son olarak aynı şekilde hem sayfa2 de hemde sayfa 3 te de d3:g3 hücrelerinde olabilir mi?

 

[Korhan Ayhan]

Merhaba,

Tabiki olabilir. Fakat bu kodlardan sonra işin o kısmını sizin halledebileceğinizi düşünüyorum.

 

[ormann]

Korhan bey çok uraşmama rağmen bir türlü yapamadım.Yardımcı olabilirmisiniz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = False
    Sheets(Array("Sayfa2", "Sayfa3")).Select
    ActiveSheet.Range("D3:G3").Select
    With Selection
        Select Case ToggleButton1.Caption
            Case "SAĞA HİZALA"
                .HorizontalAlignment = xlRight
                 ToggleButton1.Caption = "SOLA HİZALA"
            Case "SOLA HİZALA"
                .HorizontalAlignment = xlLeft
                 ToggleButton1.Caption = "ORTALA"
            Case "ORTALA"
                .HorizontalAlignment = xlCenter
                 ToggleButton1.Caption = "SAĞA HİZALA"
            Case Else
                .HorizontalAlignment = xlCenter
                 ToggleButton1.Caption = "SAĞA HİZALA"
        End Select
    End With
    Sheets("Sayfa1").Select
    Application.ScreenUpdating = True
End Sub

 

[ormann]

Çok teşekkür ederim.Korhan bey