Form nesnesine ulaşmak.

[idogus]

Merhaba Arkadaşlar,

Excel hücrelerinde form isimlerim var. Bu form isimlerini kullanarak formları çalıştırmak istiyorum.

Örn:

ThisWorkbook.VBProject.VBComponents(A1).Show

Tabiki excel'de böyle bir kod yok benzer kod nasıl olmalıdır.


Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz, Sayfa1'in A1 hücresinde yazılan userform'u açar.

Sub FormAc()
    
    Dim x
    x = Sheets("Sayfa1").Range("A1").Value
    
    VBA.UserForms.Add(x).Show
    
End Sub

 

[idogus]

Teşekkürler Bay Yeşertener,

Aradığım tam olarak buydu.

Aşağıdaki şekilde kodunuzu kendime göre uyarladım.

Bir excel sayfasında butonlar ekledim. Butonların isimlerini formlarımın isimleriyle aynı yaptım. Basılan butona göre aşağıdaki kod ilgili formu çalıştırıyor. Farklı fikirleri olanlar varsa paylaşırlarsa sevinirim.

Sub SayfadanAc()
    
    Dim frm As String
    
    frm = Application.Caller
    
    VBA.UserForms.Add(frm).Show
        
    
End Sub

 

[Necdet]

Teşekkürler Bay Yeşertener,

Aradığım tam olarak buydu.

Güle güle kullanınız.