- Katılım
- 18 Ağustos 2009
- Mesajlar
- 199
- Excel Vers. ve Dili
- Excel 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 14/06/2022
150 sütundan ve sayısı değişkenlik gösteren yaklaşık 30.000 satırdan oluşan geniş bir listem var.
Bu listedeki bilgileri formüllerle başka bir sayfaya aktarıp burada analiz etmeye çalışıyorum.
Ancak liste çok geniş olduğu için formüller çok kasıyor.
Bu yüzden sadece 1.satıra formül yazıp, o formülü kaç tane gerekiyorsa aşağı satırlara kopyalayan
ve sonrasında da formülleri değerlere dönüştüren bir makro yazdım. Ancak bu makronun çalışması da
çok uzun sürüyor. Buna daha kısa sürede yapan kasmayan bir çözüm yolu önerecek var mıdır?
Aşağıdaki kodda öncelikle, 4.satır ve aşağısındaki bilgileri temizleyip, sonra 3.satırdaki formülleri
4.satırdan itibaren kaç tane satır varsa aşağıya doğru o kadar kopyalayıp, formülleri değerlere dönüştürüyor.
Range("A4:AZ" & [B1]).Select
Selection.ClearContents
Range("A3:AZ3").Select
Selection.Copy
Range("A4:AZ" & [A1] + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Bu listedeki bilgileri formüllerle başka bir sayfaya aktarıp burada analiz etmeye çalışıyorum.
Ancak liste çok geniş olduğu için formüller çok kasıyor.
Bu yüzden sadece 1.satıra formül yazıp, o formülü kaç tane gerekiyorsa aşağı satırlara kopyalayan
ve sonrasında da formülleri değerlere dönüştüren bir makro yazdım. Ancak bu makronun çalışması da
çok uzun sürüyor. Buna daha kısa sürede yapan kasmayan bir çözüm yolu önerecek var mıdır?
Aşağıdaki kodda öncelikle, 4.satır ve aşağısındaki bilgileri temizleyip, sonra 3.satırdaki formülleri
4.satırdan itibaren kaç tane satır varsa aşağıya doğru o kadar kopyalayıp, formülleri değerlere dönüştürüyor.
Range("A4:AZ" & [B1]).Select
Selection.ClearContents
Range("A3:AZ3").Select
Selection.Copy
Range("A4:AZ" & [A1] + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False