- Katılım
- 19 Aralık 2011
- Mesajlar
- 101
- Excel Vers. ve Dili
- 2003
tr
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 Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Target.Columns.ColumnWidth = 15
Else
Columns(1).ColumnWidth = 5
End If
End Sub