Makro VBA w wielu arkuszach roboczych

Question

Próbuję uruchomić pojedyncze makro, które wykonuje funkcje na wielu arkuszach. Powiedzmy, że przypisano przycisku makra na arkuszu 4. Mam wymienione funkcje chcę go wykonać krok po kroku:

1) Wybierz pewne komórki w arkuszu, 4 i skopiować do sąsiednich komórek w arkuszu 4.
2) usuń zakres komórek w arkuszu kalkulacyjnym 3.
3) Skróć zakres komórek w arkuszu 2, a następnie wklej ten zakres komórek do arkusza roboczego 3.
4) Weź zakres komórek z oddzielnego skoroszytu i skopiuj do arkusza roboczego 2. (I wiem, że jest to zupełnie inny problem, ponieważ skoroszyt jest automatycznie publikowany i będę musiał znaleźć sposób na połączenie dwóch.)
5) Aktualizuj tabele przestawne znajdujące się w Arkuszu 4 i arkuszu roboczym 3.

Bardzo chciałbym pomóc w pierwszych 3 funkcjach tego. Wkleiłem mój obecny kod poniżej.

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 

to działa ... ale to działa tylko wtedy, gdy jestem we właściwym arkuszu do wykonywania określonej funkcji.

Answer 1

Usuwając select Z selection i activesheet, będzie w stanie dokonać tego arkusza niezależne

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

Jesteś na świetnym początku. Tylko trochę więcej wyrafinowania i będziesz go miał.

Zasadniczo, nie ma potrzeby, aby .Select swoje zakresy (arkusze, zeszyty itp.), Przynajmniej w tym przypadku. Możesz pracować bezpośrednio z nimi i korzystając z Copy podać miejsce docelowe, w którym zostaną skopiowane.

patrz kod poniżej:

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

arkuszy ("NAME1 ") .range (" B29: B30 ") kopiowanie Miejsce docelowe: = arkusze (" nazwa2 "). zakres (" C29 ")

Powoduje kopiowanie z jednego arkusza na drugi przy założeniu, że nazwa arkusza to nazwa1 i nazwa2