Textbox ile hücre özelliğini değiştirme nasıl olmalı?

[s.savas]

Arkadaşlar userform ile excele kayıt yaparken, textbox da olan veri excele çerçeve içerisinde ve ortalanmış olarak nasıl alınır.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    With Range("A1")
        .Value = TextBox1
        .Borders.LineStyle = 1
        .HorizontalAlignment = xlCenter
    End With
End Sub

 

[s.savas]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    With Range("A1")
        .Value = TextBox1
        .Borders.LineStyle = 1
        .HorizontalAlignment = xlCenter
    End With
End Sub

Teşekkür ederim Korhan hocam.
Bu kodu şöyle yorumlayabilirmiyim.
TextBox1 A1 hücresine yazarken veri hücreye ortalansın ve çerçeve içerisine alınsın.
Yazdığınız kodu ekteki belgede userforma uyarlayamadım.
İyi akşamlar.

 

[Korhan Ayhan]

Selamlar,

CommandButton1 nesnesindeki "k" döngüsünü aşağıdaki şekilde değiştirip deneyin. Sanıyorum ihtiyacınızı karşılar.

For k = 1 To 7
    sh.Cells(sat, k).Value = Me.Controls("Textbox" & k).Text
    sh.Cells(sat, k).Borders.LineStyle = 1
    sh.Cells(sat, k).HorizontalAlignment = xlCenter
    If IsNumeric(sh.Cells(sat, k).Value) Then sh.Cells(sat, k).Value = sh.Cells(sat, k).Value * 1
Next

 

[s.savas]

Selamlar,

CommandButton1 nesnesindeki "k" döngüsünü aşağıdaki şekilde değiştirip deneyin. Sanıyorum ihtiyacınızı karşılar.

For k = 1 To 7
    sh.Cells(sat, k).Value = Me.Controls("Textbox" & k).Text
    sh.Cells(sat, k).Borders.LineStyle = 1
    sh.Cells(sat, k).HorizontalAlignment = xlCenter
    If IsNumeric(sh.Cells(sat, k).Value) Then sh.Cells(sat, k).Value = sh.Cells(sat, k).Value * 1
Next

Teşekkür ederim üstat.