Değişkene Bağlı Label Yaratmak

[dorucoglu]

Merhabalar,

Çalışmam içerisinde 1 den fazla Label ile işlem yapmaktayım. Labela atayacağım değerleri aynı formülle hesaplayacağım için Labelları alt alta yazmak yerine formülüze edebileceğimiz bir yöntem bilen var mı? Aşağıdaki gibi yapmaya çalıştım fakat olmadı.

no=39
Do until no>229

If Sheets("GİDERLER").Cells(satır, 3) = "Label" & no.Caption Then

End If

no = no + 17
Loop

 

[Levent Menteşoğlu]

Elbette yöntem var. Ancak isteğinizi içeren bir örnek dosya eklerseniz tam çözüm bulunabilir.

 

[Skorpiyon]

Sayın dorucoglu,

Bu şekilde bir deneyin.

If Sheets("GİDERLER").Cells(satır, 3) = Controls("Label" & no).Caption Then