textboxlarda 4 işlem ve yüzde işlemi

[by_IsTaNBuL]

arkadaşlar excelim formalar hariç orta derecede iyidir fakat formlara yeni merak sardım ama basıma bela aldım galiba . yardıma ihiyacım var .userformun üstüde sorunları tek tek acıklamaya calıstım. yardımcı olursanız sevinirim herkese kolay gelsın.

 

[Korhan Ayhan]

Selamlar,

Formunuzdaki eski kodların yerine aşağıdaki kodları uygulayıp denermisiniz.

Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox2 = WorksheetFunction.VLookup(TextBox1, Sheets("DATA").Range("A:B"), 2, 0)
    TextBox3.Text = WorksheetFunction.VLookup(TextBox1, Sheets("DATA").Range("A:E"), 5, 0)
    TextBox28 = WorksheetFunction.VLookup(TextBox1, Sheets("DATA").Range("A:G"), 7, 0)
    TextBox28 = WorksheetFunction.VLookup(TextBox1, Sheets("DATA").Range("A:G"), 7, 0)
    TextBox31 = WorksheetFunction.VLookup(TextBox1, Sheets("DATA").Range("A:D"), 4, 0)
End Sub

Private Sub TextBox31_Change()
    On Error Resume Next
    TextBox30.Text = CDbl(TextBox3.Text) * CDbl(TextBox31.Text)
    TextBox33.Text = TextBox3 * TextBox31
End Sub

Private Sub TextBox34_Change()
    If TextBox34 <> "" Then
        TextBox35.Text = CDbl(TextBox33.Text) * (1 - CDbl(TextBox34.Text) / 100)
    Else
        TextBox35.Text = TextBox33
    End If
End Sub

 

[by_IsTaNBuL]

teşekkür

korhan bey çok teşekkür ederim ilginize alakanıza