robert123321
Gebruiker
- Lid geworden
- 5 okt 2007
- Berichten
- 46
Hallo,
Ik wil een stuk van mijn macro loopen, maar weet niet goed hoe?
Het stuk in de wat ik wil loopen is in rood getypt.
Ik wil graag dat het stuk code de spaties uit de velden B4 t/m B13 haalt.
Uit B4 wordt de spatie er wel uitgehaald, vervolgens moet die naar B5 springen etc etc tot die een lege cel tegenkomt. Dit kan B14 zijn maar ook een eerdere cel.
Dit is mijn code:
Ik wil een stuk van mijn macro loopen, maar weet niet goed hoe?
Het stuk in de wat ik wil loopen is in rood getypt.
Ik wil graag dat het stuk code de spaties uit de velden B4 t/m B13 haalt.
Uit B4 wordt de spatie er wel uitgehaald, vervolgens moet die naar B5 springen etc etc tot die een lege cel tegenkomt. Dit kan B14 zijn maar ook een eerdere cel.
Dit is mijn code:
Code:
Sub Macro1()
Application.ScreenUpdating = False
Dim owner As String
Dim Nummer As String
Dim X As Variant
Dim R As Range
owner = InputBox("naam")
Nummer = InputBox("Nummer")
Range("A2").Select
Selection = owner
Range("C2").Select
Selection = Nummer
[COLOR="Red"]Do
X = Range("B4")
X = Replace(X, " ", "", 1, 75)
Range("B4") = X
ActiveCell.Offset(0, 1).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))[/COLOR]
Range("B4:B13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Laatst bewerkt door een moderator: