"Als cel begint met 6 ... dan die cel gegevens plaatsen in ..." Hoe?

[yvonne0]

Goedemorgen,

In de bijlage een voorbeeldbestand met fictieve telefoonnummers.
In kolom A staan zowel 06 als gewone telefoonnummers. In cel B staan alleen 06 nummers.
Ik zou graag 1 kolom willen hebben waar alleen 06 nummers in staan, maar hoe doe ik dit.
Zet ik die dan in kolom C? en met welke formule?

Ik wil dus daar waar de cel in kolom B leeg is, het 06-nummer van kolom A gebruiken om de lege cellen aan te vullen. Daar waar in kolom B al een 06-nummer staat, die behouden.

Ik hoor het graag!

Alvast bedankt.

Groetjes,
Yvonne

 

[Cobbe]

Misschien toch een beter/volledig voorbeeld posten.

 

[edmoor]

"In cel B staan alleen 06 nummers."
"Ik zou graag 1 kolom willen hebben waar alleen 06 nummers in staan"

Die staan in kolom B toch?
Misschien iets duidelijker uitleg van je bedoeling?

 

[yvonne0]

Heb de vraag iets verduidelijkt.

Ik wil dus daar waar de cel in kolom B leeg is, het 06-nummer van kolom A gebruiken om de lege cellen aan te vullen. Daar waar in kolom B al een 06-nummer staat, die behouden.

 

[gast0660]

Zoiets?

 

[yvonne0]

Mac

Hoi, ik werk op een Mac Excel 2011, en daarbij krijg ik de melding dat iets dat er instaat niet ondersteund wordt ...

 

[Haije]

yvonne,

denk je niet dat het handig is aan te geven WAT er dan niet ondersteund wordt?

 

[yvonne0]

foutmelding

Dat is deze melding, zie bijlage.

Naar aanleiding van voorbeeld bestand van gast0660

 

[Haije]

yvonne,

probeer deze eens....

 

[yvonne0]

Deze doet het. Kun je uitleggen hoe je het hebt gedaan?

Bedankt voor het voorbeeldbestand.

Groetjes,
Yvonne

 

[Haije]

de knop in het oorspronkelijke bestand was van het type ActiveX, die in het nieuwe is een formulierbesturingselement.

De foutmelding baf aan dat ActiveX niet ondersteund wordt, vandaar dat ik een andere knop heb geprobeerd.

 

[gast0660]

Ik ken niets van Mac, in Windows kan je met ALT + F11 de code raadplegen.
Dit is de code:

Sub verplaats()
Dim ws As Worksheet
Set ws = Worksheets("Blad1")
last_row = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For j = last_row To 1 Step -1
If (Range("B" & j) = "") Then
If (Range("A" & j) Like ("06*")) Or (Range("A" & j) Like ("6*")) Then
    Range("A" & j).Offset(0, 1).Value = Range("A" & j).Value
    Range("A" & j).Clear
End If
End If
Next
End Sub

Als er vragen zijn over de code om die aan te passen naar uw echte bestand dan hoor ik het wel.