het resultaat van een bewerking automatisch in de eerste lege cel van een rij plaatse

[Havana100]

beste,

iemand een oplossing voor volgend probleem?

In het voorbeeld staan vanaf cel A1 tot en met G1 reeds waarden (groen) . In cel C10 en D10 (oranje) staan twee getallen die telkens veranderen. In cel A10 (blauw) staat het resultaat van de bewerking van de cellen (c10+ d10). Echter de waarde van het resultaat in cel A10 zou telkens in de eerste lege cel in rij A moeten komen. Dus het resultaat (5) is nu in cel H1 geplaatst (rood) maar zou het resultaat zou bij de volgende berekening dus in cel I1 moeten komen.

alvast bedankt ! Bekijk bijlage voorbeeld.xlsx

 

[emields]

zo?

 

[JanBG]

Met deze code in het voorbeeld van emields:

Sub Macro3()
Range("A10").Select
    ActiveCell.FormulaR1C1 = "=RC[2]+RC[3]"
    Range("A1").End(xlToRight).Offset(0, 1) = Range("A10").Value
 Range("A10").ClearContents
End Sub

 

[HSV]

xlToRight genereert natuurlijk een fout als A1 leeg is.
De laatste kolom is echt de laatste kolom, daar is dan geen ruimte meer voor een offset(,1).

Voor diegene die moeite hebben met lezen in de kleur zwart!
Select , selection en Activecell zijn overbodig in zulke codes.

Sub hsv()
 Cells(1, Columns.Count).End(xlToLeft).Offset(, 1 * -(Range("a1") <> "")) = Range("a10").Value
End Sub