makroyu ilgili sayfada çalıştırma

Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Kullanmış olduğunuz makroyu eklemeniz mümkün mü?
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
Kod:
Sub deneme()
[a3:l3000].Sort Key1:=[ı3]

End Sub
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
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ı:

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

End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
Sayın Ayhan:

Kod:
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...

Kod:
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...
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
yanlış yazdım...
 
Üst