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ı.
Makrolarınızın yapısına ve kodlamasına göre değişir. Bazıları sorun çıkartır, bazıları sorunsuz çalışır. Çok spesifik bir konuda oldukça genel bir soru sormuşsunuz.
Çok teşekkürler Hocam verdiğiniz bilgiler için.
Hocam konuyu taşıyabilirsiniz. Saygılar.
Rica ederim. İyi çalışmalar.
Merhaba.
Office365 e geçerseniz en güzel faydalarından biri için örnek kod yaptım.
Benyersiz ve sıralar.Bunu combolarda listboxlarda sayfalarda vs.. kullanılır.
Normal ofis için bir sürü kod yazmak gerekecek ve daha yavaş çalışır gerçi ado ile olur ama bence böyle daha kullanışlı.
Adamlar formülleri bile acayip yapmışlar
https://resim.accesstr.net/do.php?img=11097
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
Çok teşekkürler Hocam ellerinize sağlık verdiğiniz bilgiler için.