makroda ilave satır

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Arkadaşlar makroda ilave etmem satır var yardımcı olurmusunuz? İlginiz için şimdiden teşekkür ederim:
Ekli dosya ektedir.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Dosyanızda makro yok, hangi makroyu düzelteceğiz?
 

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Sub LENS()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'hızlandırmak için

Range("A8").Select
Selection.FormulaArray = "=COUNTIF(R8C9:R351C36,RC[1])"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A351"), Type:=xlFillDefault
Range("A8:A351").Select
Range("E21").Select
ActiveWorkbook.Save

Sanırım burada olmalı

Range("G8:H351").Select
Selection.ClearContents
Range("A8:B351").Select
Selection.Copy
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("E1").Select

With ActiveSheet
For sat = 8 To .Cells(Rows.Count, "G").End(3).Row
If .Cells(sat, "G") = "" Then .Range("G" & sat & ":H" & sat).ClearContents
Next
.Range("G8:H" & .Cells(Rows.Count, "G").End(3).Row).Sort Key1:=.[G8], Order1:=2
End With

Range("A8:A351").Select
Selection.ClearContents
Range("I1").Select
Application.Calculation = xlCalculationAutomatic 'hızlandırmak için
Application.ScreenUpdating = True


End Sub
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
ActiveWorkbook.Save satırından önce

Application.DisplayAlerts = False

ve sonra

Application.DisplayAlerts = True

satırlarını ekleyip dener misiniz?
 

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Teşekkür ederim.
 
Üst