anoniem Geplaatst: 17 februari 2009 Delen Geplaatst: 17 februari 2009 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 [color=blue:db2524aa10][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 [color=blue:db2524aa10][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 Quote Link naar reactie
anoniem Geplaatst: 17 februari 2009 Auteur Delen Geplaatst: 17 februari 2009 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 [color=red:31b8490964]Windows("orders.commercieel.2009.nieuweversie.xls").Activate[/color:31b8490964] Range("G12").Select [color=blue:31b8490964][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 [color=red:31b8490964]Windows("orders.commercieel.2009.xls").Activate[/color:31b8490964] Range("H12").Select [color=blue:31b8490964][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] Quote Link naar reactie
anoniem Geplaatst: 17 februari 2009 Auteur Delen Geplaatst: 17 februari 2009 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. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen