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)
For sut = 1 To 4
Columns(sut).Columns.AutoFit
Next
For sat = 1 To [a65536].End(3).Row
Rows(sat).Rows.AutoFit
Next
End Sub