Macro voor niet lege cellen

[rg027]

via de formule vert.zoeken in blad kalender worden de waarden die in blad invoer staan, ingevuld in blad kalender. Dat lukt goed. Echter indien ik een bepaalde waarde in blad kalender invoer word de formule overschreven. Welke macro dien ik te gebruiken om de formule vert.zoeken in te vullen in de cellen waar niks is ingevuld?

 

[Jan van Asseldonk]

Ik weet niet of ik je helemaal goed begrijp, ik zie namelijk geen lege cellen.
Op de volgende manier kun je echter wel de lege cellen markeren.
Markeer het gehele gebied waar je formules en waarden staan.
Druk op F5, kies Speciaal, markeer lege waarden en klik op OK. Alle lege cellen zijn nu gemarkeerd.
Type nu je formule in en druk op CTRL+ENTER.
Je formule wordt nu meteen in alle cellen ingevoerd.

Hopelijk heb je hier iets aan.

 

[rg027]

met lege cellen bedoel ik de cellen waar enkel de formule staat, maar waar geen waarden instaan(behalve de formule dus)

 

[rg027]

Niemand een idee ?

 

[rg027]

Spijtig dat er niemand kan helpen

 

[Jan van Asseldonk]

cellen met alleen formules kun je ook met F5 (ga naar) selecteren.
Markeer eventueel het gebied, druk op F5, speciaal en kies formules.

Maar wat je nu precies wilt is voor mij nog steeds niet duidelijk en ik denk voor anderen ook niet, anders was er wel meer gereageerd.

 

[rg027]

even proberen vanaf een lege rooster in blad kalender.
vb

Test 1 moet op datum 2/1/06 de code a krijgen. Deze code vul ik manueel in op het blad kalender



Op 1/1/06 moeten alle testen de code b krijgen. Deze worden ingevuld in blad invoer. Via de formule vert.zoeken kan deze code ingevuld worden in blad kalender. (doe ik middels een macro). Echter de code die manueel ingevoerd is in blad kalender mag niet overschreven worden wat nu wel het geval is .
Hoe bereik ik dat de manuele ingevoerde waarden in blad kalender blijven behouden en de de waarden die in blad invoer staan ook worden ingevoerd in blad kalender.

 

[rg027]

even de marcocode die ik gebruik

Range("B2:AF2").Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R1C,code,3,FALSE)),"""",VLOOKUP(R1C,code,3,FALSE))"
Selection.Copy
Range("B3:AF10").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B13:af13").Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R12C,code,3,FALSE)),"""",VLOOKUP(R12C,code,3,FALSE))"
Selection.Copy
Range("B14:AF21").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B24:af24").Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R23C,code,3,FALSE)),"""",VLOOKUP(R23C,code,3,FALSE))"
Selection.Copy
Range("B25:AF32").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B2").Select