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, [E20]) Is Nothing Then Exit Sub
Call birlestir
Sub birlestir()
[A552] = "Yerel Zemin Sınıfı" & " " & [D204] & " ve " & [A212] & "=" & [B212] & " " & "için" & " " & [E214] & "=" & [F214]
With [A552].Characters(27, 1).Font
.Subscript = True
End With
With [A552].Characters(41, 1).Font
.Subscript = True
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E20]) Is Nothing Then Exit Sub
Worksheets("Sayfa1").Range("A1")=[E20]
End Sub