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)
On Error Resume Next
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target = "" Then Target.ClearFormats
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Row, 1).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub