makroyu ilgili sayfada çalıştırma

[oguz demirbas]

mrb

Bir dosyada oluşturduğum makrolar o an açık olan bütün excel sayfalarını etkilemekte.Oysa oluşturduğum dosyadaki makro yalnızca o dosyada çalışsın istiyorum.

Bu durumu nasıl düzeltebilirim?

teşekkürler....

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz makroyu eklemeniz mümkün mü?

 

[oguz demirbas]

Sub deneme()
[a3:l3000].Sort Key1:=[ı3]

End Sub

 

[oguz demirbas]

Sub dene()
'
' dene Makro
' Makro M. Oğuz DEMİRBAŞ tarafından 25.07.2006 tarihinde kaydedildi.
'

On Error Resume Next
    Range("K3:K3000").SpecialCells(xlCellTypeConstants).EntireRow.Delete
Call auto_open
End Sub

kitap ismi:Üretim Takip

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde çalışma kitabının ismini kontrol ederek makroyu diğer açık olan kitaplarda pasifize edebilirsiniz.

Sub Test()
If ActiveWorkbook.Name <> "Deneme.xls" Then
MsgBox "MAKRONUZ BU KİTAPTA ÇALIŞMAZ..."
Else
MsgBox "TEBRİKLER MAKRONUZU BAŞARIYLA ÇALIŞTIRDINIZ..."
End If
End Sub

 

[oguz demirbas]

sayınCOST_CONTROL,

İlginize teşekkür ederim ama bir sonuca ulaşamadım...


Yukarıdaki kodlara Üretim Takip sayfa adı nasıl eklenebilir?

 

[Korhan Ayhan]

Selamlar,

Üretim Takip sayfa adımı yoksa dosya adımı ?

 

[oguz demirbas]

mrb

dosya adı

 

[Korhan Ayhan]

Selamlar,

Bu durumda az önce vermiş olduğum kodda Deneme.xls yazan kısımı Üretim Takip.xls yaparsanız makroyu çalıştırmak istediğinizde bulunduğunuz dosyanın adı Üretim Takip değilse uyarı verecektir.

 

[oguz demirbas]

sayın COST_CONTROL,

Yazdıklarınızda haklısınız..... Ama makrolu olan dosyayı da açtığımda makronun

çalışmasını istemediğim dosyamı maalesef etkiliyor.....

Çözümün kodlara kitap adını eklemek olduğunu düşünüyorum.... O zaman kod

yalnızca o kitap çalışacaktır....

sıralama komutunu şu şekilde değiştirdim ama çalışmadı:

Sub deneme()
[Kutu!a3:l3000].Sort Key1:=[ı3]

End Sub

 

[Korhan Ayhan]

Selamlar,

Bu durumda dosyanızı görmeden bir yorum yapamıyacağım sakıncası yoksa dosyanızı eklermisiniz. Üzerinden gidelim.

 

[Seyit Tiken]

Bu kodu kendinize uyarlayıp bir deneyin. Sadece ilgili sayfada çalışıyor.
Diğer sayfalarda çalışmaz. Sayfaya farklı bir isim verilirse, diğer Çalışma Kitaplarında da çalışmaz.

Sub Düğme1_Tıklat()
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
[A1] = "Oğuz DEMİRBAŞ"
End Sub

 

[oguz demirbas]

Sayın Ayhan:

Sub deneme()
    Windows("Üretim Takip.xls").Activate
    Sheets("Kutu").Select
    Range("A3:I3000").Sort Key1:=Range("I3"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

1. ci kod için çok teşekkür ederim...

Sheets("Tarife").Select
    Range("A3:I3000").Sort Key1:=Range("I3"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

2.ci kod içinde çok teşekkür ederim...

 

[oguz demirbas]

yanlış yazdım...