Aynı makroyu farklı sheetlerde kullanmak

[Jeeday]

elimde 5 tane sheet'ten oluşan bir dosya var. Her bir sheette bir şirketin cari hesabı tutuluyor. Sheet1 için 2 tane makro kaydettim. 1. makro ile cari ekstreyi fatura numarasına göre sıralattırıyorum. 2. makro ile de fatura tarihine göre. 2 tane butona ayarladım, isteğe göre makroyu kullanıyorum. Sorun şu: aynı makroyu diğer sheetlere kopyaladığımda ve çalıştırdığımda sadece sheet1de değişiklik yapıyor. Her sheet için farklı 2 tane makro mu kaydetmem gerek, yoksa bunun daha kısa bir yolu var mı???

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Kullandığınız kodlarıda buraya yazınız.
Örneğin;

[B]sheets("sayfa1").[/B]range("a1")="Excel"

şeklinde olan kodların aşağıdaki şekle gelmesi gerekiyor.

range("a1")="Excel"

. . .

 

[Murat OSMA]

Örneğin; Sheets("Sayfa1").Range("A1").Value yerine, ActiveSheet.Range("A1").Value yazın...

 

[Jeeday]

Sub FATURA()
'
' FATURA Macro
'

'
Range("A4:F189").Select
ActiveWorkbook.Worksheets("EUROTEX").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("EUROTEX").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("EUROTEX").Sort
.SetRange Range("A4:F189")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A4").Select
End Sub
Sub TARİH()
'
' TARİH Macro
'

'
Range("A4:F189").Select
Range("F4").Activate
ActiveWorkbook.Worksheets("EUROTEX").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("EUROTEX").Sort.SortFields.Add Key:=Range("F4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("EUROTEX").Sort
.SetRange Range("A4:F189")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B4").Select
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub FATURA()
'
' FATURA Macro
'

'
Range("A4:F189").Select
ActiveSheet.Sort.SortFiel ds.Clear
ActiveSheet.Sort.SortFiel ds.Add, Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A4:F189")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A4").Select
End Sub
Sub TARİH()
'
' TARİH Macro
'

'
Range("A4:F189").Select
Range("F4").Activate
ActiveSheet.Sort.SortFiel ds.Clear
ActiveSheet.Sort.SortFiel ds.Add, Key:=Range("F4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A4:F189")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B4").Select
End Sub

. . .

 

[Jeeday]

Teşekkürler işe yaradı...
Son olarak bir iki şey daha rica edeceğim... Dosyanın içinde yazıyor....

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()

bir = InputBox("Yeni Sayfanın Adı Ne Olsun ? ", _
"Başlık")

    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = bir
    ActiveSheet.Range("C1:G1") = bir
    Range("B4:E300").ClearContents
    
End Sub

. . .