naam zoeken in excel en kopiëren naar ander weekblad

[DaanBaanvinger]

Mijn vraag
Hallo,

Ik ben bezig om een planning in excel te automatiseren zodat we dit automatisch in een agenda kunnen zetten (dit deel lijkt te werken). In deze planning staan door het hele werkblad namen deze name moeten gelinkt worden aan hun eigen werkblad en daar naartoe dus gekopieërd worden met de informatie die daarbij hoort.

nu is mijn vraag, hoe moet ik de code in VBA opstellen zodat ik uit het eerste werkblad 1 naam kan opzoeken en die met de info die in de 2 cellen ernaast staan en de 3 daar onder kan kopiëren naar een apart werkblad.
mocht er meer info nodig zijn hoor ik dat graag.


Relevante software en hardware die ik gebruik
...

Wat ik al gevonden of geprobeerd heb
...

[g0tanks]

DaanBaanvinger schreef op donderdag 28 januari 2021 @ 11:21:
mocht er meer info nodig zijn hoor ik dat graag.

Welkom op Tweakers.

We horen graag wat je al zelf hebt gevonden of geprobeerd. Er wordt namelijk een stukje eigen inzet en eerste aanzet verwacht. Vandaar de laatste vraag bij het openen van een nieuw topic.

[DaanBaanvinger]

ik heb inmiddels heel veel google werk gedaan en een code proberen te schrijven, dit ging wel aardig ik had het zover dat ik wel een naam kon kopiëren naar een ander werkblad al was dit allen in de eerste kolom en dit kon ook allen maar met de eerste naam die in het werkblad staat. ik heb dus een aantal pogingen gedaan maar het wil nog niet helemaal lukken zoals het zou moeten.

[g0tanks]

DaanBaanvinger schreef op donderdag 28 januari 2021 @ 11:54:
ik heb inmiddels heel veel google werk gedaan en een code proberen te schrijven, dit ging wel aardig ik had het zover dat ik wel een naam kon kopiëren naar een ander werkblad al was dit allen in de eerste kolom en dit kon ook allen maar met de eerste naam die in het werkblad staat. ik heb dus een aantal pogingen gedaan maar het wil nog niet helemaal lukken zoals het zou moeten.

Zou je dan kunnen delen wat voor je code je al hebt? Dat lijkt mij een goed startpunt van waaruit we verder kunnen denken.

De VBA-code kan je tussen [code]-tags zetten zodat het mooi leesbaar is:

code:

Option Explicit

[Patrick_6369]

Als je nu eens de code post die je al geschreven hebt, dan kan hier iemand met kennis van VBA (ik ben daar niet zo bedreven in) misschien wel aangeven waar je iets zou moeten aanpassen. Iemand die je wil helpen zou nu namelijk vanaf nul moeten beginnen - en dat werpt misschien wel een drempel op.

code:

Als je op het forum code plaatst, doe dan dat tussen de tags [ code ] 
en [ /code ], dat ziet er netjes uit.

Edit: Oeh, bijna hetzelfde als de voorganger

[ Voor 6% gewijzigd door Patrick_6369 op 28-01-2021 12:00 ]

[DaanBaanvinger]

Dit is op het moment meer proof of concept. dit werkt nu met een input box al zou dit gewoon automatisch moeten gaan.


[Sub ZoekEnCopieer()
Dim sZoekwoord As String
Dim rGevonden As Range
Dim lRegelnr As Long

sZoekwoord = Application.InputBox("Welk woord zoek je?", "John", "zoekstring", , , , , 2)

If sZoekwoord = "zoekstring" Then Exit Sub

Set rGevonden = Columns("A").Find(What:=sZoekwoord, After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)

If Not (rGevonden Is Nothing) Then
rGevonden.EntireRow.Copy Sheets("PlanningJohn").Range("A" & Rows.Count).End(xlUp).Offset(1)
Else:
MsgBox "Gezocht woord komt niet voor...", vbOKOnly, "Niet gevonden"
End If

End Sub]

Edit: ging niet helemaal zoals zou moeten maar goed

[ Voor 3% gewijzigd door DaanBaanvinger op 28-01-2021 13:10 ]

[m-vw]

Als je

[code]
Sub.....

End Sub
[/code]

gebruikt werkt het wel.

Verder is als eerste poging je code niet eens slecht.

Om te bereiken wat jij wilt moet je de range selecteren die wilt kopieren. Bijvoorbeeld "A5:C7", geeft je een blok van 3x3 cellen.

Jij zou dit kunnen proberen:

code:

Range(rGevonden.Address & ":" & rGevonden.Offset(2, 2).Address).Copy Sheets("PlanningJohn").Range("A1").End(xlDown).Offset(1,0)

Niet de mooiste code ever, maar doet volgens mij wel wat jij bedoelt.