Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA cellen optellen

None
3 antwoorden
  • Hallo! Ik ben sinds kort pas bezig met VBA dus nog niet echt gekneist hierin.

    Kan iemand mij zeggen hoe ik in VBA twee cellen uit verschillende bestanden bij elkaar kan optellen. Door middel van een gewone macro opnemen lukt me dit wel, maar de VBA van de macro uit de module knippen en plakken in het blad bij "private sub" lukt me niet.

    Hieronder de VBA van de private sub. Het blauwe gedeelte is waar het mij om gaat. Dit zal nu wel helemaal niet kloppen omdat ik al een beetje aan het uitproberen ben geweest.


    Private Sub Februari2009_Click()

    'Orders Inkomende 1
    'maand februari
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "='G:\HGL\KRI\Firma\BRC\ADMINISTR. Orders\Orders.2009\[orders.commercieel.2009.xls]Firma'!R[-5]C[-2]"
    'Culumatief
    Range("H11").Select
    ActiveCell.FormulaR1C1 = "='G:\HGL\KRI\Firma\BRC\ADMINISTR. Orders\Orders.2009\[orders.commercieel.2009.xls]Firma'!R[-5]C[8]"

    'Orders Inkomende 2
    'maand februari
    Range("G12").Select
    [b:db2524aa10]ActiveCell.FormulaR1C1 = _ "=[orders.commercieel.2009.nieuweversie.xls]Firma!R-6]C[-3]" & _ "[Overzicht 2009.xls]KRC-cijfers!R[-3]C[42]"[/b:db2524aa10][/color:db2524aa10]
    'Culumatief
    Range("H12").Select
    [b:db2524aa10]ActiveCell.FormulaR1C1 = "=G:\HGL\KRI\Firma\KRC\zz.Orders\[Overzicht 2009.xls]BRC-cijfers!R[7]C[42]+'G:\HGL\KRI\Firma\BRC\ADMINISTR. orders\[orders.commercieel.2009.xls]Firma!'R[-6]C[7]"[/b:db2524aa10][/color:db2524aa10]

    End Sub


    Hoop dat iemand mij kan helpen.

    Groetjes
    Yvonne
  • volgens mij moet je nog aangeven welk bestand de informatie bevat.
    En als de files niet in dezelfde directory staan natuurlijk dan de hele path opgeven.
    [quote:31b8490964]
    'Orders Inkomende 2
    'maand februari
    Windows("orders.commercieel.2009.nieuweversie.xls").Activate[/color:31b8490964]
    Range("G12").Select
    [b:31b8490964]ActiveCell.FormulaR1C1 = _ "=[orders.commercieel.2009.nieuweversie.xls]Firma!R-6]C[-3]" & _ "[Overzicht 2009.xls]KRC-cijfers!R[-3]C[42]"[/b:31b8490964][/color:31b8490964]
    'Culumatief
    Windows("orders.commercieel.2009.xls").Activate[/color:31b8490964]
    Range("H12").Select
    [b:31b8490964]ActiveCell.FormulaR1C1 = "=G:\HGL\KRI\Firma\KRC\zz.Orders\[Overzicht 2009.xls]BRC-cijfers!R[7]C[42]+'G:\HGL\KRI\Firma\BRC\ADMINISTR. orders\[orders.commercieel.2009.xls]Firma!'R[-6]C[7]"[/b:31b8490964][/color:31b8490964]


    [/quote:31b8490964]
  • Dat dacht ik ook in eerste instantie dus daar heb ik al een beetje mee lopen spelen/puzzelen.

    Maar het stukje daarboven "Orders inkomende 1" komt de informatie ook uit andere bestanden en die pakt die wel gewoon goed. Ik denk zelf dat de wijze van optellen van de cellen zoals ik dat wil doen niet de juiste is.

    Maar ik wil er voor de duidelijkheid bij zeggen dat de paden naar het bestand toe fictief zijn. Het is nl voor mijn werk dus heb het eea even aangepast.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.