Siralama

[dayikerem]

Ekli dosya içerisinde ANA adlı kutuya 1 den 31 'e kadar olan sayı girdiğimde yine dosya içerisindeki 31 adet kutudan denk gelen kutuya x işareti koymasını istiyorum.Bununla ilğili yardrımcı olacak arkadaşlarıma şimdiden teşekkürler.

 

[modalı]

Sayın dayikerem,

X koyacağınız metin alanlarının adlarını txt1, txt2, txt3,... olarak değiştirin, sonra da aşağıdaki kodları formun kod penceresine yapıştırın.

Private Sub ANA_AfterUpdate()
Dim strad As String
strad = "txt" & Me.ANA
Controls(strad).Value = "X"
End Sub

İyi çalışmalar

 

[dayikerem]

teşekkürler arkadaşım.sağ ol.