Naar laatste gevulde regel

[Goudvis1]

Goedemiddag,

Ik heb een excel bestandje met een aantal waarden en formules (A1: D9). Ik wil de cellen met waarden kopieren naar A16 (ene keer is dit 1 regel, andere keer bijv. 4). Ik heb hiervoor een code geschreven (zie bijlage). Wat er nu gebeurt is dat de lege cellen (met formules) ook gekopieerd worden. Dat wil ik niet want ik heb van andere tabbladen ook waarden die ik hieronder wil zetten (heb ze nu voor het gemak even op zelfde tabblad geplaatst J-M). Als ik nu de laatste regel opzoek om de waarden van J-D daarheen te kopieren dan geeft hij A24 aan als laatste regel maar dit moet A17 zijn.

Wie kan mij hiermee helpen?

Alvast bedankt.Bekijk bijlage test_bestand.xls

 

[sarges]

Hallo Goudvis,

Onderstaande zet het op A17.

Sub laatste_regel()
Range("A2:D9").Copy
Range("A17").Select
ActiveSheet.Paste
End Sub

Als je een regel wilt kiezen zou ik het via een TextBox doen en dan de regel zelf invullen waar je deze wilt hebben. (ik ben maar een hobbyist)

Private Sub CommandButton1_Click()
j = TextBox1.Value
Range("A2:D9").Copy
Range("A" & j).Select
ActiveSheet.Paste
End Sub

 

[Goudvis1]

Beste Sarges,

Dank voor je antwoord!
Het werkt nog niet helemaal goed. Ik krijg bij een foutmelding bij de textbox.
Zou het ook zonder textbox mogelijk zijn?

 

[ExcelAmateur]

Goudvis1,

Ik denk dat je een InputBox hier voor moet gebruiken.

Private Sub CommandButton1_Click()
  j = InputBox("Welke Cel", "Voer de cel in")
  Range("A2:D9").Copy Range("A" & j)
End Sub

Je moet alleen het nummer in te voeren, dus 20 en hij plaatst het in A20

 

[sarges]

Met de info van ExcelAmateur heb ik een voorbeeld gemaakt voor je.

Groet,

Serge

Bekijk bijlage test_bestand.xls

 

[ExcelAmateur]

Goudvis1,

Zo doet hij enkel de waardes plaatsen, zonder de formule.
Het zal nog wel beter kunnen maar ik ben tenslotte een amateur.

Private Sub CommandButton1_Click()
  j = InputBox("Welke Cel", "Voer de cel in")
  Range("A2:D9").Copy
  Range("A" & j).PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Range("A" & j).Select
End Sub

 

[Goudvis1]

Bedankt

Hartstikke bedankt! Het werkt.