VBA Makro

Question

Birden çok çalışma sayfasında işlevleri gerçekleştiren tek bir makroyu çalıştırmaya çalışıyorum. Diyelim ki ben o adım adım gerçekleştirmek istediğiniz işlevleri listeledik çalışma 4. makro düğmesini atamış diyelim:)

1 çalışma 4'te belirli hücreleri seçin ve çalışma sayfasındaki komşu hücrelere kopyalamak 4.
2 3) çalışma sayfasındaki hücrelerin aralığını silme 3 0- 3) Çalışma sayfasındaki hücrelerin CUT aralığını 2 sonra çalışma sayfası 3'e yapıştırın.
4) Ayrı bir çalışma kitabından hücrelerin aralığını alın ve çalışma sayfası 2'ye kopyalayın. Çalışma kitabının otomatik olarak yayınlanmasından dolayı bu tamamen farklı bir sorun olduğunu ve ikisini bağlamanın bir yolunu bulmam gerektiğini biliyorum.)
5) Çalışma Sayfası 4 ve Çalışma Sayfası 3'te bulunan pivot tablolarını güncelleyin.

Bunun ilk 3 işlevi hakkında yardım isterim. Mevcut kodumu aşağıya yapıştırdım.

Sub START() 

Dim sh1 As Worksheet 
Dim sh2 As Worksheet 
Dim sh3 As Worksheet 
Dim sh4 As Worksheet 

Set sh1 = ActiveWorkbook.Sheets("Brand") 
Set sh2 = ActiveWorkbook.Sheets("CurrentWeek") 
Set sh3 = ActiveWorkbook.Sheets("PriorWeek") 
Set sh4 = ActiveWorkbook.Sheets("Pivot") 

sh4.Range("B29:B30").Select 
Selection.Copy 

sh4.Range("C29").Select 
ActiveSheet.Paste 

sh3.Range("A4:AC1000").Select 
Selection.Delete 

sh2.Range("A4:AC1000").Select 
Selection.Copy 

sh3.Range("A4").Select 
ActiveSheet.Paste 

End Sub 

Çalışıyor ... ancak yalnızca belirli bir işlevi gerçekleştirmek için doğru çalışma sayfasında olduğumda çalışıyor.

Answer 1

select, selection ve activesheet kaldırarak, bu sayfayı bağımsız

Sub START() 

Dim sh1 As Worksheet 
Dim sh2 As Worksheet 
Dim sh3 As Worksheet 
Dim sh4 As Worksheet 

Set sh1 = ActiveWorkbook.Sheets("Brand") 
Set sh2 = ActiveWorkbook.Sheets("CurrentWeek") 
Set sh3 = ActiveWorkbook.Sheets("PriorWeek") 
Set sh4 = ActiveWorkbook.Sheets("Pivot") 

sh4.Range("B29:B30").Copy sh4.Range("C29") 

sh3.Range("A4:AC1000").Delete 

sh2.Range("A4:AC1000").Copy sh3.Range("A4") 

End Sub 

Answer 2

Harika bir başlangıç ​​için yola koyuldunuz. Sadece biraz daha arınma ve sahip olacaksınız.

Temel olarak, en azından bu durumda .Select aralığınıza (sayfalar, çalışma kitapları vb.) Gerek yoktur. Doğrudan bunlarla çalışabilir ve Copy numaralı telefonu kullanarak kopyalanacakları yeri temin edebilirsiniz. Aşağıda

bakınız kodu:

Sub START() 

Dim sh1 As Worksheet 
Dim sh2 As Worksheet 
Dim sh3 As Worksheet 
Dim sh4 As Worksheet 
Dim wkb As Workbook 

Set wkb = Workbooks("wkbName") '-> best to call workbooks by name, as opposed to "ActiveWorkbook", also best to set it to object 

With wkb '-> now we can work with this object directly and succinctly 

    Set sh1 = .Sheets("Brand") 
    Set sh2 = .Sheets("CurrentWeek") 
    Set sh3 = .Sheets("PriorWeek") 
    Set sh4 = .Sheets("Pivot") 

    sh4.Range("B29:B30").Copy sh4.Range("C29") 

    'sh3.Range("A4:AC1000").Delete -> you don't need this if you are overwritting it 

    sh2.Range("A4:AC1000").Copy sh3.Range("A4") 

End With 

End Sub 

Answer 3

Sub START() 

Sheet("Pivot").Range("B29:B30").Copy Sheet("Pivot").Range("C29") 
Sheet("CurrentWeek").Range("A4:AC1000").Copy Sheet("PriorWeek").Range("A4") 

End Sub 

Answer 4

sayfaları ("isim1 yapmak mümkün olacak ") .range (" B29: B30 ") kopya Hedef: = sayfalar (" ad2 ") aralığı (" C29 ")

Sayfa adları ad1 ve name2 olduğu varsayılarak birinden diğerine kopyalanır.