Mesela alttakini eklemişsiniz kod veri sayfasında çalışırsa veri sayfasına kaydeder a1,b1....gibi yerlere.
[a1] = "SN"
[B1] = "Sicili"
[c1] = "Adı"
[D1] = "Soy Adı"
[e1] = "Rütbesi"
-----------------------------------------------------------
Alttakilerde aynı şekilde.
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").Select
Range("E5").Activate
Columns("D
").EntireColumn.AutoFitColumns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 20.57
Columns("F:F").ColumnWidth = 30.71
Columns("G:G").ColumnWidth = 30.71
Cells.Select
Range("A5").Activate
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
