Merhaba,
Aşağıda ki örneği siteden aldım.
"Sub/End Sub" içerisinde çalışan kodlarda dahi "Dim" ile tanımlama yapmaya gerek var mı?
Saygılarımla...
Aşağıda ki örneği siteden aldım.
"Sub/End Sub" içerisinde çalışan kodlarda dahi "Dim" ile tanımlama yapmaya gerek var mı?
Saygılarımla...
Kod:
Sub auto_open()
Dim sonsat As Long, sh As Worksheet
Set sh = Sheets("Sheet1")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:E" & sonsat).Sort key1:=Range("A2"), order1:=xlAscending, key2:=Range("B2"), order2:=xlAscending
End Sub

