Kod:
Range("a1").Select
ActiveCell.FormulaR1C1 = "son 20 adım..."
Range("E1").Select
Selection.Copy
Range("E5:E50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Selection.Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5:E50").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("a1").Select
ActiveCell.FormulaR1C1 = "son 19 adım..."
Range("E1").Select
Selection.Copy
Range("E51:E100").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Selection.Copy
Range("F51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E51:E100").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("a1").Select
ActiveCell.FormulaR1C1 = "son 18 adım..."
Range("E1").Select
Selection.Copy
Range("E101:E150").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Selection.Copy
Range("F101").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E101:E150").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("a1").Select
ActiveCell.FormulaR1C1 = "son 17 adım..."
Range("E1").Select
Selection.Copy
Range("E151:E200").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Selection.Copy
Range("F151").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E151:E200").Select
Application.CutCopyMode = False
Selection.ClearContents
.
.
.
.
neden böyle yaptım?: e1 hücresindeki formül:
Kod:
=TOPLA.ÇARPIM((($O$2:DOLAYLI(BİRLEÃTİR("o";indis)))=$A2)*(($P$2:DOLAYLI(BİRLEÃTİR("p";indis)))=$B2)*(($Q$2:DOLAYLI(BİRLEÃTİR("q";indis)))=C$1)*(($R$2:DOLAYLI(BİRLEÃTİR("r";indis)))))
1000 satırı birden hesaplamaya çalışınca çok zaman alıyor ve kilitlenebiliyor. ben de 50 şer 50 şer ayırıp 20 adıma böldüm. bu şekilde yapınca da kod yazması büyük problem. bu konuda da zaten acemiyim, bir yol gösterirseniz sevinirim.