Find tilsvarende x i excel database og udskift den

kan du ikke paste koden du kopierer med nu
hvor mange rækker har du i databasen ca. ?

Jo det kan jeg godt, får den i en forkortet version. Ialt er der vel omkring 100 linje.

Dim stel As String
Dim brand As String
Dim model As String
Dim navn As String

stel = Worksheets("Udfaktuering").Range("I25")
brand = 1
model = Worksheets("Udfaktuering").Range("b25")
navn = Worksheets("Udfaktuering").Range("b23")

Workbooks.Open Filename:="Y:\Opgaver\Projekt\Export.xls"


Range("a2").Select
If Range("a2").Value = "" Then
Range("a2").Activate
Else
Range("a2").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

With ActiveCell
.Value = stel
.Offset(0, 1).Value = brand
.Offset(0, 2).Value = model
.Offset(0, 3).Value = navn


End With

    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Ups antal linjer i databasen, svarede lidt forkert der, den bliver hele tiden større da der kommer nye til hver dag.

Grunden til at den skal checke og overskrive er at der kun må eksistere et stel i databasen, denne ligger i kolonne A i databasen.

prøv:

Dim stel As String
Dim brand As String
Dim model As String
Dim navn As String

stel = Worksheets("Udfaktuering").Range("I25")
brand = 1
model = Worksheets("Udfaktuering").Range("b25")
navn = Worksheets("Udfaktuering").Range("b23")

Workbooks.Open Filename:="Y:\Opgaver\Projekt\Export.xls"
Sheets(1).Activate '*
Range("A2").Select '*
On Error GoTo NoMatch '*
Cells.Find(What:=stel, After:=[A1], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate '*

GoTo ud '*
NoMatch: '*

Range("a2").Select
If Range("a2").Value = "" Then
Range("a2").Activate
Else
Range("a2").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

ud:

With ActiveCell
.Value = stel
.Offset(0, 1).Value = brand
.Offset(0, 2).Value = model
.Offset(0, 3).Value = navn

End With
  ActiveWorkbook.Save
  ActiveWindow.Close
End Sub

Fornemt og det virkede ved første forsøg.

Kom med et svar og du får dine point.

Og tak for hjælpen. :-)

OK VELBEKOM