Metin kutularının ismini nasıl değiştirebilirim.

[ahmedummu]

Merhaba arkadaşlar.

Örnekteki resim görüntüsünde metin kutusunun adını "Metin kutusu 25" olarak değiştirmeme rağmen Enter'a bastıktan sonra hala "Metin kutusu 1" olarak kalıyor. Yardımcı olabilir misiniz.

 

[AdemCan]

Merhabalar;
Dosya indirme yetkim olmadığı için, ekli dosyaya bakamadım ama şöyle bir resim hazırladım.

Metin kutularını seçip Ad Kutusundan numaraları değiştirip Enter ile onaylayınca değişiyor.

Olmaz ise; dosyanız için harici bir indirme linki verir misiniz?

 

[ahmedummu]

Örnek dosyayı ekte gönderdim.

Optionbutton1 seçili iken 1'den 24'e kadar olan metin kutularına textlerdeki verileri yazacak (Burada bir sorun yok.)

Optionbutton2 seçili iken ise metin kutusu 25'den, metin kutusu 48'e kadar olan metin kutularına textlerdeki verileri yazacak. (Burada hata var)

Optionbutton2 yi seçip deneme yaparsanız Metin kutusu 13 den başlıyor, metin kutusu 36'ya kadar yazıyor. Halbuki metin kutusu 25'den başlaması gerekiyor.
metin kutusu 36'dan 48'e kadar olan kısmı da yazmıyor.

 

[ahmedummu]

Dosya linki

http://dosya.co/nd8a7rba48ie/kimlik_yazma_programı.xls.html

Ad kutusundan isimleri işyerindeki bilgisayar değiştiriyordu. Zannedersen evdeki bilgisayarda değiştirmiyor. Evdeki 2003 ondan olabilir mi?

 

[AdemCan]

Merhabalar;
Belirttiğim şekilde metin kutularını seçerek isimleri değiştirdim. Office 2003 içinde aynı yöntemin geçerli olması gerekli, 2003 kullanmayalı çok oldu.
Dosya linki..

 

[ahmedummu]

Teşekkürler sayın faye_efsane bey. Çalışıyor.

 

[AdemCan]

Merhabalar;
Rica ederim, iyi çalışmalar.

 

[halit3]

Alternatif olarak önce bu kodu çalıştırın

Sub deneme5()

say = 0
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If Picture.Type = 17 Then
say = say + 1
ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Name = "xlms" & say
End If
Next Picture
say = 0
For Each Picture In ActiveSheet.Shapes
If Picture.Type = 17 Then
say = say + 1
ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Name = "[COLOR="Red"]Metin[/COLOR]" & say
End If
Next Picture

MsgBox "işlem tamam"

End Sub

Nesnelerin adları Metin + sayı olmak üzere değiştirdik yukarıdaki kod ile

userformdaki kodu bununla değiştirin

Private Sub CommandButton1_Click()
If OptionButton1 = True Then: basla = 1: son = 24
If OptionButton2 = True Then: basla = 25: son = 48
If OptionButton3 = True Then: basla = 41: son = 60
If OptionButton4 = True Then: basla = 61: son = 80
For i = basla To son
say = say + 1
Sheets("Sayfa1").Shapes("[COLOR="Red"]Metin[/COLOR]" & i).OLEFormat.Object.Characters.Text = Me("TextBox" & say)
Next i

End Sub