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?)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
