15. august 2007 - 21:08Der er
4 kommentarer og 1 løsning
kan jeg gemme en fil med et nyt navn -og få makroreferencer med?
Den lille makro herunder ligger i den (skrivebeskyttede)fil RBQ.xls -makroen snupper en kolonne med priser fra en anden fil (som nødvendigvis skal være på c-drevet for det virker) og smækker denne kollonne ind i arket RBQ.xsl -sagen er at jeg når jeg nødvendigvis gemmer RBQ.xsl-filen under et andet navn, og åbner denne nye, refererer makroen stadig til RBQ.xsl og ikke filens nye navn -hvordan kan jeg få makroen til altid at referere til den fil den er inkluderet i?
Sub Buying() Workbooks.Open Filename:="C:\rio\MacroPrice.xls" Range("A1:A100").Select Selection.Copy *** Windows("RBQ.xls").Activate *** -(navnet her skal ændre sig) Sheets("Prices").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False (meget af det her er sikkert unødvendigt?)
Sub Buying() Navn = thisWorkbook.name Workbooks.Open Filename:="C:\rio\MacroPrice.xls" Range("A1:A100").Select Selection.Copy *** Windows(Navn".xls").Activate *** -(navnet her skal ændre sig) Sheets("Prices").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False (meget af det her er sikkert unødvendigt?)
Sub Buying() Navn = thisWorkbook.name Workbooks.Open Filename:="C:\rio\MacroPrice.xls" Range("A1:A100").Select Selection.Copy *** Windows(Navn & ".xls").Activate *** -(navnet her skal ændre sig) Sheets("Prices").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False (meget af det her er sikkert unødvendigt?)
Sub Buying() Workbooks.Open Filename:="C:\rio\MacroPrice.xls" Range("A1:A100").Select Selection.Copy *** Windows(thisWorkbook.name &".xls").Activate *** -(navnet her skal ændre sig) Sheets("Prices").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False (meget af det her er sikkert unødvendigt?)
Sub Buying() hejsa -mange tak for hjælpen -jeg brugte det til inspiration og videre søgning til nedenståede. -men smid et svar hvis du vil have pointene :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
