Excel Sayfasından Değişkenlere Değer Atamak.

[ahmedummu]

Merhaba arkadaşlar.

Excel sayfasından textbox1 ve textbox2'nin değerine göre 3 ayrı değişkene 3 ayrı tablodan 3. Tabloda şarta bağlı olarak değer atamak istiyorum. Ekte gönderdiğim dosyada sayfa içinde nasıl olacağını her tablonun altına yazdım. Benim kodlar hepsinin değerini 0 çıkardı. Bir bakıp yardımcı olursanız sevinirim.

 

[Ziynettin]

Merhaba,

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
Dim a(), b(), c()
On Error Resume Next
t1 = Val(TextBox1)
t2 = Val(TextBox2)
a = Range("B4:j18")
derecegostergesi = a(t1, t2)

b = Range("M4:M18")
gosterge = b(t1, 1)

c = Range("P4:R18")
If ComboBox1.Text = "UZMAN ÖĞRETMEN" Then
sut = 3
Else
sut = 1
End If
ozelhizmettazminati = c(t1, sut)

MsgBox "derecegostergesi:  " & derecegostergesi & vbLf & vbLf & _
       "gosterge:  " & gosterge & vbLf & vbLf & _
       "ozelhizmettazminati:  " & ozelhizmettazminati
End Sub

 

[halit3]

Alternatif olarak ekli dosyayı irdeleyiniz.

 

[ahmedummu]

Halit ve Ziynettin bey ellerinize sağlık. Çalışıyor.