DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5]) Is Nothing Then Exit Sub
If Target = 1 Then TextBox1.Value = "Kaloriferli 5 Kat'a kadar olan bina"
If Target = 2 Then TextBox1.Value = "Kaloriferli 5 Kat ve üstü Bina"
If Target = 3 Then TextBox1.Value = "Sanayii Yapıları"
If Target = 4 Then TextBox1.Value = "Spor salonları"
End Sub