Indien cel leeg is inhoud vorige cel daarin plakken

[zenuwstelsel]

Goedemiddag,

Ik kom niet uit het volgende:

Voor mijn werk heb ik diverse bestanden waarbij in kolom A bijvoorbeeld een mobiel telefoonnummer moet staan, in kolom B (indien aanwezig) een vast telefoonnummer en in kolom C een datum. Nu is het zo dat in alle rijen die geen optioneel vast telefoonnummer bevat de datum in kolom B staat. Zie voorbeeld Excel.

Ik zou graag middels een formule alle datumvelden in kolom B verschuiven naar kolom C. Zodat kolom C volledig gevuld is en indien er geen vast telefoonnummer beschikbaar is kolom B lege velden bevat. Slepen is geen optie aangezien het om veel te veel data gaat.

Dus eigenlijk wil ik graag het volgende bereiken: Indien cel C1 leeg is, knip inhoud cel B1 en plak in cel C1.

NB. Het mag voor zich spreken dat alle telefoonnummers in het voorbeeld file fictieve telefoonnummers zijn.

Alvast bedankt voor het meedenken. Groet!

 

[SjonR]

met een stukje code?

Sub SjonR()
With Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(4)
    .Value = .Offset(, -1).Value
    .Offset(, -1).ClearContents
End With
End Sub

 

[zenuwstelsel]

Hoe zou ik die code dan moeten verwerken? In een Macro?

 

[Haije]

Hoe zou ik die code dan moeten verwerken? In een Macro?

Inderdaad!

NB: welkom op Helpmij.nl

 

[VenA]

Even sorteren en dan de cellen slepen lijkt mij ook niet veel moeite.

 

[zenuwstelsel]

Vriendelijk bedankt aan de heren/dames van hierboven voor het meedenken. Met de code kon ik het oplossen.