DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell = "" Then Exit Sub
SendKeys "{F2}"
For a = 1 To Len(ActiveCell)
SendKeys "+{left}"
Next
End Sub