kopieren naar een ander sheet met check

[robhor]

Hallo

probeer nu al een tijdje om met VB het volgende voor elkaar te krijgen met for/next:

Sheet 1 bevat kolommen
Nummer, datum, status, referentie, remark

Sheet 2 heeft dezelfde opmaak.

Nu staan er in sheet 1 al een aantal items en ik wil dat Vb
checkt met een macro of alle aanwezige nummers van sheet 1 reeds in sheet 2 staan.
Zoja, dan moet hij de regel met dit nummer met laatste info overschrijven.
Zo niet, dan moet hij op een lege regel de info toevoegen

VB kopiert nu alles.

Weet iemand hoe ik dit voor elkaar kan krijgen?

Alvast bedankt

 

[beheer25]

Ik vermoed dat je hier iets met de vlookup functie uit excel zou moeten kunnen doen.

Hoe ziet je code er nu uit?


Grtz,

 

[robhor]

Bedankt voor je hulp :thumb:

tot nog toe heb ik:
Sub Macro4()
'
Dim c As Object
Dim check1 As Object

step1 = 1
For step1 = 2 To 16000
If Cells(step1, 6).Value = "" Then
step1 = 16000
Else
If Cells(step1, 6).Value <> "" Then
step1 = 16000
Else
check1 = Cells(step1, 6).Value
var_found = ""
End If
With Worksheets("MASTER").Range("F2:F16000")
Set c = .Find(check1, LookIn:=xlValues)
End With
If Cells(step1, 6).Value = check1 Then
???????
Else
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("MASTER").Select
ActiveSheet.Paste
End If
End If
Next step1
End Sub

Hierbij is Cell(step1,6) dus de nummer kolom waarbij VB
elke regel moet checken.
Nu weet ik niet wat ik op de plaats van de vraagtekens moet zetten om VB over de regel met dezelfde waarde heen te laten kopieren.
Of de rest dan goed werkt weet ik ook nog niet omdat hij tot nu toe hierop blijft hangen.

Kun je hier iets mee?

Thnkx

 

[beheer25]

De code is redelijk specifiek voor de opmaak van je werkblad. Heb je de mogelijkheid het werkblad op het forum te plaatsen?


Grtz,

 

[robhor]

zie attached. Het gaat om mod 2. Mod 4 is opmaak sheet "monday"

De info in dit sheet veranderd met de dag van de week
Het Containernummer in kolom F is dan de selectiecriteria.
Macro moet er dus voor zorgen dat hij checkt of elk containernummer in sheet "monday" in de "master" sheet voorkomt.
Zo niet, dan moet macro de info van gehele regel
als nieuwe regel op eerste lege row in "master" sheet plaatsen.
Zo ja, dan moet macro de info in het "master" sheet
overschrijven met de info in "monday sheet"

Thanks

 

[beheer25]

Attachement is niet meegekomen. Pak em even in als zip filetje, dan gaat het denk ik wel. Mag ook niet groter dan 100 kB zijn.


Grtz,

 

[robhor]

Hi

geprobeerd maar hij pakt hem niet. File is zipped maar
nog 155 kb

mvg