Kolom uit excel koppelen aan kollom in ander bestand

[Verwijderd]

Juist, ik heb twee excel bestanden.
De bedoeling is dat hij de email adressen met de gebruikers naam koppelt aan
De gebruikers namen in het andere excel bestand.
Copiere/plakken is geen optie.

Ongetwijveld moet dit met een macro. Iemand enig idee hoe?
Desnoods een website? Ik heb al gegoogled maar ken niks vinden. www.microsoft.com ook geprobeerd en ook daar niet geslaagt.


win2000, office 2000
Groetjes Carretje

[ Voor 4% gewijzigd door Verwijderd op 06-07-2004 11:17 ]

[Archie_T]

Zoek eens in de helpfunctie Hint: VLOOKUP en HLOOKUP

[Verwijderd]

oke tnks

edit:
Oke nu weet ik hoe ik die kolomen aan elkaar zet, maar nu nog uit andere bestanden....

Iemand nog een idee? Ik kannog steeds niks vinden en ik zoek me dood snif

[ Voor 102% gewijzigd door Verwijderd op 06-07-2004 14:16 ]

[Verwijderd]

IEMAND

[Archie_T]

Bestand openen en met VLOOKUP (of HLOOKUP) erin klikken, echt heeeeel simpel hoor..

[Verwijderd]

Snif krijg nog niet echt voor elkaar. Hij vind hem wel maar hij moet hem nu nog copieren..
(Sorry voor mijn koppigheid in me reactie er voor :S:))

Ik ga weer koppig doen. Het mag geen functie zijn. Het moet een macro een een querie zijn.
Waarom? Het gaat op twee bestanden in numemr 1 word uit gegeven en de andere bevat persoonlijke gegevens dus moet niet mee geleverd worden.

Dus een macro of querie die een rij copiert en achter de juiste gebruikers naam plakt. Het gaat om 1700 gebruikers dus met de hand is geen oplossing.

Iemand een idee... Er is verdomd wijnig over te vinden op google

Oke de volgende code heb ik tot nu toe. Voor macro

Sub Zoek_Accountnaam_Plaats_Emailadres()
'
' Zoek_Accountnaam_Plaats_Emailadres Macro
' De macro is opgenomen op 6-7-2004 door RVV.
'

'
Cells.Find(What:="tuldenp", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Windows("RVV_Addressbook_040705.xls").Activate
Selection.FindNext(After:=ActiveCell).Activate
Columns("B:B").Select
Selection.FindNext(After:=ActiveCell).Activate
Range("C1964").Select
Selection.Copy
Windows("Animo_traces.xls").Activate
Range("I2").Select
ActiveSheet.Paste
End Sub

MAaaaaaaaaaaaaaaaaar hij blrijft een error geven. dat With niet word gebruikt in regel12. Help

[ Voor 108% gewijzigd door Verwijderd op 08-07-2004 14:43 ]

[Archie_T]

Ik type het even uit mijn hoofdje een klein stukje, want ik zit nu op mijn werk, maar daar kan je volgens mij wel verder mee, als het niet lukt kan ik je wel een complete functie beschrijven, maar daar is GOT niet helemaal voor, dus probeer hier even mee verder.

code:

for each c in range(<te openen excelsheet range>)
 if c.value=A1 then
  <hier vul je je code in om alles te pasten, c.address is de huidige kolom>
 end if
next

Deze leest dus een range uit op zoekt een opgegeven waarde op.

[Verwijderd]

Dnakje! xx
Je bent mijn reddende engel
Tnks nogmaala