Hej,

Är ny med visual Basic och behöver hjälp med ett problem som jag har.

Bakgrund:
Jag har en arbetsbok med 2 blad. Jag har en knapp i blad 1. När jag trycker på den vill jag att data i vissa förutbestämda celler i blad 1 skall kopieras till blad 2. När dessa kopierade vill jag att noll rader skall raderas i blad 2. Jag har lyckats få till kopieringen så att den fungerar men lyckas inte koppla macrot till att radera noll raderna. Jag har ett macro som fungerar om jag har knappen i blad 2 men hur får jag det att starta när jag trycker på knappen i blad 1?

Fråga:
Hur kopplar jag macrot för att radera nollrader i Blad 2 till knappen som jag har i blad 1?

Nedan finns koden som det ser ut nu. I detta format raderar den nollrader i blad 1 men jag vill radera rader i blad 2.

Private Sub CommandButton3_Click()
Worksheets("Transfer").Range("a4.b5000").ClearContents
Worksheets("Budget").Range("a13.a5000").Copy
Worksheets("Transfer").Range("a4").PasteSpecial xlPasteValues
Worksheets("Budget").Range("e13.e5000").Copy
Worksheets("Transfer").Range("b4").PasteSpecial xlPasteValues

Dim intRow
Dim intLastRow
intLastRow = Range("A65536").End(xlUp).Row


For intRow = intLastRow To 4 Step -1

Rows(intRow).Select
If Cells(intRow, 2).Value = 0 Then
Cells(intRow, 2).Select
Selection.EntireRow.Delete

End If

Next intRow

Range("A1").Select


End Sub