Kopieren gegevens en opslagan

[happymountain]

Beste,

Ik zit met het volgende probleem

Ik heb ondertussen 2 bladen 1 met gegevens en 1 waarin ik werk

In het document waar ik werk dien ik gegevens in de vullen.
Deze worden dan gekopieerd in een lijst naar blad 1.
Doch wanneer ik deze gegevens verwijder in blad 2 omdat ik een nieuwe ingave doe, verdwijnen deze gegevens uiteraard ook op blad 1.

Hoe kan ik dit vermijden?

mvg
Happy

 

[Janzwart]

Plaats als het kan even een voorbeeld bestandje.

 

[Gremail]

De oorzaak is waarschijnlijk dat je formules kopieert ofzo. Ee macrotje met "kopieer en plak als tekst" kan de oplossing zijn, maar voorbeeldbestandje helpt.

 

[happymountain]

Bekijk bijlage Voertuigen gegevens.xlsx

DUs op Blad twee dien ik gegevens in te vullen.
Deze zouden dan moeten verschijnen op Blad 1 en zouden na het leegmaken van blad 2 niet mogen verwijderen op blad 1

Hopelijk kunnen jullie me helpen, vind het niet.

Alvast bedankt groetjes
happy

 

[wieter]

Kijk eens of je het zo wilt

Bekijk bijlage 180268

 

[happymountain]

Hy,

Ja idd zo zou het moeten zijn, maar ik zie nu pas dat ik blijkbaar het verkeerde bestand online heb gezet.

Hoe kan ik deze formule lezen van die Button?
dan kan ik dit later zelf doen

Alvast bedankt voor jullie hulp

mvg
Inez Bleyenbergh

 

[wieter]

Een knop werkt niet met een formule.
- Open het bestand.
- Druk Alt+F11 Dan kom je in de VBE.
- In de VBE zie je dan bij Blad1 de VBA-code waarmee de knop werkt.

 

[wieter]

Indien je van plan bent dikwijls met VBA te werken, kan beter de menubalk aanpassen.
1. Open Ecxel
2. Klik Bestand
3. Klik Opties
4. Klik Lint aanpassen
5. In de lijst rechts, Ontwikkelaars aanvinken
De menubalk is nu uitgebreid met het lint "Ontwikkelaars"

 

[happymountain]

Beste Wieter,

Ik kan met mijn apple computer niet op de knop ALT+F11 drukken dan gaan mijn instellingen van mijn computer open.

groetjes
Happy

 

[wieter]

Tsja, hoe het met een apple moet weet ik ook niet.
Hieronder alvast de code die achter het blad(met de knop) moet komen

Private Sub CommandButton1_Click()
 Set bronrij = Sheets(2).Range("B3:B13")
    doelRij = Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    x = 1 
    For Each cel In bronrij
        Sheets(1).Cells(doelRij, x) = cel.Value
        x = x + 1
    Next
    bronrij.ClearContents
End Sub

ps: Wat moet er eigenlijk gebeuren met het nieuwe bestand dat je postte?

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1) _
            .Resize(, 11) = WorksheetFunction.Transpose(Sheets(2).Range("B3:B13"))
End Sub