• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İki Excel Sayfası Açılıyor

  • Konbuyu başlatan Konbuyu başlatan likaba
  • Başlangıç tarihi Başlangıç tarihi
L

likaba

Altın Üye
Katılım
3 Mayıs 2016
Mesajlar
158
Excel Vers. ve Dili
2016 Türkçe
Merhaba Arkadaşlar,

Makro kaydını kullanarak bir çalışma oluşturdum.
Bu oluşturduğum makroyu diğer excel sayfalarıma uygulamak için bir başka excel sayfası açıtığımda yanında bir tane daha excel sayfası açılıyor.

Dosya yolu olan
C:\Users\kullanıcı\AppData\Roaming\Microsoft\Excel\Xlstart içindeki excel dosyasını sildiğimde durum düzeliyor ama benim kaydettiğim makroda silinmiş oluyor. Bu durumu nasıl çözebilirim?
 
likaba' Alıntı:
Merhaba Arkadaşlar,

Makro kaydını kullanarak bir çalışma oluşturdum.
Bu oluşturduğum makroyu diğer excel sayfalarıma uygulamak için bir başka excel sayfası açıtığımda yanında bir tane daha excel sayfası açılıyor.

Dosya yolu olan
C:\Users\kullanıcı\AppData\Roaming\Microsoft\Excel\Xlstart içindeki excel dosyasını sildiğimde durum düzeliyor ama benim kaydettiğim makroda silinmiş oluyor. Bu durumu nasıl çözebilirim?
Genişletmek için tıkla ...

Oluşturduğunuz makroyu paylaşabilir misiniz?
Daha hızlı sonuç alabilir siniz.
 
asri' Alıntı:
Oluşturduğunuz makroyu paylaşabilir misiniz?
Daha hızlı sonuç alabilir siniz.
Genişletmek için tıkla ...

Merhaba,

Makro kodu şu şekildedir,

Kod: 
Sub Bakim_A_Degeri()
'
' Bakim_A_Degeri Makro
'

'
    Columns("N:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("M:M").Select
    Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("N:N").Select
    Selection.ClearContents
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Planlanan Tr."
    Range("M1").Select
    Selection.Copy
    Range("N1").Select
    ActiveSheet.Paste
    Range("O1").Select
    ActiveSheet.Paste
    Range("P1").Select
    ActiveSheet.Paste
    Range("N1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Planlanan Tr. Ay"
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "Planlanan Tr. Yıl"
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "Planlanan Tr. 30 gün önce"
    Range("P1").Select
    Selection.Copy
    Range("Q1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Planlanan Tr. 3 gün sonra"
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""aa"")"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N7096")
    Range("N2:N7096").Select
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-2],""yyyy"")"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O7096")
    Range("O2:O7096").Select
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]-30"
    Range("P2").Select
    Selection.AutoFill Destination:=Range("P2:P7096")
    Range("P2:P7096").Select
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]+3"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:Q7096")
    Range("Q2:Q7096").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    Columns("T:U").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("S:S").Select
    Selection.TextToColumns Destination:=Range("S1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Columns("T:U").Select
    Selection.Delete Shift:=xlToLeft
    Range("S1").Select
    ActiveCell.FormulaR1C1 = "İş Emri Tr."
    Range("S2").Select
    ActiveWindow.SmallScroll ToRight:=2
    Range("AB1").Select
    ActiveCell.FormulaR1C1 = "Sonuç"
    Range("AB2").Select
    ActiveWindow.SmallScroll Down:=-6
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-9]>=RC[-12],RC[-9]<=RC[-11]),""Geçerli"",""Geçersiz"")"
    Range("AB2").Select
    Selection.AutoFill Destination:=Range("AB2:AB7096")
    Range("AB2:AB7096").Select
    ActiveWindow.SmallScroll Down:=-15
    Columns("N:Q").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("P7").Select
    Columns("P:P").EntireColumn.AutoFit
    Columns("Q:Q").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Columns("AB:AB").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("AB1").Select
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R7096C28", Version:=6).CreatePivotTable TableDestination:= _
        "Sayfa1!R3C1", TableName:="PivotTable1", DefaultVersion:=6
    Sheets("Sayfa1").Select
    Cells(3, 1).Select
    ActiveWindow.SmallScroll Down:=-9
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Planlanan Tr. Yıl")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Planlanan Tr. Ay")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Planlanan Tr. Yıl"), "Say Planlanan Tr. Yıl", _
        xlCount
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Sonuç")
        .Orientation = xlColumnField
        .Position = 1
    End With
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "Ay"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "Pay"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = "Payda"
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "Pay"
    Range("J4").Select
    ActiveCell.FormulaR1C1 = "Payda"
    Range("K4").Select
    ActiveCell.FormulaR1C1 = "Pay"
    Range("L4").Select
    ActiveCell.FormulaR1C1 = "Payda"
    Range("M4").Select
    ActiveCell.FormulaR1C1 = "Sonuç"
    Range("G3:H3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "A"
    Range("I3:J3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "B"
    Range("K3:L3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "C"
    Range("F3:M16").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Range("M5").Select
    ActiveCell.FormulaR1C1 = _
        "=((RC[-6]/RC[-5])*0.5)+((RC[-4]/RC[-3])*0.3)+((RC[-2]/RC[-1])*0.2)"
    Range("M5").Select
    Selection.NumberFormat = "0.00%"
    Selection.NumberFormat = "0.0%"
    Selection.NumberFormat = "0%"
    Selection.NumberFormat = "0.0%"
    Range("D8").Select
     With ActiveSheet.PivotTables("PivotTable1").PivotFields("Planlanan Tr. Yıl")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Planlanan Tr. Yıl"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Planlanan Tr. Yıl"). _
        CurrentPage = "2017"
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst