Aktiv Sayfa

[boss2090]

merhaba rakadaslar tekrardan. kücük bir sorunum var asagida yazacigim kod da nasil bir degisiklik yapmam gerek ki. Hangi sayfada isem o sayfanin hücrelerine verileri aktarsin.


Private Sub ComboBox2_Change()
If ComboBox1.Value = "IPE" Then
Select Case ComboBox2.Text
Case Is = "IPE 80"
Range("b13").Value = 40
Case Is = "IPE 100"
Range("b13").Value = 50
Case Is = "IPE 120"
Range("b13").Value = 60
Case Is = "IPE 140"
Range("b13").Value = 70
Case Is = "IPE 160"
Range("b13").Value = 80
Case Is = "IPE 180"
Range("b13").Value = 90
Case Is = "IPE 200"
Range("b13").Value = 100
Case Is = "IPE 220"
Range("b13").Value = 110
Case Is = "IPE 240"
Range("b13").Value = 120
Case Is = "IPE 270"
Range("b13").Value = 135
Case Is = "IPE 300"
Range("b13").Value = 150
Case Is = "IPE 330"
Range("b13").Value = 165
Case Is = "IPE 360"
Range("b13").Value = 180
Case Is = "IPE 400"
Range("b13").Value = 200
Case Is = "IPE 450"
Range("b13").Value = 225
Case Is = "IPE 500"
Range("b13").Value = 250
Case Is = "IPE 550"
Range("b13").Value = 275
Case Is = "IPE 600"
Range("b13").Value = 300
End Select
End If
End Sub

 

[İhsan Tank]

merhaba

Private Sub ComboBox2_Change()
If ComboBox1.Value = "IPE" Then
Select Case ComboBox2.Text
Case Is = "IPE 80"
ActiveSheet.Range("b13").Value = 40
Case Is = "IPE 100"
ActiveSheet.Range("b13").Value = 50
Case Is = "IPE 120"
ActiveSheet.Range("b13").Value = 60
Case Is = "IPE 140"
ActiveSheet.Range("b13").Value = 70
Case Is = "IPE 160"
ActiveSheet.Range("b13").Value = 80
Case Is = "IPE 180"
ActiveSheet.Range("b13").Value = 90
Case Is = "IPE 200"
ActiveSheet.Range("b13").Value = 100
Case Is = "IPE 220"
ActiveSheet.Range("b13").Value = 110
Case Is = "IPE 240"
ActiveSheet.Range("b13").Value = 120
Case Is = "IPE 270"
ActiveSheet.Range("b13").Value = 135
Case Is = "IPE 300"
ActiveSheet.Range("b13").Value = 150
Case Is = "IPE 330"
ActiveSheet.Range("b13").Value = 165
Case Is = "IPE 360"
ActiveSheet.Range("b13").Value = 180
Case Is = "IPE 400"
ActiveSheet.Range("b13").Value = 200
Case Is = "IPE 450"
ActiveSheet.Range("b13").Value = 225
Case Is = "IPE 500"
ActiveSheet.Range("b13").Value = 250
Case Is = "IPE 550"
ActiveSheet.Range("b13").Value = 275
Case Is = "IPE 600"
ActiveSheet.Range("b13").Value = 300
End Select
End If
End Sub

bu kodla dener misiniz

 

[boss2090]

Tesekkürler....Süper...

 

[İhsan Tank]

Tesekkürler....Süper...

rica ederim
:yazici: