kod sorunu

S

SeÖzGü

Katılım
3 Aralık 2019
Mesajlar
28
Excel Vers. ve Dili
makro
Farklı bir bilgisayarda bu kodu kullanıyordum şimdi yeni laptopp verildi ve kodu yapıstırınca renklendirdiğim şekilde hata veriyor kodlar farklı karekterlere dönüşüyor









Kod: 
Sub rapor()

'

' RAPOR Macro

'

' Keyboard Shortcut: Ctrl+Shift+C

'

    Cells.Select

    

     'ÇATAK'

    With Selection.Font

        .Name = "Arial"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    With Selection.Font

        .Name = "Arial"

        .Size = 8

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    Cells.Select

    Range("J1").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$P$1992").AutoFilter Field:=10, Criteria1:=Array( _

        "ANKES", "IPOTEK", "KARSILIKSIZ CEK", "OPERASYONEL IADELI"), Operator:=xlFilterValues

    Range("A2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.EntireRow.Delete

    Selection.AutoFilter

    Range("A1:P8").Select

    Range("H16").Activate

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    Cells.Select

    Cells.EntireColumn.AutoFit

    Range("A1").Select

    Range(Selection, Selection.End(xlToRight)).Select

    With Selection.Font

        .Color = -16776961

        .TintAndShade = 0

    End With

    Selection.Font.Bold = True

    Range("I2").Select

    Range(Selection, Selection.End(xlDown)).Select

    With Selection.Font

        .Color = -16776961

        .TintAndShade = 0

    End With

    Selection.Font.Bold = True

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    ActiveWindow.SmallScroll Down:=39

    Sheets("??lem Dag?l?m?").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$N$358").AutoFilter Field:=7, Criteria1:=Array( _

        "ANKES", "IPOTEK", "KARSILIKSIZ CEK", "OPERASYONEL IADELI"), Operator:=xlFilterValues

    Range("A2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToLeft)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.EntireRow.Delete

    Selection.AutoFilter

    Cells.Select

    With Selection.Font

        .Name = "Arial"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    With Selection.Font

        .Name = "Arial"

        .Size = 8

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    Cells.Select

    Cells.EntireColumn.AutoFit

    Range("A1:N1").Select

    Range("A4").Activate

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    Range("F5").Select

    Sheets("Ç?kmas? Gereken Yaz?lar").Select

    Cells.Select

    With Selection.Font

        .Name = "Arial"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    With Selection.Font

        .Name = "Arial"

        .Size = 8

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 1

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

    End With

    Range("J1").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$P$475").AutoFilter Field:=10, Criteria1:=Array( _

        "ANKES", "IPOTEK", "KARSILIKSIZ CEK", "OPERASYONEL IADELI"), Operator:=xlFilterValues

    Range("A2").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToRight)).Select

   Range(Selection, Selection.End(xlDown)).Select

    Selection.EntireRow.Delete

    Selection.AutoFilter

    Cells.Select

    Cells.EntireColumn.AutoFit

    Range("A1:P3").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    Range("D20").Select

    Sheets("??lem Havuzu").Select

    ActiveWindow.SmallScroll Down:=-57

Dim i As Integer

Dim ssatir As Long, sdoluhcr As Long

For i = 1 To Sheets.Count

    Sheets(i).Select

ssatir = Cells.Find(What:="*", after:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

sdoluhcr = Cells.Find("*", , , , xlByColumns, xlPrevious).Column

Range(Cells(1, 1), Cells(ssatir, sdoluhcr)).Borders.LineStyle = xlContinuous

Next

End Sub
[/CODE]
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst