Toon posts:

naam zoeken in excel en kopiëren naar ander weekblad

Pagina: 1
Acties:

Onderwerpen

Vraag


  • DaanBaanvinger
  • Registratie: Januari 2021
  • Laatst online: 12-03-2021
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
...

Alle reacties


  • g0tanks
  • Registratie: Oktober 2008
  • Laatst online: 16:17

g0tanks

Moderator CSA
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.

Ultrawide gaming setup: AMD Ryzen 7 2700X | NVIDIA GeForce RTX 2080 | Dell Alienware AW3418DW


  • DaanBaanvinger
  • Registratie: Januari 2021
  • Laatst online: 12-03-2021
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
  • Registratie: Oktober 2008
  • Laatst online: 16:17

g0tanks

Moderator CSA
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:
1
Option Explicit

Ultrawide gaming setup: AMD Ryzen 7 2700X | NVIDIA GeForce RTX 2080 | Dell Alienware AW3418DW


  • Patrick_6369
  • Registratie: April 2010
  • Laatst online: 11-08 22:10
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:
1
2
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]

Hier zou een handtekening kunnen staan.


  • DaanBaanvinger
  • Registratie: Januari 2021
  • Laatst online: 12-03-2021
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
  • Registratie: Mei 2013
  • Laatst online: 12-08 12:54

m-vw

GEZOCHT: De Kluts

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:
1
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.

Garmin FR245M + HRM-RUN

Pagina: 1



Nintendo Switch (OLED model) Apple iPhone SE (2022) LG G1 Google Pixel 6 Call of Duty: Vanguard Samsung Galaxy S22 Garmin fēnix 7 Nintendo Switch Lite

Tweakers vormt samen met Hardware Info, AutoTrack, Gaspedaal.nl, Nationale Vacaturebank, Intermediair en Independer DPG Online Services B.V.
Alle rechten voorbehouden © 1998 - 2022 Hosting door True

Tweakers maakt gebruik van cookies

Tweakers plaatst functionele en analytische cookies voor het functioneren van de website en het verbeteren van de website-ervaring. Deze cookies zijn noodzakelijk. Om op Tweakers relevantere advertenties te tonen en om ingesloten content van derden te tonen (bijvoorbeeld video's), vragen we je toestemming. Via ingesloten content kunnen derde partijen diensten leveren en verbeteren, bezoekersstatistieken bijhouden, gepersonaliseerde content tonen, gerichte advertenties tonen en gebruikersprofielen opbouwen. Hiervoor worden apparaatgegevens, IP-adres, geolocatie en surfgedrag vastgelegd.

Meer informatie vind je in ons cookiebeleid.

Sluiten

Toestemming beheren

Hieronder kun je per doeleinde of partij toestemming geven of intrekken. Meer informatie vind je in ons cookiebeleid.

Functioneel en analytisch

Deze cookies zijn noodzakelijk voor het functioneren van de website en het verbeteren van de website-ervaring. Klik op het informatie-icoon voor meer informatie. Meer details

janee

    Relevantere advertenties

    Dit beperkt het aantal keer dat dezelfde advertentie getoond wordt (frequency capping) en maakt het mogelijk om binnen Tweakers contextuele advertenties te tonen op basis van pagina's die je hebt bezocht. Meer details

    Tweakers genereert een willekeurige unieke code als identifier. Deze data wordt niet gedeeld met adverteerders of andere derde partijen en je kunt niet buiten Tweakers gevolgd worden. Indien je bent ingelogd, wordt deze identifier gekoppeld aan je account. Indien je niet bent ingelogd, wordt deze identifier gekoppeld aan je sessie die maximaal 4 maanden actief blijft. Je kunt deze toestemming te allen tijde intrekken.

    Ingesloten content van derden

    Deze cookies kunnen door derde partijen geplaatst worden via ingesloten content. Klik op het informatie-icoon voor meer informatie over de verwerkingsdoeleinden. Meer details

    janee