TextBox Change Özelliğini Döngüye Çevirme

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 20 May 2019

• #2

Merhaba class modül ile yapabilirsiniz.

 

Oyla 0 Olumsuz oyla

cakarem

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,250

• 21 May 2019

• #3

Bak bunu bilmiyordum. Bununla ilgili bir örnek varsa mükemmel olur...

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 21 May 2019

• #4

cakarem' Alıntı:

Bak bunu bilmiyordum. Bununla ilgili bir örnek varsa mükemmel olur...

Genişletmek için tıklayın ...

Birazdan yaparım arşivimde vardı zaten.10 textboxa göre ayarlarım.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 21 May 2019

• #5

Sadece rakam ve virgüle izin var.

Class kodlar;

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(17 satır)

Userform kodlar;

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

 

Ekli dosyalar

• Sadece rakam ve virgül class modül belirli textboxlar.xlsm

  23.9 KB · Görüntüleme: 7

Oyla 1 Olumsuz oyla

Çözüm

cakarem

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,250

• 21 May 2019

• #6

Teşekkürler

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 21 May 2019

• #7

Rica ederim

 

Oyla 0 Olumsuz oyla

hexadesimal

Kullanıcı

Katılım

13 May 2019

Mesajlar

81

• 21 May 2019

• #8

Ben de şöyle bir hata verdi ki sanırım kod yapımla ilgili.

Ancak dosyayı arşive aldım çok teşekkürler

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 21 May 2019

• #9

Class modülün ismi yolladığım gibimi?
Ve içeriğide aynı olmalı.

 

Oyla 0 Olumsuz oyla

hexadesimal

Kullanıcı

Katılım

13 May 2019

Mesajlar

81

• 21 May 2019

• #10

Tamamı aynı.
Bendeki Userformda 345 adete textbox var. Ona göre de uyarladım ancak hata verdi.Buna benzer bir kod daha bulmuştum ClassModulle ilgili araştırma yaparken o kodda hata vermişti. Sonucta 345 textboxun change olayına koda yazarak çözüldü.
Bulduğum kod:

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(21 satır)

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 21 May 2019

• #11

Yok üstad o kadar change kısmına kodmu yazılır
Dosyayı yollarmısınız basit şekilde eve varınca bakayım akşama.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 22 May 2019

• #12

Hatanızın çözümünü buldum.
Dim TextBoxes(1 To 345) As New txrakamvevrgul bu kod en üstte olacak.
Koddun en başında Option Explicit varsa bunun altında olacak.
Yani kısaca alttaki resimdeki gibi olmayacak en üst satırda Sub xx olduğu için onun üst satırında olmalı dim ile başlayan kod.

Doğrusu alttaki gibi

Resimdeki 360 yanıltmasın 360 tane textbox eklemiştim kopyalayıp çoğaltarak

 

Oyla 0 Olumsuz oyla

hexadesimal

Kullanıcı

Katılım

13 May 2019

Mesajlar

81

• 22 May 2019

• #13

Teşekkürler deneyip döneceğim.

 

Oyla 0 Olumsuz oyla

hexadesimal

Kullanıcı

Katılım

13 May 2019

Mesajlar

81

• 22 May 2019

• #14

Dosyada hata alıyorum. Dosya ekte.

 

Ekli dosyalar

• Test Sayfası 5 (1).xlsm

  63.2 KB · Görüntüleme: 4

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 22 May 2019

• #15

Merhaba.
Sayın @Feyzullah şu an çevrimiçi değil.

Eklediğiniz belgenin geldiği aşamayı bilemiyorum ama, belgede UserForm2'nin açılmamasına neden olan şey;
UserForm2'nin Initialize kod blokundaki For... Next döngüsünde formun adındaki hata.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

 

Oyla 0 Olumsuz oyla

hexadesimal

Kullanıcı

Katılım

13 May 2019

Mesajlar

81

• 16 Şub 2024

• #16

Dosyaların arasında gide gele... Teşekkürler Ömer Bey kusuruma bakmayınız. Dikkatsizlik!..

 

Oyla 0 Olumsuz oyla