Als cel in kolom is leeg plak waarden uit andere kolom (met een loop)

  • Onderwerp starter Onderwerp starter aat21
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

aat21

Gebruiker
Lid geworden
22 jun 2004
Berichten
21
Guru's

Ik wil mezelf wat VB aanleren, maar loop alweer tegen de eerste problemen aan :confused:

Wat ik wil; Ik heb in kolom A waarden staan en in kolom B ook, alleen soms is er een cel in kolom B <leeg>. Als dat zo is, dan wil ik dat de waarde uit kolom A (zelfde regel) naar die lege cel in Kolom B wordt gekopieerd.
En dan wil ik ook nog eens graag dat die macro blijft lopen totdat er in Kolom A (dus niet B) de waarde <leeg> wordt gevonden.

Ik heb hetvolgende gemaakt en dat werkt voor één cel, maar niet voor een range en ik weet zeker dat hij ook niet loopt.

Iemand een idee...?

===================================================
Sub COPY_PASTE_RUN()
'
' COPY_PASTE_RUN Macro
' De macro is opgenomen op 2-3-2010 door Joost Goudriaan.
'

'
If Range("B1") = "" Then
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
End If
End Sub
======================================================

Muchos Gracias!

Mvrg,

J. Goudriaan
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan