Userformdan userforma

[heft]

Merhaba günaydınlar,
C:\Den altında A ve B xls dosyalarım var.
A userform1 de 5 tane commandbutton var
B de de 5 tane userform var.

Yapmak istediğim şu;

A.xls Userform1 deki
Commandbutton1 e tıklandığında B.xls deki userform1 açılsın
Commandbutton2 e tıklandığında B.xls deki userform2 açılsın
Commandbutton3 e tıklandığında B.xls deki userform3 açılsın
Commandbutton4 e tıklandığında B.xls deki userform4 açılsın
Commandbutton5 e tıklandığında B.xls deki userform5 açılsın

Yardımlarınıza şimdiden teşekkürler

 

[heft]

Bu konuda yapılabilecek birşey yok galiba :agla: :agla:

 

[algil]

Merhaba her iki dosyanın açık olması koşulu ile;

Aşağıdaki kodu B.xls de bir Modüle yazın.

Sub ac()
UserForm1.Show
End Sub

Aşağıdaki koduda Butonunuzun olduğu sayfanın Kod bölümüne yazınız.

Private Sub CommandButton1_Click()
Application.Run "B.xls!ac"
End Sub

 

[heft]

çok teşekkürlerl sn algil

 

[nkumas]

...................

 

[nkumas]

bi userformda baska arkada duran unload edilmemis baska bi userformun commnadbuttonunu nasıl calıstırırım?

run userform1.commandbutton1 hata vermiyor ama calısmıyor da
run userform1.commandbutton1_click hata veriyor

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

diğer formdaki butona bağlı makroyu çalıştırma

 

[nkumas]

cok tesekkurler...

yine userformlararası iletisimle ilgili asagıda kodda bi problemim var a degerini maalesef bulamıyor yazım hatam mı var acaba?

Set s11 = Sheets("fiyat") 'burada sayfa ismine dikkat
say = s11.[A65536].End(3).Row
For i = 1 To say
If Trim(UserForm1.TextBox1) = Left(Worksheets("fiyat").Cells(i, 1), Len(UserForm1.TextBox1.Text)) Then
a = Worksheets("fiyat").Cells(i, 3).Value

End If
Next i

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Set s11 = Sheets("fiyat") 'burada sayfa ismine dikkat
say = s11.[A65536].End(3).Row
For i = 1 To say
If Trim(UserForm1.TextBox1) = Left(Worksheets("fiyat").Cells(i, 1), Len([COLOR=blue][B]clng([/B][/COLOR]UserForm1.TextBox1.Text)[B][COLOR=blue])[/COLOR][/B]) Then
a = Worksheets("fiyat").Cells(i, 3).Value

End If
Next i

 

[nkumas]

maalesef..

variable required cant assign to this expression diyor.