waarden overnemen

[Revdutchie]

Hallo,

Ik wil graag in Kolom C de waarden overnemen uit Kolom A dmv VBA, maar alleen als er in C niets staat. Met 1 Cel lukt me dat wel, maar hoe doe ik dat met een hele kolom.
EDIT: de kolom begint vanaf rij 4

ik heb nu voor 1 cel

if [C1] = "" then
[C1] = [A1]

dat wil ik dus, maar dan voor de hele kolom.

Groeten,
Jacques

 

[Roncancio]

In bijgevoegd bestand zit een voorbeeld waarin een kolom gekopieerd wordt als er niets staat in de C-kolom.

Met vriendelijke groet,


Roncancio

 

[snb]

Sub tst2()
  For Each ar In UsedRange.Columns(3).SpecialCells(xlCellTypeBlanks).Areas
    ar.Value = ar.Offset(, -2).Value
  Next
End Sub

 

[Revdutchie]

Roncancio,

Super, deze heb ik gelijk opgeslagen. Ik ben alleen 1 ding vergeten in cellen in A staat een formule, die krijg ik nu in C terwijl ik daar de waarde wil hebben en niet de formule.

Groeten,
Jaques

 

[Revdutchie]

@SNB

ThX, that did the trick :thumb::thumb:

Alle bedankt weer. Ik weer wat geleerd en kan ik ook Terbreg verder helpen.

Groeten,
Jacques

 

[Revdutchie]

@SNB

ThX, that did the trick :thumb::thumb:

Alle bedankt weer. Ik weer wat geleerd en kan ik ook Terbreg verder helpen.

Groeten,
Jacques

Oops nog niet helemaal opgelost. waarschijnlij omdat ik hem zo gebruik.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each ar In UsedRange.Columns(13).SpecialCells(xlCellTypeBlanks).Areas
    ar.Value = ar.Offset(, -7).Value
  Next
End Sub

Hij vult de kolom precies zoals het moet, maar daarna krijg ik steeds foutcode

 

[snb]

Vind je dat vreemd ?
Voer deze code dan maar eens met F8 uit.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Stop
  For Each ar In UsedRange.Columns(13).SpecialCells(xlCellTypeBlanks).Areas
    ar.Value = ar.Offset(, -7).Value
  Next
End Sub

 

[Revdutchie]

Nee, stom van mij, is helemaal niet vreemd.

Werk nu met een knop en is eigenlijk nog beter ook.

Groeten,
Jacques