VBA Code om een getal of een formule in een cel te plaatsen

Status
Niet open voor verdere reacties.
R

RoelPlaatwerk

Nieuwe gebruiker
Lid geworden
31 jul 2019
Berichten
3
Goedendag,

Ik ben even aan het knutselen in Excel en loop tegen een probleem aan waar ik niet uit kom. Ik denk dat de oplossing in een VBA code ligt alleen ik kom er niet uit. Daarom heb ik maar een leeg bestand toegevoegd.

In het kort zoek ik het volgende:

Een code die ervoor zorgt dat wanneer ik de personeelscode in cel B3 vervang voor een ander nummer, de huidige nummers in kolom G blijven staan terwijl in de lege cellen de formule beschikbaar blijft.

Heeft één van jullie wellicht een idee?

Ik hoor het graag.

Mvg,

Roel
 

Bijlagen

  • Vraag HelpMij.xlsx
    9,6 KB · Weergaven: 29
Vreemde situatie. Kan je uitleggen waarom je dat op die manier zou willen?
Wellicht dat er een betere manier te verzinnen is.
 
Een idee

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) <> "B3" Then Exit Sub
    Application.EnableEvents = False
    x = Target.Value
    Application.Undo
    y = Target.Value
    On Error Resume Next 'geen cellen met een formule te vinden
    For Each cl In Columns(7).SpecialCells(-4123)
      If Len(cl.Value) > 0 Then cl.Value = cl.Value
    Next cl
    Target = x
    Application.EnableEvents = True
End Sub
 
Bij deze een aanpassing van mijn document waar ik het wat verder uitleg inclusief een macro.
 

Bijlagen

  • Vraag HelpMij.xlsm
    19,6 KB · Weergaven: 19
VenA, bedankt voor de code! Heb het idee dat dat hem al bijna is!

Zal straks kijken of ik daar iets mee kan! Mocht jij nog iets kunnen met het nieuwe bestand hoor ik dat uiteraard ook graag.

EDIT:

Ik kom er helaas niet uit om het aan te passen naar mijn wens. Ik heb nu een code geschreven (zie hiervoor het Excelbestand) Echter heb ik hiervoor nog wel een hulpkolom nodig.

In het werkelijke bestand moet uiteindelijk wel 8x dezelfde formule geschreven worden (maar dan met een andere range). Ik hoop dat jullie iets kunnen betekenen.
 

Bijlagen

  • Vraag HelpMij.xlsm
    23,4 KB · Weergaven: 33
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan