Excel Sayfasındaki Metin kutularına Textboxtaki Değerleri Yazdırma

[ahmedummu]

Merhaba arkadaşlar,

Excel sayfasındaki metin kutularına textlerdeki değerleri yazdırmak istiyorum. Mümkünse döngü ile yazdırmak istiyorum. Örnek dosyayı ekliyorum. Yardımcı olursanız sevinirim.

 

[Ziynettin]

Merhaba,

Metin kutusu 9'u Metin kutusu 8 olarak düzeltiniz.

Private Sub CommandButton1_Click()
With Sheets("Sayfa1")
    For i = 1 To 8
        .Shapes("metin kutusu " & i & "").TextFrame.Characters.Text = Me("TextBox" & i)
    Next i
End With
End Sub

 

[ahmedummu]

Ziynettin bey çok teşekkür ederim.

Bunların içini nasıl temizleyebiliriz.

Bir de 4 Adet optionbuttonum var.
optionbutton1 seçili ise 1-20 arasındaki metin kutularına,
optionbutton2 seçili ise 21-40 arasındaki metin kutularına,
optionbutton3 seçili ise 41-60 arasındaki metin kutularına,
optionbutton4 seçili ise 61-80 arasındaki metin kutularına textlerin değerlerini yazdırmak istiyorum.

Şu an textlerimin sayısı 8 fakat bunlar çoğalacak.

 

[ahmedummu]

Textlerin içini temizleme çözüldü fakat diğer konuda yardımcı olursanız sevinirim.

 

[Ziynettin]

Bu şekilde kullanabilirsiniz.

Private Sub CommandButton1_Click()
If OptionButton1 = True Then: basla = 1: son = 20
If OptionButton2 = True Then: basla = 21: son = 40
If OptionButton3 = True Then: basla = 41: son = 60
If OptionButton4 = True Then: basla = 61: son = 80
With Sheets("Sayfa1")
    For i = basla To son
        say = say + 1
        .Shapes("metin kutusu " & i & "").TextFrame.Characters.Text = Me("TextBox" & say)
    Next i
End With
End Sub

 

[ahmedummu]

Çok teşekkür ederim Ziynettin bey.