DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
Dim i As Byte
On Error Resume Next
Sheets(ComboBox1.Value).Select
For i = 2 To 10
Controls("TextBox" & i).Value = Cells(3, i).Value
Next i
TextBox5.Value = Format(Range("E3").Value, "dd.mm.yyyy")
TextBox10.Value = Format(Range("J3").Value, "#,##0.00")
End Sub
Rica ederim.kızmak haddimize düşmez ama teşekkürü bir borç biliriz elinize sağlık