Farklı sayfada kod çalıştırma

[kemalist]

Benim yapmak istediğm aşağıdaki kodu Sayfa2 için Sayfa1 den çalıştırmak. bunun için kod üzerinde nasıl bi değişiklik yapabiliriz?

Sub SIRALA()
Application.Calculation = xlCalculationManual 'hızlandırmak için

Range("B4:K65536").Sort key1:=Range("C4"), ORDER1:=xlDescending
Range("C3:C378").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00%"

Range("P4:Y65536").Sort key1:=Range("Q4"), ORDER1:=xlDescending
Range("Q3:Q378").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00%"

End Sub

 

[Mahir64]

Merhaba,

kodunuzun başına
Sheets("Sayfa1").Select ekleseniz işini görmez mi?

 

[kemalist]

denedim fakat alt satırlarada yapmam gerekir fakat çalıştıramadım

 

[meydan11]

arkadaslar bir ricam olacak daha önce ben excel kullanıyordum 2003 şimdi 2007 kullanıyorum benim işim bodrolarla filan ilgili olduğu için sizin biginiz varmı diye sorunumu paylaşma ihtiyacı hissettim sorunum: 2003 te araçlarda göründüğü gibi hesapla seçeneği vardı bu şekilde hesaplama 2007 excelded varmı ben bulmadım yardım ederseniz sevinirim kolay gelsin

 

[meydan11]

kemalist kardeş 2003 te araçlar menüsünde kutucuk var göründüğü gibi işlem yap diye o zaman exceldedi verileri tabloda nasıl görüyorsa öğle işlem yapıyor ama 2007 de göremedim ben

 

[kemalist]

arkadaşım konunu başka bir başlık altında örnek dosya ile sorarmısın?konuyu bölüyorsun.

 

[kemalist]

Benim yapmak istediğm aşağıdaki kodu Sayfa2 için Sayfa1 den çalıştırmak. bunun için kod üzerinde nasıl bi değişiklik yapabiliriz?

Sub SIRALA()
Application.Calculation = xlCalculationManual 'hızlandırmak için

Range("B4:K65536").Sort key1:=Range("C4"), ORDER1:=xlDescending
Range("C3:C378").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00%"

Range("P4:Y65536").Sort key1:=Range("Q4"), ORDER1:=xlDescending
Range("Q3:Q378").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00%"

End Sub

 

[Ömer]

denedim fakat alt satırlarada yapmam gerekir fakat çalıştıramadım

Merhaba,

Mahir bey'in belirttiği gibi çözülmesi gerekirdi.

Satırlardan kastınız nedir. Örnek dosya ekleyerek detaylı açıklarmısınız.

Not: Soru başlıklarınızı genel değil, konu içeriğini ifade edecek şekilde belirlemeye özen göstermenizi rica ederim.

.

 

[kemalist]

ilgili dosya ektedir

ilgili dosya ektedir.yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

ilgili dosya ektedir.yardımlarınız için şimdiden teşekkür ederim.

Bu şekilde deneyin.

Sub SIRALA()
 
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        
        Sheets("PERFORMANS").Select
        Range("B4:K65536").Sort Key1:=Range("C4")
        Range("C3:C378").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.NumberFormat = "0.00%"
        Range("P4:Y65536").Sort Key1:=Range("Q4")
        Range("Q3:Q378").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.NumberFormat = "0.00%"
        Sheets("ANA SAYFA").Select
        
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
 
End Sub

.

 

[kemalist]

ömer hocam örnek dosya üzerinde değişikliği yapabilirmisiniz?

 

[Ömer]

Sadece sizin yazdığınız koda diğer sayfayla ilgili küçük ilave yaptım. Diğer kodun yerine bu kodu module ekleyip çalıştıracaksınız. Kodu değiştirip farklı bir uygulama yapmadım.

 

[halit3]

ilgili dosya ektedir.yardımlarınız için şimdiden teşekkür ederim.

Bunu denermisiniz.

Sub SIRALA()
Sheets("PERFORMANS").Range("B4:K65536").Sort key1:=Sheets("PERFORMANS").Range("C4"), ORDER1:=xlDescending
Sheets("PERFORMANS").Range("c3:c378").NumberFormat = "0.00%"
Sheets("PERFORMANS").Range("P4:Y65536").Sort key1:=Sheets("PERFORMANS").Range("Q4"), ORDER1:=xlDescending
Sheets("PERFORMANS").Range("Q3:Q378").NumberFormat = "0.00%"
End Sub