Excel VBA Makro Kod Parçaları

Kişisel web sayfamda paylaştığım Excel VBA Makro kodu parçacıklarını burada da paylaşıyorum.

Bu kodlar kendi yazdığım yada başka bir kaynaktan bulduğum olabilir. Tamamı basit şeyler olabilir, direk kopyala yapıştır yaptığınızda çalışmayabilir, bu kodlar yerine daha hızlı ve mantıklı olan öbekler olabilir…

---

Sayfayı değişkene atama;

Dim t As Worksheet
Dim s As Worksheet
Set t = Sheets("xxx")

---

Son sutun numarası;

sc = s.Cells(1, Columns.Count + 1).End(xlToLeft).Column     'son sutun

Son satır numarası;

sr = s.Cells(Rows.Count + 1, 1).End(xlUp).Row       'son satir

---

Sayfayı kitabın sonuna kopyala;

Önce kopyalanacak sayfayı “t” değişkenine ata. Sonra kopyalanmış sayfayı “t” değişkenine ata

Set t = ActiveSheet
t.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

Set t = Sheets(ActiveWorkbook.Sheets.Count)

---

Makroyu hızlandırmak için;

basla:
clc = Application.Calculation
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'
'
'
'

cikis:
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = clc

---

Bir sutundaki benzersiz değerleri "collection" ile topla ve "for" döngüsüne sok;

Dim cc As New Collection
Dim h As range

For Each h In s.Range(cells(a,b),cells(a,c))
        If Trim(h.Value) <> "" Then
            cc.Add h.Value, CStr(h.Value)
        End If
 Next h

---