Formule toepassen op een selectie

[willemjan]

Goedenmiddag,

ik ben bezig een groot excelbestand te 'vertalen' naar een andere valuta. In de cellen staan harde gegevens en ook formules. Is er een mogelijkheid dat ik de cellen die omgerekend moeten worden in een keer selecteer en er dan de omrekenformule op toepas?
Dit zou mij namelijk erg veel werk schelen...
Bij voorbaat dank!

 

[GJB]

Hoe ziet de formule er uit die je toe wilt passen, misschien dat ik dan een macrotje in elkaar kan fietsen voor je.

 

[willemjan]

(celwaarde)*1742

 

[erik.van.geit]

Hello, willemjan
Welcome to the Board !!!

Je wil dus een heleboel cellen tegelijk met eenzelfde waarde vermenigvuldigen ?
Ik veronderstel dat je weet hoe een formule te tijpen en dan "te slepen" naar beneden tot het eind van de gegevens. Dit kan ook door te dubbelklikken in het zwarte vierkantje wanneer je de cel met formule selecteert.

voorbeeld
je hebt gegevens in A1:A10
in B1 tijp je = A1*1742
ENTER
selecteer B1 opnieuw
dubbelklik nu op het zwarte vierkantje rechts onderaan

Maar ik vermoed dat je het "in één klap" wil doen.

tijp 1742 in een cel
selecteer de cel
Control+C (copiëren dus)
selecteer alle gegevens die je wil vermendigvuldigen met 1742
rechtsklik
selecteer "plakken speciaal"
in de volgende box "waarden" en ook "vermenigvuldigen"

dit proces kan je uiteraard ook in een macro stoppen

beste groeten,
Erik

 

[GJB]

selecteer de cellen die je wilt vermenigvuldigen en voer deze macro uit

ALT F11 om de visual basic editor te openen
selecteer Thisworkbook
plak onderstaande code
ALT Q om terug te keren naar excel

Sub vermenigvuldigen()
Dim cell As Range
With Selection
    For Each cell In Selection
    cell.Value = cell.Value * 1742
    Next cell
End With
End Sub

suc6

 

[GJB]

Ik zag net dat er ook cellen zijn met formules en met bovenstaande macro raak je die kwijt, heb hier een aangepaste versie die wel de formules behoud.

Sub vermenigvuldigen()
Dim cell As Range
Dim x As String
With Selection
    For Each cell In Selection
    If cell.HasFormula = True Then
    x = Right(cell.Formula, (Len(cell.Formula) - 1))
    cell.Formula = "=(" & x & ")*1742"
    Else
    cell.Value = cell.Value * 1742
    End If
    Next cell
End With
End Sub

Suc6

 

[willemjan]

Hardstikke bedankt voor jullie reacties, ik heb de manier van erik toegepast en het werkt perfect!