Kaan bnogen hjælpe ?

Du har 2 Next Y ?
Hvis den skal tælle 1 op der, så prøv med Y = Y +1 eller inc(y) jeg er ret sikker på den ikke går med Next Y to steder

Hej Xenu.

Jeg ved det godt, men vil gerne have den til at gå til næste, hvis der ikke er nogen match, mellem søgningen i tekst strengen.

Ved ikke lige hvordan den fikses.

Steen

De her linjer ville jeg tage ud i en:

Sub Update_this()

Rs4.Fields("Hour") = Rs4.Fields("Hour") - Range("H" & Y).Value
Rs4.Fields("Timer_Forb") = Rs4.Fields("Timer_Forb") + Range("H" & Y).Value

.Update

end sub

og så kalde:

If InStr(1, Range("B" & Y).Value, "Fremstilling") > 1 Then Update_This()

Glem min syntax :-) dit problem er at du bruger GoTo - så opstår disse mentale blokeringer. Der skal mere struktur i koden ved at bruge subrutiner.

Hej 'Xenu.

Takker for dit indlæg, og kan godt se hvad du vil, for det kan næsten ikke lade sig gøre med den opsætning jeg har sat op.

Tanken er at rutinen skal læse de linjer der er i en faktura, og hvis der er timegivende udtryk, skal den både lægge til og trække fra i tabellen Timer.

Jeg vil prøve dit forslag, og se om jeg kan bikse det sammen ;)

Tak for respons
Steen

Hej Xenu.

Desværre fik jeg det ikke til at virke. Der må da være en måde at kigge rækkerne 19 til 45 igennem om der står noget speciel tekst, og i givet fald, skrive en optælling til databasen.

Men, tak for dit input i tråden. :-)

Måske noget i denne still?

****************************************
For Y = 19 To 45
  .AddNew
  If InStr(1, Range("B" & Y).Value, "Fremstilling") > 1 Then Timetaller
  If InStr(1, Range("B" & Y).Value, "Time") > 1 Then Timetaller
  If InStr(1, Range("B" & Y).Value, "Fejlretning") > 1 Then Timetaller
  If InStr(1, Range("B" & Y).Value, "Stemning") > 1 Then Timetaller
  If InStr(1, Range("B" & Y).Value, "Overtid") > 1 Then Timetaller
       
Next Y

bla. bla bla.
****************************************

sub TimeTaller()
  With Rs4
  .Fields("Hour") = .Fields("Hour") - Range("H" & Y).Value
  .Fields("Timer_Forb") = .Fields("Timer_Forb") + Range("H" & Y).Value
  .Update
  end with
end sub

Vi skal lige have Y med. Noget i denne stil:


****************************************
For Y = 19 To 45
  .AddNew
  If InStr(1, Range("B" & Y).Value, "Fremstilling") > 1 Then Timetaller(Y)
  If InStr(1, Range("B" & Y).Value, "Time") > 1 Then Timetaller(Y)
  If InStr(1, Range("B" & Y).Value, "Fejlretning") > 1 Then Timetaller(Y)
  If InStr(1, Range("B" & Y).Value, "Stemning") > 1 Then Timetaller(Y)
  If InStr(1, Range("B" & Y).Value, "Overtid") > 1 Then Timetaller(Y)
       
Next Y

bla. bla bla.
****************************************

sub TimeTaller(Dim Y as integer)
  With Rs4
  .Fields("Hour") = .Fields("Hour") - Range("H" & Y).Value
  .Fields("Timer_Forb") = .Fields("Timer_Forb") + Range("H" & Y).Value
  .Update
  end with
end sub

With Rs4
.AddNew
.Fields("Adag") = Date

  For Y = 19 To 45
        .AddNew
      tmpS = Range("B" & Y).Value

      If ( InStr(1, tmpS, "Fremstilling") > 1 ) OR
          ( InStr(1, tmpS, "Time") > 1 ) OR
          ( InStr(1, tmpS, "Fejlretning") > 1 ) OR
          ( InStr(1, tmpS, "Stemning") > 1 ) OR
          ( InStr(1, tmpS, "Overtid") > 1 )
      Then
        .Fields("Hour") = .Fields("Hour") - tmpS
        .Fields("Timer_Forb") = .Fields("Timer_Forb") + tmpS       
        .Update
      end if
       
  Next Y
End With

Aha Xenu, tror jeg har den i den sidste, send det som svar, så får du pointene ;)

Hav en fantastisk dag.

Cool :-)