Kopier rækker fra ét ark til andet hvis kriterie opfyldt
Kære eksperter,jeg har brug for hjælp :)Jeg har ikke rodet meget med VBA og jeg kæmper i øjeblikket med en ganske simpel opgave, jeg slet ikke kan løse. Jeg har forsøgt flere løsninger selv uden held og kunne meget godt bruge jeres input.
Min usecase er som følger.
Jeg har to ark ( i samme workbook ).
Ark_1 bliver dagligt opdateret og populeret med rækker ( lad os kalde det rådata ). Nogle dage bliver der ikke tilføjet nogle til Ark_1.
Ark_2 skal indeholde samme informationer, men jeg kopiere dem fra Ark_1.
I første omgang kan jeg godt kopiere rækker fra Ark_1 til Ark_2 via eksempelvis:
Workbooks("Mit_Excel.xlsm").Worksheets("Ark_2").Range("B2: B1500").value = Workbooks("Mit_Excel.xlsm").Worksheets("Ark_1").Range("E5: E1500").value.
Her kører jeg så kolonner igennem og flytter alle rækker.
Mit problem opstår når jeg kommer på andendagen og skal overføre data.
Jeg ønsker ikke at overskrive de alleredeeksisterende rækker i Ark_2.
Derfor har jeg forsøgt at løbe mine rækker igennem på Ark_1 ( første kolonne er unik og denne benytter jeg til at se om er i Ark_2 ).
Det gør jeg ved at løbe Ark_1 igennem og spørge om samme værdi er i en kolonnei Ark_2.
Det er alt sammen OK indtil videre.
Men jeg kan ikke hitte ud af min løsning videre herfra. Jeg får svar på om min nøgle/værdi eksitere i det andet ark.
Men hvordan får jeg kopieret en række til Ark_2 simpelt uden at bruge min snørklede og ikke løste fremgangsmåde. Hvis jeg får svar tilbage på at den ikke eksistere, ønsker jeg at kopiere denne til det andet ark.
I samme omgang skal det siges at det ikke er en hel række jeg kopiere. Det er kun nogle kolonner der kopieres, eksempelvis colonne C, B, E.
I realiteten ønsker jeg faktisk bare at overføre de nye rækker der er tilkommet Ark_1 til Ark_2.
Håber der er nogle der har en løsning jeg kan få lidt hjælp til at komme videre med.
Mvh
Daniel