Userform u değişken ad ile açma

[heft]

Merhaba,
ActiveCell.Offset(0, 3).Value(değişken) te E0100 yazıyor (E0100 diye userform var).
Butona tıkladığımda

ActiveCell.Offset(0, 3).Value & .Show

mantığına denk gelen userformu açmasını istiyorum.
Sürekli hata mesajı alıyorum,nasıl düzeltebilirim?
İyi Çalışmalar

 

[Husgvarna]

Merhaba,
ActiveCell.Offset(0, 3).Value(değişken) te E0100 yazıyor (E0100 diye userform var).
Butona tıkladığımda

ActiveCell.Offset(0, 3).Value & .Show

mantığına denk gelen userformu açmasını istiyorum.
Sürekli hata mesajı alıyorum,nasıl düzeltebilirim?
İyi Çalışmalar

Merhaba.
Aşağıdaki gibi deneyin

UserForms.Add(ActiveCell.Offset(0, 3).Value).Show

 

[ExcelF1]

Bir Userformu değişkene atamak istiyorsanız, Userformu değişken tipi olarak tanımlamalısınız.
Bunun gibi birşey olmalı.

sub formac()
dim a as object
set a = activecell.offset(0,3).value
a.show
end sub

 

[Murat OSMA]

Activecell'in Show özelliği var mı ? :dusun:

 

[Murat OSMA]

Doğrusu Sn. Hugsvarna'nın sunduğu çözüm...

Alternatif olarak şu şekilde de olabilir;

Sub Emre()
    Dim adi As String
        adi = ActiveCell.Offset(0, 3).Value
        UserForms.Add(adi).Show
    adi = vbNullString
End Sub

Sub Emre()
    Dim adi As String
    Dim form As Object
        adi = ActiveCell.Offset(0, 3).Value
        Set form = UserForms.Add(adi)
    form.Show
    Set form = Nothing: adi = vbNullString
End Sub

 

[heft]

Çok teşekkürler,sağolun

 

[kaan_3525]

Murat bey peki değişken userform içinde listviewler varsa, o listviewlerin içeriğini nasıl silebiliriz. Ben bu örnekteki gibi userform tanımladım fakat form.Listview1.listItem.Clear yaptığımda hata veriyor. Bunu nasıl gerçekleştirebiliriz?

 

[yusuf1284]

Userformumda textboxlarıo clas ile kontrol ediyorum clas içersinde başka userformu değişken ile nasıl çağırabilirim? yani deger değişkeni diğer userform açılışına aktarmak istiyorum umarım anlatabildim

 

[yusuf1284]

Kodlarımı UserForm_Initialize den UserForm_Activate taşıyınca düzeldi