makroda düzeltme

[gedavet]

sayfa1 deki makroyu sayfa2 deki makronun dolgu renklendirme özelliğiyle değiştirmek istiyorum yani sayfa2 ki doldu özelliği sayfa1 deki özelliğinin olmasını istiyorum ve sayfa2 biraz başka bir özellik var oda olacak sadece sayfa2 deki sadece dolgu özelliğini değiştirmek istiyorum

 

[gedavet]

makroyu dezeltivebilen yokmu

 

[gedavet]

yardım lazım

 

[fedeal]

sorunuzu tam anlamamakla birlikte sadece dolgu özelliklerini degiştirsek olurmu ?sayfa2 kod bölümüne kopyalayın umarım olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Not Intersect(Target, [C4:O65536,S3:AE65536]) Is Nothing Then
On Error Resume Next
ActiveSheet.Shapes("Grup 1").Top = Cells(1, Target.Column).Top
ActiveSheet.Shapes("Grup 1").Left = Cells(1, Target.Column).Left
ActiveSheet.Shapes("TABLO").Top = Cells(1, Target.Column).Offset(0, 2).Top
ActiveSheet.Shapes("TABLO").Left = Cells(1, Target.Column).Offset(0, 2).Left
ActiveSheet.Shapes("SİLME").Top = Cells(1, Target.Column).Offset(0, 4).Top
ActiveSheet.Shapes("SİLME").Left = Cells(1, Target.Column).Offset(0, 4).Left
End If
    Dim Satır As Range, Sütun As Range
    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
    Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
    Cells.FormatConditions.Delete
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    With Satır
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 8
    End With
    With Sütun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 8
    End With
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 6
    End With

End Sub

 

[leumruk]

Syn. mustafakoza,
Ne yapmak istediğiniz tam anlaşılmıyor. İçinde kod olmayan bir dosyada istediğiniz şekli elle renklendirerek ekler misiniz?

 

[gedavet]

abi ekdeki sayfanın sayfa 1 deki makroyu sil vaya sıra diye bir makro yapı vermiştiniz burdaki renklerin değişmemesi için koşuullu biçimlendirme filan yapmıştık sil vaya sıraladaki dolgu renklendirme özelliği yerine bu ekdeki sayfa 1 özelliğini uygulayı verebilirmisiniz

 

[leumruk]

Merhaba,
Eki inceler misiniz?

 

[gedavet]

eline sağlı ancak birde koyu siyak sayıları yapsak

 

[gedavet]

yani birinci sayfada olduğu gibi işaratlenen bütün satır ve sütnların rengini değiştirse

 

[gedavet]

bu örnekte dolgu renginin gözüktüğü yere bir yeri boyarsam olmuyor yani benim boyadığım yer işeratleyince makrodaki renk olsa sonra eski haline dönse

 

[gedavet]

Yardım eden olursa hocalarım çok iyi olacak