Otomatik Userform Açma VBA

[crpzz37]

Merhabalar benim daha önceden oluşturduğum userformlarım mevcut
dim harf as string
dim sayı as integer
harf = "HM"
sayı =32

gibi bir değişkenlerim var bunlar formda seçilen verilere göre gelmekte. bu verilere göre o userformu acmasını istiyorum ama beceremedim. aşağıdaki kodu yazdım ama olmadı. Yardımcı olursanız çok sevinirim.

Private Sub CommandButton1_Click()
dim form as object
form= harf & sayı
form.show
End Sub

 

[halit3]

Merhaba
Userformlar değişken (string) dinamik tanımlamaları yapılamıyor.

if else end if komutları ile şöyle olabilir.

A1 hücresine sayı (1-4) girince aşağıdaki kod ilgili userformları açar

Private Sub CommandButton1_Click()
If Cells(1, 1).Value = 1 Then
UserForm1.Show
ElseIf Cells(1, 1).Value = 2 Then
UserForm2.Show
ElseIf Cells(1, 1).Value = 3 Then
UserForm3.Show
ElseIf Cells(1, 1).Value = 4 Then
UserForm4.Show
End If
End Sub