Merhaba Arkadaşlar.
Ofis 2010 da Excel ve Access olarak makrolarla hazırlanmış dosyalarım var. Ofis 365 e geçmek istiyorum. Dosyalarım Ofis 365 de çalışır mı.

Sub BenzersizVeSiralamali()
Dim son As Long, benzersiz, sirala
With ThisWorkbook.Sheets("Sayfa1")
.Range("C2:C" & Rows.Count).Clear
.ListBox1.Clear
.ComboBox1.Clear
If son = 1 Then Exit Sub
son = .Cells(Rows.Count, 1).End(3).Row
benzersiz = WorksheetFunction.Unique(.Range("A2:A" & son))
sirala = WorksheetFunction.Sort(benzersiz)
.Range("C2").Resize(UBound(sirala)).Value = sirala
.ListBox1.List = sirala
.ComboBox1.List = sirala
End With
End Sub