Definere flere ark

Sheets(Array("Ark1", "Ark4", "Ark3")).Select

Det lykkes ikke helt f.eks. hvis jeg skriver:
Set ws = Sheets(Array("Faktura - Engelsk", "Faktura - Dansk"))

Så melder den fejl 424 eller 13. - det hjælper heller ikke at .select

har du noget af din kode

fejl 424 eller 13 - jeg er nok en af de få der ikke kan alle fejlkoder udenad ;o)

Hvad er fejlbeskrivelsen?

jeg har desværre ikke adgang pt til arket, det virker som om vba.
ikke vil godkende den måde jeg vælger arkene på. Har det betydning om
der står sheet eller sheets f.eks.
Eller vender jeg lige tilbage næste onsdag, tak for hjælpen indtil videre..

Set FE = Sheets("Faktura - Engelsk")
Set FD =  Sheets("Faktura - Dansk")

FE.range("A1")= værdi
FD.range("A1")= værdi

o.s.v.

Jeg forstår ikke hvor jeg skal indsætte FE.Range osv. da min funktion ser
sådan her ud:
lLastRow = ws.Range("J" & Rows.Count).End(xlUp).Row
   
    'Kopiere sidste rækkes formel
    ActiveSheet.Cells(lLastRow, 1).Select
    Selection.Copy
    ActiveSheet.Cells(lLastRow + 1, 1).Select
    ActiveSheet.Paste

Den kan ikke finde ud af at det kun er på det aktive ark den skal kopiere
rækkerne.

Hvis række antallet altid er ens i de 2 ark, så.

Public Sub TilføjLinie()
  Sheets(Array("Faktura - Engelsk", "Faktura - Dansk")).Select ' samler de 2 ark
    Sheets("Faktura - Engelsk").Activate
    lLastRow = Range("J" & Rows.Count).End(xlUp).Row
    Range("A" & lLastRow).Select
    Selection.AutoFill Destination:=Range("A" & lLastRow & ":A" & lLastRow + 1), Type:=xlFillDefault
  Sheets("Faktura - Dansk").Select ' skiller de 2 ark ad igen
End Sub

Den kopierer formlen i A kolonnen en række ned, i begge ark.

smid et svar og få point

et svar