AS3434
Özel Üye
- Katılım
- 13 Ocak 2005
- Mesajlar
- 1,820
- Excel Vers. ve Dili
- M.Office/Excel 2007 Türkçe
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.
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.