bepaalde cellen kopieren macro

[jokri]

Hallo,

Ik heb een tabblad in excel waarin enkele cellen gekopieerd moeten worden naar andere cellen in een ander tabblad
bijv, wanneer ik op een knop duw moet er volgende dingen gekopieerd worden:
Blad1!a2 naar lijst!a4
Blad1!b2 naar lijst!c4
Blad1!c2 naar lijst!b4
Blad1!d2 naar lijst!d4


wanneer ik volgende keer nieuwe gegevens invul in klanten! moeten deze naar een rij lager gekopieerd worden (dus naar lijst!a5......)
ben ik verstaanbaar?

 

[sylvester-ponte]

jorki, als je geen voorbeeldje mee stuurt wordt er meestal minder gereageerd
groet sylvester

 

[jokri]

vb

voorbeeldje in bijlage

 

[sylvester-ponte]

jorki,
ik heb gewoon een macrootje opgenomen:

Sub Macro3()
    Range("A2:D2").Select
    Selection.Copy
    Sheets("lijst").Select
    Range("A4:D4").Select
    Selection.Insert Shift:=xlDown
    Sheets("Blad1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A2").Select
End Sub

groet sylvester

 

[jokri]

maar als ik volgende keer nieuwe klantgegevens invul, moeten die bij de lijst toegevoegd worden (rij lager) en dus niet overschreven worden

 

[jokri]

ow
het werkt zo al
bedankt!

nu ga ik mooi alles uitwerken

 

[sylvester-ponte]

wat betekent ow?

 

[jokri]

ik ken er nog niet zoveel van...
ik kan er ook niet goed aan uit, waarom er alleen a2 en a4 in voorkomt, hoewel alle cellen gekopieerd worden

 

[sylvester-ponte]

ja hij schuift de hele zooi naar benden

maar , wat betekent ow ???

groet sylvester

 

[jokri]

kan je me helpen met het origineel bestand, want het lukt me niet

dit is wat ik tot nu toe gemaakt heb, wanneer ik op de knop 'toevoegen aan lijst' klik zouden dus die gegevens gekopieerd moeten worden

ow=
ahzo

 

[sylvester-ponte]

Jorki, begin eens met wat meer namen en tabellen te gebruiken .
ik heb een klein geginnetje gemaakt .

ik ga slapen.

groet sylvester

 

[jokri]

Bedankt!
Maar de knop doet niets bij mij?

 

[sylvester-ponte]

ik heb de knop nog niet aangesloten en ik ga aan het werk

groet

 

[sylvester-ponte]

Jorki, wil je aub eerst wat namen aan je cellen geven, dan kan ik die bebruiken in de oplossing.

 

[Warme bakkertje]

Ringlaan, da's achter mijnen hoek (woon zelf op de Laaglandlaan)
Kan je eens duidelijk aangeven welke cellen van welk blad naar welke cellen van welk blad moeten, want hetgeen je schrijft komt helemaal niet overeen met het voorbeeld dat je hier geplaatst hebt.
De broncellen die je wil kopieëren zijn leeg, de doelcellen zijn leeg of maken geen deel uit v/e tabel ??

 

[jokri]

van factuurmaken naar lijst
f1 -> b3
h23 -> c3
h44 -> d3
a23 -> e3
e23 -> f3

zo blijven de gegevens opgeslagen in een lijst, telkens ik een nieuwe factuur aanmaak

 

[Warme bakkertje]

Sub Transfer()
    Dim data(5)
    With Sheets("Factuur maken")
        data(0) = .Range("F1").Value
        data(1) = .Range("H23").Value
        data(2) = .Range("H44").Value
        data(3) = .Range("A23").Value
        data(4) = .Range("E23").Value
    End With
    Sheets("lijst").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 5) = data
End Sub

 

[jokri]

het werkt!
waarvoor dank!

 

[Warme bakkertje]

Graag gedaan.
Zet je de vraag dan nog even op opgelost (menubalk net boven je 1ste post)