Celinhoud kopiëren binnen een bepaald bereik

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik heb een code die de celinhoud (uit cel A20) kopieert tot aan een bepaald bereik (C20) en dan niet meer verder mag, wat overigens prima werkt. Echter is het de bedoeling dat deze de data niet eerder plaatst vanaf Cel C10 en vervolgens niet verder gaat dan Cel C20. Zoals gezegd werkt dat laatste prima, alleen het eerste dus niet. Wat moet ik aan onderstaande code toevoegen zodat deze de data pas plaatst vanaf cel C10.

Code: 
Sub test()
Sheets("Blad1").Range("C20").End(xlUp).Offset(1) = Range("A20")
End Sub

Alvast bedankt.

Robert
 
Je bedoelt dit?
Code: 
Sheets("Blad1").Range("C10:C20") = Range("A20")
 
sorry, dat is niet wat ik bedoel. In jouw geval plaatst hij 10 keer de data vanuit cel A20. Het is de bedoeling dat dit één keer wordt gekopieerd in de eerstvolgende lege cel vanaf cel C10 maar mag niet verder dan C20.
 
Dan zal je toch op inhoud moeten controleren:
Code: 
For Each cl In Range("C10:C20")
    If cl.Value = "" Then cl.Value = Range("A20"): Exit For
Next cl
 
Dat is precies wat ik bedoel...Ik zocht in de verkeerde hoek...Heel erg bedankt voor jouw snelle reactie..:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan