• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kopie van informatie op basis van overeenkomende celwaarde

Status
Niet open voor verdere reacties.
P

pepijndb

Gebruiker
Lid geworden
9 jun 2017
Berichten
17
Beste Excel-gebruikers,

De titel zegt het al, wat ik zoek is een kopie van een aantal cellen naar een andere rij op basis van de overeenkomende titel van de cellen.
Zie het voorbeeld bestand!
Zelf kom ik hier niet helemaal uit, vooral door VLOOKUP :S

Met vriendelijke groet,

Pepijndb

Bekijk bijlage voorbeeldbestand.xlsx
 
Laatst bewerkt:
Zo goed?
 

Bijlagen

  • overnemen(cobbe).xlsx
    10,9 KB · Weergaven: 31
Laatst bewerkt:
Beste Cobbe,

Hartelijk dank voor je hulp. Het is echter wel de bedoeling dat dit via een macro wordt geschreven, omdat dit hard-copy waardes moeten worden..
Zou dit mogelijk zijn?

MVG,

Pepijndb
 
Goed genoeg?
 

Bijlagen

  • overnemen(cobbe).xlsb
    14 KB · Weergaven: 31
Laatst bewerkt:
Cobbe zei:
Goed genoeg?
Klik om te vergroten...

Helaas niet precies wat ik zoek. De gegevens komen uit een database en worden geplakt in de meest linker cel. Vervolgensm oeten deze via een macro met een klik worden overgenomen naar de rij die dezelfde datum heeft.
Kan je hier iets mee? :)

MVG
 
Zo?

Code: 
Sub VenA()
Dim f As Range
  With Sheets("Blad1")
    Set f = .Cells(17, 8).Resize(, 12).Find(.Cells(17, 1), , xlValues, xlWhole)
    If Not f Is Nothing Then f.Offset(1).Resize(14).Value = .Cells(18, 1).Resize(14).Value
  End With
End Sub
 
Deze snap ik niet.
De gele kolom moest toch in de kolom met dezelfde datum komen als harde waarden.

Wat klopt dan niet aan mijn oplossing?
 

Bijlagen

  • overnemen(cobbe).xlsb
    14 KB · Weergaven: 31
Cobbe zei:
Deze snap ik niet.
De gele kolom moest toch in de kolom met dezelfde datum komen als harde waarden.

Wat klopt dan niet aan mijn oplossing?
Klik om te vergroten...

Het moet dus niet via een keuzelijst maar via een knop. Het gaat erom dat in de eerste kolom een datum staat, dat vervolgens als ik op de knop druk een macro deze waardes plakt in een cel met de overeenkomstige datum
 
Dan blijft het toch hetzelfde, enkel de code achter een knop hangen:

Code: 
Sub cobbe()
On Error GoTo oeps
With Application
 .EnableEvents = False
   Range("A17:A31").Copy Cells(17, Range("H17:S17").Find(Range("A17")).Column)
oeps:
 .EnableEvents = True
End With
End Sub
 
Cobbe zei:
Dan blijft het toch hetzelfde, enkel de code achter een knop hangen:

Code: 
Sub cobbe()
On Error GoTo oeps
With Application
 .EnableEvents = False
   Range("A17:A31").Copy Cells(17, Range("H17:S17").Find(Range("A17")).Column)
oeps:
 .EnableEvents = True
End With
End Sub
Klik om te vergroten...

Wanneer ik deze wil gebruiken werkt hij niet :s
 
Wil je svp niet quoten?

Heb je de code in #6 ook geprobeerd? En als er iets niet werkt is het handig om er bij te vermelden wat er niet werkt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan