Kopieren naar, als, anders

[Modya]

Goedemorgen,

wie kan mij helpen met het volgenden:

Ik heb gegevens staan in bepaalde cellen die ik wil kopiëren naar een andere cel, maar alleen als die leeg is. Als die niet leeg is dan plakken 1 cel lager, en als die niet leeg is dan nog 1 cel lager.

bijv. ik heb gegevens in de cellen A24 t/m A32. De tekst van A24 wil ik kopiëren naar D10, maar alleen als D10 leeg is. Is dit niet het geval dan plakken in D11, mits die leeg is, anders naar D12.

Dus sta ik op een van de cellen A24 t/m A32, dan moet dit d.m.v. een knop plaatsvinden.Bekijk bijlage Kopieren naar, als, anders naar.xlsx

vr. gr. Wim

 

[VenA]

Als je in D9 een 'koptekst' hebt staan dan kan je deze proberen.

Sub VenA()
Selection.Copy Cells(Rows.Count, 4).End(xlUp).Offset(1)
End Sub

 

[Modya]

Dat is niet het geval. Er is geen koptekst beschikbaar.

 

[Cobbe]

Plak dit achter je werkblad:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, 4) = ActiveCell.Value
End Sub

Nu maar dubbelklikken op de cel die je wil verplaatsen.

 

[VenA]

Zo dan?

Sub VenA()
If Cells(Rows.Count, 4).End(xlUp).Row < 10 Then Selection.Copy [D10] Else Selection.Copy Cells(Rows.Count, 4).End(xlUp).Offset(1)
End Sub

 

[Modya]

Zo dan?

Sub VenA()
If Cells(Rows.Count, 4).End(xlUp).Row < 10 Then Selection.Copy [D10] Else Selection.Copy Cells(Rows.Count, 4).End(xlUp).Offset(1)
End Sub

Ja, dit is het! Werkt perfect. Hartelijk bedankt.