[Excel] getal overzetten naar andere tab

[mirelia]

Ik ben een leek met VBA en heb een tijd geleden iemand een knop voor me laten maken die een product uit een prijslijst overzette naar een factuur
Nu wil ik graag een klantnummer overzetten naar een vaste cel op de factuur vanuit een klantentab

Ik heb geprobeerd dezelfde VBAcode te gebruiken maar dat lukt maar ten dele namelijk de plek waar dit nummer moet komen lukt me niet (L17 in factuur)

Kan iemand zien wat ik moet veranderen aan onderstaande code of is het makkelijker een nieuwe te maken??

code:

Private Sub CommandButton1_Click()
    Sheets("Klanten").Select
    CellCol = [cell("col")]     'bepaal kolom van de geselecteerde cel
    ActiveCell.Offset(0, -CellCol + 1).Range("A1").Select   'Ga naar kolom A
    Client = [CELL("contents")]    'Neem deze gegevens als Klant
    Sheets("FACTUUR").Select    'ga naar blad FACTUUR
    CellRow = [cell("row")] 'bepaal rij van de geselecteerde cel
    CellCol = [cell("col")] 'bepaal kolom van de geselecteerde cel
    ActiveCell.Offset(-CellRow + 27, -CellCol + 4).Range("A1").Select 'Ga naar D29
    Selection.End(xlDown).Select    'Ga naar de laatste gevulde cel in kolom A
    ActiveCell.Offset(1, 0).Range("A1").Select  'Ga naar de rij daaronder
    ActiveCell.FormulaR1C1 = Client    'zet hiet de Klantnaam
    ActiveCell.Offset(0, -1).Range("A1").Select
End Sub

Volgens mij gaat het om deze regel:
ActiveCell.Offset(-CellRow + 27, -CellCol + 4).Range("A1").Select 'Ga naar D29
En dan moet D29 veranderd worden in L17

Een voorbeeld heb ik hier geplaatst:
http://www.xs4all.nl/~mirelia/test.xls

[mirelia]

Niemand een idee??

[Lustucru]

Om nu andermans scriptjes voor jou te gaan aanpassen is niet helemaal de bedoeling hier. Daarvoor kun je beter de maker vragen. Bovendien is wat je hier dumpt echt code van dik hout en planken.

Gebruik de macrorecorder eens om te kijken hoe de code die doet wat je wilt eruit zou kunnen zien.

Pas je iig je startpost even aan door code tussen [code][/code] tags te zetten? Dat leest een stuk prettiger.

[ Voor 5% gewijzigd door Lustucru op 01-12-2006 01:36 ]

[Bolukan]

Wat een lange code. De code hieronder zou hetzelfde moeten doen.
Succes met de aanpassing.

code:

Private Sub CommandButton1_Click()
 
 Worksheets("Klanten").Select
 client = ActiveCell.EntireRow.Cells(1, 1).Value
 Worksheets("FACTUUR").Select
 ActiveSheet.Range("D27").End(xlDown).Offset(1, 0).Select
 Selection.FormulaR1C1 = client
 Selection.Offset(0, -1).Select
 
 End Sub

[ Voor 4% gewijzigd door Bolukan op 02-12-2006 17:09 ]

[mirelia]

Bedankt Bolukan
Deze code lost gelijk een probleem op wat ik al een paar dagen had

Nog niet helemaal de oplossing van mijn vraag maar ik ben nu bezig met een andere manier
Als dat niet lukt ga ik weer verder proberen met deze code