Manier vinden om 0 te vervangen door nummer van de linkse cell

[idarkreaver]

Hallo Iedereen,

Ik heb een vraagje over de file in bijlage. Ik moet data importeren uit redelijk oudere systeem.

Hoe kan ik de 0 uit kolom C vervangen door de nummers die in kolom B staat?

Nu:
B4 = 999027 C4 = 0

Moet worden:
B4 = 999027 C4 = 999027 (<= dus de data uit B4 als het 0 is)

Indien er een nummer staat, dan moet hij blijven staan, zelfs als de aantal anders is.

Nog één iets, ik moet de data telkens importeren, dus denk ik dat een formule telkens zou verdwijnen? Waarschijnelijk best in een macro steken?

Wie kan mij helpen?

Alvast bedankt.


Bekijk bijlage project M.xlsm

 

[Cobbe]

Deze misschien:

Sub cobbe()
Dim cl As Range
For Each cl In Range("C:C").SpecialCells(xlCellTypeConstants)
 If cl = 0 Then cl = cl.Offset(, -1)
Next
End Sub

 

[idarkreaver]

Hello,

Geweldig, het werkt. great job. Thanks!