Koşullu RowSource hakkında.

[woyzeck]

Merhabalar arkadaşlar,

Excelman arkadaşımızın yaptığı bi çalışma sayesinde aşağıdaki kodlarımı yazabildim.


Private Sub MODEL1_Change()
If MODEL1.Value = "T110" Then
KALIP1.RowSource = "ana!a1:b3"
Else
KALIP1.RowSource = "ana!B1:B6"
End If
End Sub


Bu kodlarla iligili 2 şey sorunum var;

1- " If MODEL1.Value = "T110" Then " satırında YADA eklentisi gibi ikinci bir değer daha vermek isterim. şöyle
" If MODEL1.Value = "T110" or "T330" Then "

ama "or" yazdığım kısımda hata vermekte. bu YADA'yı nasıl ekleyebilirim?

2- Gördüğünüz üzere bu kod Model1 adlı Combobox'ımda değişiklik olunca uygulamaya geçmekte. fakat benim yaklaşık olarak Model2,Model3... diye sıralanan 25 adet combobox'ım bulunmakta. bu 25 adet combobox'a uygulayabileceğim kısa birkod uygulayabilir miyiz?

ilgilenebilir iseniz sevinirim.

Teşekkürler

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

If MODEL1.Value = "T110" or MODEL1.Value = "T330" Then

 

[woyzeck]

@Orion,
Çok teşekkürler.

2. soruma istinaden aşağıdaki gibi bi çözüm buldum;


**********************************
Private Sub MODEL1_Change()
If MODEL1.Value = "T110" Or MODEL1.Value = "T330" Then
KALIP1.RowSource = "ana!a1:b3"
Else
KALIP1.RowSource = "ana!B1:B6"
End If
END SUB

Private Sub MODEL2_Change()
If MODEL2.Value = "T110" Or MODEL2.Value = "T330" Then
KALIP2.RowSource = "ana!a1:b3"
Else
KALIP2.RowSource = "ana!B1:B6"
End If
END SUB

Private Sub MODEL3_Change()
If MODEL3.Value = "T110" Or MODEL3.Value = "T330" Then
KALIP3.RowSource = "ana!a1:b3"
Else
KALIP3.RowSource = "ana!B1:B6"
End If
END SUB
**********************************
ve böyle 25. combobox'a kadar devam etmekte.

herkese iyi günler dilerim.