paremeter for overskrive linje i excel darabase

efter worksheet(\"ark1).select indsæt

checktal = Worksheets(\"TILBUDSARK\").Range(\"BA3\")
Range(\"A2\").Activate
For a = 2 To Range(\"A65536\").End(xlUp).Row
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
    If ActiveCell = checktal Then
      test = MsgBox(\"Dublet. Ønsker du at overskrive?\", vbYesNo)
      felt = ActiveCell.Offset(-1, 0).Address
    Exit For
    End If
Next a
If test = vbYes Then
  Range(felt).Select
Else: Range(\"A65536\").End(xlUp).Select
End If

derefter slettes linien
range(\"A65536),end(xlup).select

nu ser koden sådan ud, og den virker ikke jeg får fejl error 09

hovsa hvor blev den af,? jeg prøver igen
Application.ScreenUpdating = False
  Workbooks.Open Filename:=\"C:\\WINDOWS\\Skrivebord\\Database Tilbud.xls\"
  Worksheets(\"Ark1\").Select
  checktal = Worksheets(\"TILBUDSARK\").Range(\"BA3\")
  Range(\"A2\").Activate
  For a = 2 To Range(\"A65536\").End(xlUp).Row
  ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
  If ActiveCell = checktal Then
  test = MsgBox(\"Dublet. Ønsker du at overskrive?\", vbYesNo)
  felt = ActiveCell.Offset(-1, 0).Address
Exit For
End If
Next a
If test = vbYes Then
  Range(felt).Select
Else: Range(\"A65536\").End(xlUp).Select
End If
iRow = ActiveCell.Row
  Windows(\"Ny Tilbud  3000 6000.xls\").Activate
  Sheets(\"TILBUDSARK\").Select
For Each rCell In Worksheets(\"TILBUDSARK\").Range(\"BA3:BA34\")
  iX = iX + 1
  Windows(\"Database Tilbud.xls\").Activate
  Worksheets(\"Ark1\").Cells(iRow + 1, iX) = rCell
Next rCell
  ActiveWindow.Close SaveChanges:=True
  Windows(\"Ny Tilbud  3000 6000.xls\").Activate
  Worksheets(\"TILBUDSARK\").Select

Lillejens > opgiv lige hvilken linie det går galt i.
Prøv også at indsætte nedenstående og se om det er bedre  Dim testomr As Range
    Set testomr = Range(\"A2:\" & Range(\"A65536\").End(xlUp).Address)
    For Each C In testomr.Cells
        If Range(\"A1\").Value = C.Value Then
            test = MsgBox(\"Dublet. Ønsker du at overskrive?\", vbYesNo)
            felt = C.Offset(-1, 0).Address
            Exit For
        End If
    Next C
    If test = vbYes Then
      Range(felt).Select
    Else: Range(\"A65536\").End(xlUp).Select
    End If

Hej Bak det er denne linje i den første du sendte  \'checktal = Worksheets(\"TILBUDSARK\").Range(\"BA3\")\' den anden kode kører, men den sætter gerne ind med samme nummer

OK. jeg tror jeg er med
vi skal lige have aktiveret det vindue vi skal hente checktal fra.

Windows(\"Ny Tilbud  3000 6000.xls\").Activate
checktal = Worksheets(\"TILBUDSARK\").Range(\"BA3\")
Workbooks.Open Filename:=\"C:\\WINDOWS\\Skrivebord\\Database Tilbud.xls\"
  Worksheets(\"Ark1\").Select

Range(\"A2\").Activate
For a = 2 To Range(\"A65536\").End(xlUp).Row
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
    If ActiveCell = checktal Then
      test = MsgBox(\"Dublet. Ønsker du at overskrive?\", vbYesNo)
      felt = ActiveCell.Offset(-1, 0).Address
    Exit For
    End If
Next a
If test = vbYes Then
  Range(felt).Select
Else: Range(\"A65536\").End(xlUp).Select
End If

Hej Bak det bliver ved med at drille jeghar sendt filerne til dig

tusind tak nu virker det