• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kopiëren naar ander werkblad en cellen uit diverse kolommen legen

Status
Niet open voor verdere reacties.
C

carlocarlo

Gebruiker
Lid geworden
14 apr 2009
Berichten
122
Kan iemand mij svp aan een macro helpen waarmee ik in bijgaand bestand :
- de gegevens van cel A3 t/m i36, van blad 'in', kan kopiëren
- naar de eerstvolgende lege regel in blad 'db' en
- daarna de cellen B3 t/m c35 en de cellen f3 t/m f35 in blad 'in' worden geleegd
- tot slot zou ik graag willen zien dat er in kolom E altijd de voorraad van de vorige dag komt te staan van de processtroom genoemd in kolom A.
 

Bijlagen

  • werkvoorraad.xlsm
    33,2 KB · Weergaven: 44
Test deze eens:

Code: 
Private Sub Wegschrijven_Click()
 With Sheets("db")
  Evrij = .Range("A" & .Rows.Count).End(xlUp).Row + 1
   With Sheets("in")
    .Range("A3:I36").Copy
     Sheets("db").Range("A" & Evrij).PasteSpecial Paste:=xlPasteValues
      .Range("B3:C35,F3:F35").ClearContents
   End With
 End With
 Application.CutCopyMode = False
End Sub
 

Bijlagen

  • werkvoorraad(cobbe).xlsm
    38,6 KB · Weergaven: 24
Laatst bewerkt:
Of zo?
 

Bijlagen

  • werkvoorraad-1.xlsb
    41,5 KB · Weergaven: 26
nog een vraag

Beste Cobbe en gast0660,

Dank jullie voor het sturen van de bestanden. Ik kan geen bestanden naar mijn werk pc kopiëren. Ik heb nu zelf een macro gemaakt en de code er in geplakt. Als ik dat doe dan werkt de code niet meer. Kunnen jullie mij s.v.p. aangeven wat ik moet doen om de code te laten werken? Vast bedankt voor de moeite.
 
Wat betreft mijn vbtje.
Plaats een activeX knop op je blad, dan op de knop rechts klikken -> programma code weergeven, daar mijn code inplakken (te vinden in de VBA editor, ALT + F11)
Kan ook met een gewone knop, macro toewijzen en daar mijn code inplakken.
 
Plak dan deze code achter je button:
Code: 
Sub wegschrijven()
With Sheets("db")
  Evrij = .Range("A" & .Rows.Count).End(xlUp).Row + 1
   With Sheets("in")
    .Range("A3:I36").Copy
     Sheets("db").Range("A" & Evrij).PasteSpecial Paste:=xlPasteValues
      .Range("B3:C35,F3:F35").ClearContents
   End With
 End With
 Application.CutCopyMode = False
end sub
De vorige code diende voor een button van de ActiveX Besturingselementen
 
Open met <F11> de VB editor en plak de code in een module.

Zo kan het denk ik ook.
Code: 
Sub VenA()
  With Sheets("in").Range("A3:I35")
    Sheets("db").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(33, 9) = .Value
    .SpecialCells(2).ClearContents
  End With
End Sub
 
Het werkt, bedankt.

Beste Cobbe, VenA en gast0660, bedankt voor jullie terugkoppeling. Het werkt :)
 
Laatst bewerkt:
VenA ook bedankt!
Vraag als opgelost markeren.jpg
 
Laatst bewerkt:
En natuurlijk VenA ook hartelijk bedankt.

Excuus VenA, jij ook bedankt voor de moeite.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan