code om functie te verwijderen

[rob91]

Hallo,

Ik haal celwaarden op via de functie vertikaal zoeken en nu zoek ik een stukje code die de waarde in de cel vastzet zodat deze niet meer wijzigt.

met andere woorden : de functie ''vert. zoeken' verwijderd zodra er een waarde in staat en die waarde in de cel dan laat staan.

rob

 

[richard1970]

't Kan handmatig:
Selecteer de cel, F2, F9, enter.
Of:
Ctrl C, Bewerken - Plakken Speciaal > Waarden > OK.

Via VBA lijkt mij lastig, want de functie werkt zodra je 'm intikt / kopieert.

Richard

 

[snb]

In VBA als het over cel F3 gaat:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Address="$F$3" Then .Value=.Value
  End With
End Sub

 

[rob91]

heren,

Handmatig wordt niets want de waarden komen van een ander blad.
Het stukje code doet het niet.

Ik heb een stukje code; alleen is deze niet helemaal goed.
Kan iemand kijken wat er mis is?

Sub Macro1()
Dim r As Range
For Each r In Range("B2:C366")
If r.Value >= 1 Then
r.Value = r.Value
End If
Next
End Sub

 

[Roncancio]

Wat gaat er niet goed met de code?

Met vriendelijke groet,


Roncancio

 

[Wigi]

In VBA als het over cel F3 gaat:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Address="$F$3" Then .Value=.Value
  End With
End Sub

Kijk goed uit met zulke codes, voer dit maar eens uit in een leeg bestandje met het Immediate Window open en sla alle andere bestanden eerst op:

Dim i As Long

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Address = "$F$3" Then i = i + 1: Debug.Print i: .Value = .Value
  End With
  
End Sub

Wigi

 

[Ginger]

zonder te testen zou ik zeggen dat er een Application.EnableEvents = False vooraf moet gaan....

Groet, Leo

 

[rob91]

Sub Macro1()
Dim r As Range
For Each r In Range("B2:C366")
If r.Value >= 1 Then
r.Value = r.Value
End If
Next
End Sub

deze code werkt niet en geeft een fout in de 3e regel : If r.value >= 1 then

melding is: r.value = fout 2042

wat kan er mis zijn?

 

[Ginger]

wat kan er mis zijn?

Ik gok dat een van je formules een error genereert. Dat vindt je code niet leuk.

Groet, Leo

 

[Roncancio]

fout 2042 verschijnt als er iets niet gevonden kan worden.

Met vriendelijke groet,


Roncancio

 

[rob91]

Ik plaats het bestandje er maar even bij,
dan kijkt wat makkelijker wat er nou fout gaat.

Ik zie het niet :shocked:

Rob

 

[Roncancio]

Het punt is dat vert.zoeken een foutmelding geeft omdat de datums niet gevonden kunnen worden.
Fout 2042 is een equivalent van #N/B.
Als je een ALS-functie in de formule gebruikt dan kan je de foutmelding omzeilen.

Met vriendelijke groet,


Roncancio

 

[rob91]

Roncancio,

Dat was inderdaad het probleem; nu met de als-functie werkt het.
Alleen heb ik mij ondertussen bedacht, dat als er later nog een aantalwijziging aangebracht wordt deze dus nooit meer gekopieerd wordt. Dus weet ik niet of ik de gegevens wel op deze manier moet overnemen.

Maar goed,mijn vraag is opgelost.
bedankt voor de tips.:thumb:

Rob