Makro hatası (ActiveSheet.Paste)

[AS3434]

Tüm arkadaşlara iyi günler dilerim.
Bu siteden bulup kullandığım , daha doğrusu kullanmaya çalıştığım iki ayrı makro var. Çalıştığım diyorum diyorum çünkü biri hata veriyor. Makro konusunda bilgisiz olduğum için sorunun nereden kaynaklandığını bulamıyorum.
Modül içinde butona bağlı çalışan hata veren makro şu:

Sub VERİ_AKTAR()
Sheets("TOPLAM").Range("B6:F65536").ClearContents
For X = 3 To Worksheets.Count
Sheets(X).Select
Sheets(X).Range("B6:F" & Sheets(X).Range("B65536").End(xlUp).Row).Select
Selection.Copy
Sheets(X).Range("A1").Select
Sheets("TOPLAM").Select
Sheets("TOPLAM").Range("B65536").End(xlUp).Select
If ActiveCell.Address = "$B$1" Then
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Next
Sheets("TOPLAM").Range("A1").Select
MsgBox "AKTARILDI...", vbInformation
End Sub

Bu makro bu sabaha kadar düzgün çalışıyordu Fakat Sabah aşağıdaki makroyu "This Workbook" a yapıştırınca kırmızı işaretli hatayı verdi.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
If Intersect(ActiveCell, [B6:f270]) Is Nothing Then Exit Sub
Range("B" & ActiveCell.Row & ":f" & ActiveCell.Row).FormatConditions.Add Type:=xlExpression, Formula1:=1
Range("B" & ActiveCell.Row & ":f" & ActiveCell.Row).FormatConditions(1).Interior.ColorIndex = 36
Range("B" & ActiveCell.Row & ":f" & ActiveCell.Row).FormatConditions(1).Font.Bold = True
Range("B" & ActiveCell.Row & ":f" & ActiveCell.Row).FormatConditions(1).Font.ColorIndex = 5
ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:=1
ActiveCell.FormatConditions(1).Interior.ColorIndex = 15
End Sub

Not: İlk makro farklı çalışma sayfalarındaki veriyi tek sayfaya topluyor. İkincisi çalışma sayfalarındaki aktif satırı renklendiriyor.

 

[AS3434]

Tekrar iyi günler.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next

çalışma sayfalarının kod sayfalarında bu satırlarla başlayan başka bir makro var ondan kaynaklanabilirmi.

 

[Korhan Ayhan]

Selamlar,

Aslında sorunuzun içinde cevabınıda vermişsiniz.

Bu makro bu sabaha kadar düzgün çalışıyordu Fakat Sabah aşağıdaki makroyu "This Workbook" a yapıştırınca kırmızı işaretli hatayı verdi.

Siz ilk makroyu çalıştırınca "This Workbook" kısmına yapıştırdığınız kodlar tetikleniyor ve hataya sebep oluyor. :arkadas:

 

[AS3434]

sn COST CONTROL
Peki bunun çözümü nedir. İki makroyuda beraber nasıl kullanabilirim acaba?
(Hatırladığım kadarıyla veri aktar kodlarıda size aitti. )

 

[AS3434]

Herkese iyi günler.
Yukarıdaki soru hakkında bir fikri olan yokmu acaba?
İki makroyu beraber nasıl kullanabilirim?