Knop / Formule vraag

[Mati6n2]

Hoe gaan we dit uitleggen ...

Ik heb een bepaalde maat bv 2000 (berekend a.d.v een formule) op celplaats C10

Ik heb een knop die de maat (bepaald via de formule) moet verminderen met -83

Nu is de plaats van mijn maat variabel.

Dus stel op celplaats C10 staat de waarde 2000.

Ik klik op mijn knop en hij verminderd de waarde met -83

Nu staat er op celplaats C20 waarde 2500, die ik moet verminderen met -83.

Wat moet ik aan die knop hangen om elke keer de Geselecteerde waarde te verminderen met mijn formule ?

Aan elke cel hangt wel een ALS waarde die hij moet overnemen en dan via de druk op de knop moet verminderen met de opgegeven waarde

Many thx ! :thumb:

 

[richard1970]

Beste Matin6n2,

Plak in je macro de regel:
ActiveCell.Formula = ActiveCell.Formula & "-83"
groeten,
Richard

 

[Mati6n2]

Bedankt richard !

Nu zit ik BV. met deze formule :

'Dagmaathoogte

Range("K25").Select
Selection.Copy
Range("K24").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(Daghoogte2="""","""",(Daghoogte2-83)/2+15)"
ActiveCell.FormulaR1C1 = "=IF(Daghoogte2="""","""",(Daghoogte2-83)/2+15)"
Range("K22").Select

Ik selecteer dus cel 25 om mijn formule op toe te passen.
Nu wil ik dit veranderen in ActiveCell omdat ik nog andere waarden moet uitrekenen met deze formule, maar dit doet hij natuurlijk niet !

Select heb ik er ook al tussen gezet maar dat gaat ook niet.

Wat moet ik daar juist plaatsen voor de formule op mijn geselecteerde cel toe te passen?

Let wel op: De waarde in cel K25 omvat formule :

=ALS(Daghoogte1="";"";Daghoogte1)

Ik heb al geprob. die formule in de plaats van K25 te zetten maar dat doet die blijkbaar ook niet

+ Hoe schrijf ik bv. waar hij de uitkomst mag plaatsen
ActiveCell.Formula = ActiveCell.Formula & "-83"
Place....
(Kan ik zeggen 3rijen lager uitkomst plaatsen,)


:shocked:

 

[Mati6n2]

Iemand die me kan helpen ?

 

[richard1970]

Beste M,

Het kopiëren van de formule uit de ene cel naar de andere kan zonder select, waarbij de actieve cel nog steeds een andere kan zijn. Dus:
Selecteer bijvoorbeeld cel J2 en draai dan de macro:

Range("K24").Formula = Range("K25").Formula
ActiveCell.FormulaR1C1 = "=IF(Daghoogte2="""","""",(Daghoogte2-83)/2+15)"

Is dit wat?

Richard

 

[Mati6n2]

Niet echt

Ik moet dus op elke maat vanop de foto deze formule toepassen.

Dus ik klik op 1540 --> Klik op de knop en -83)/2+15)" wordt dan toegpast.

Nadien klik ik op 1200 en hetzelfde ...

Maar 1540, en 1200 staan dus niet altijd in de dezelfde cel, vandaar dat er een soort activecel in de formule zal moeten staan?

Range("ActiveSheet").Select ofzo ? maar dat werkt niet

 

[richard1970]

In plaats van een vaste celverwijzing, kun je ook de actieve cel pakken:

activecell.formula - neemt de formule over
activecell.value - neemt de waarde over

Test hier eens mee.

Richard

 

[Mati6n2]

Richard,

Dat lukt idd ook maar hij de formule slaat nu nog altijd op 1 bepaalde cel.

Range("A24").Select
    ActiveCell.Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"

Door wat moet ik A24 vervangen om gewoon de formule gewoon te laten toepassen op de geselecteerde cel(len) ?

 

[Wigi]

Zo?

Selection.Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"

 

[Mati6n2]

Lukt me niet direct

    Range("A21:F21").Select
    Selection.Copy
    Range("A24:F24").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A24").Select
    Selection.Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"
    Range("F24").Select
    Selection.Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"

Dit is de volledige code

Nu moet ik de : Range("A24").Select weglaten zeker?

Maar als ik dan een totaal ander cel kies en op de knop klik springt hij nog steeds terug.

Misschien moet iemand de formule van de knop totaal afhankelijk maken van mijn selectie?

Misschien best in 2 klik's dan, want nu selecteer ik 2 cellen voor de formule die in cel A24 - F24 staan.

Deze veranderen dus omdat ik nog meerde waardes met de knop moet uitrekenen

:shocked:

 

[Mati6n2]

Visueel Voorbeeld

Aan de knop hangt dus een formule (Zie code hierboven)

Die ik op de 4 waardes moet toepassen.

Iemand?

 

[Wigi]

Zoiets?

Range("A21:F21").Copy Range("A24")
    Range("A24,D24,F24,G24").Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"

Wigi

 

[Mati6n2]

Wigi dan lig ik toch weer gebonden aan die cellen die jij opgeeft?

P20 = 50 ik druk op de knop dan gaat in P21 de uitkomst niet verschijnen he ?

 

[Wigi]

Wigi dan lig ik toch weer gebonden aan die cellen die jij opgeeft?

P20 = 50 ik druk op de knop dan gaat in P21 de uitkomst niet verschijnen he ?

Leg dan beter uit wat je wilt. Ik begrijp het niet.

 

[Mati6n2]

Wel ik heb 2 cellen A1 & C1

Nu heb ik een knopt gemaakt met een formule die ik moet toepassen op deze 2 waarden.

Nu zou ik de code moeten hebben, als ik de cel A1 selecteer en op de knop duw, dat hij dan deze formule gaat uitvoeren.

Nu kan dit ook bv. cel C1 zijn, vandaar dat ik geen celnamen in mijn code wil plaatsen aangezien de waarden geen vaste plaats hebben.

Hopelijk is dit wat duidelijker ?

 

[Wigi]

Wat was er dan mis met mijn oplossing van eerder?

Zo?

Selection.Value = "=IF(Daghoogte1="""","""",Daghoogte1)-83"

Wigi

 

[Mati6n2]

Hm, dit doet hij idd nu wel.

Maar het is nog niet opgelost.

Pff leg dat eens uit.

Als ik jouw formule gebruik moet ik voor elke waarde een knop maken aangezien ik dan steeds dezelfde formule moet overnemen.

Selection.Value = "=IF(Daghoogte1="""","""",Daghoogte1))-83" Knop1

Selection.Value = "=IF(Daghoogte2="""","""",Daghoogte2))-83" Knop2

Selection.Value = "=IF(Daghoogte3="""","""",Daghoogte3))-83" Knop3

Dus achter de Selection (de cel die ik aangeklikt heb) zit een formule die hij automatisch moet invullen (3zwarte puntjes)

Selection.Value = "=IF(...="""","""",...))-83"

Moet ik daar ook nu een soort selection plaatsen dan ?

 

[richard1970]

Beste M,

Ik denk dat het tijd wordt voor een bestandje met daarin wat fictieve gegevens. Zo blijven we rommelen.
Ik raak ondertussen de kluts kwijt.

Richard

 

[Wigi]

Sub e()
Dim nummer As Integer
nummer = Application.InputBox("Welk nummer komt er achter Daghoogte?", "Nummer", 1, Type:=1)
Selection.Value = "=IF(Daghoogte" & nummer & "="""","""",Daghoogte" & nummer & ")-83"
End Sub

Wigi

 

[Wigi]

Zo blijven we rommelen.

Zeg dat wel...

Maar antwoord eerst op mijn meest recente suggestie vooraleer gegevens bij te hangen.