Excel VBA kod parçaları

Bu yazıda Excel VBA ile kod yazarken en çok kullandığım kod öbeklerini ekliyorum. 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

---