Hej,
Jag har ett makro som ser ut enligt nedan:
Private Sub CommandButton3_Click()
Worksheets("Transfer").Range("a4.b800").ClearContents
Worksheets("Budget").Range("b11.b250").Copy
Worksheets("Transfer").Range("a4").PasteSpecial xlPasteValues
Worksheets("Budget").Range("l11.l247").Copy
Worksheets("Transfer").Range("b4").PasteSpecial xlPasteValues
Dim intRow As Long
Dim intLastRow As Long
With Worksheets("Transfer")
intLastRow = .Range("A65536").End(xlUp).Row
For intRow = intLastRow To 4 Step -1
If .Cells(intRow, 1).Value = 0 Then
.Rows(intRow).EntireRow.Delete
End If
Next intRow
End With
Range("A1").Select
With Worksheets("Transfer")
intLastRow = .Range("B65536").End(xlUp).Row
For intRow = intLastRow To 4 Step -1
If .Cells(intRow, 2).Value = 0 Then
.Rows(intRow).EntireRow.Delete
End If
Next intRow
End With
Range("B1").Select
Worksheets("Inläsnings blad").Range("a4.a800").ClearContents
Worksheets("Transfer").Range("a4.a250").Copy
Worksheets("Inläsnings blad").Range("a4").PasteSpecial xlPasteValues
Worksheets("Transfer").Range("b4.b250").Copy
Worksheets("Inläsnings blad").Range("t4").PasteSpecial xlPasteValues
MsgBox "Budgeten är överförd"
End Sub
Det har fungerat tidigare utan problem men nu får jag fel 1004 och markeringen säger att det är något fel i ovan fetmarkerade rad. Jag kör office 365 och testade att köra i en äldre variant av office. Då fungerade det. Jag gissar att det är en inställning i office som gör detta. någon som vet???