Boulund Praktikant
14. marts 2018 - 13:27 Der er 8 kommentarer

Indsæt ud for korrekt dato celle

Jeg har behov for en kode der kopierer en værdi fra celle A1 i Projekt Ark1, åbner Projekt Ark2 og indsætter værdi ud for dags dato som er listet i kolonne A.
Alle dato står i kolenne A og værdien skal indsættes ud for dags dato i kolonne B, C, D osv.
excelent Ekspert
14. marts 2018 - 21:30 #1
Dim xValue

Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1).Select
Selection.Resize(1, 3) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub
Boulund Praktikant
15. marts 2018 - 08:30 #2
Det virker fint, dog skal værdien ikke sættes ind 3 steder (B,C,D) men kun et sted i en celle der er fri. Står der en allerede en værdi ud for dato 15-03-2018 i celle B, skal værdien sættes ind i celle C, altså fortløbende i en celle der er fri.
excelent Ekspert
15. marts 2018 - 17:08 #3
Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Select
Selection.Offset(0, Cells(Selection.Row, 16000).End(xlToLeft).Column) = xValue
'Selection.Resize(1, 3) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub
excelent Ekspert
15. marts 2018 - 17:09 #4
husk lige
Dim xValue
før koden
Boulund Praktikant
16. marts 2018 - 11:20 #5
Tak.
Koden fejler ikke, filen (projektet) bliver åbnet og gemt, men der er ikke nogle værdier i feltet ud for dato. Med andre ord den gemmer ikke værdierne.
excelent Ekspert
16. marts 2018 - 15:00 #6
Er alle celler tomme i samme række til højre for hvor værdi skal indsættes.?
hvis der fx er et enkelt mellemrum eller anden værdi i en celle ude til højre, vil værdien blive indsat til højre for denne celle.
Boulund Praktikant
19. marts 2018 - 07:21 #7
Der er ikke nogle usynlige tegn eller lignende i felterne. Jeg kan dog se på filen at den har været åbnet og gemt, da datoen i stifinder ændrer sig.
excelent Ekspert
20. marts 2018 - 21:45 #8
Koden virker fint i min test
har rettet i denne linie.:
Selection.Offset(0, Cells(Selection.Row, Columns.Count).End(xlToLeft).Column) = xValue


Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Select
Selection.Offset(0, Cells(Selection.Row, Columns.Count).End(xlToLeft).Column) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Mere end 1.000 CPR-numre på danske universitetsstuderende lå offentligt tilgængeligt i mere end tre år
En fejlplacering af to filer har betydet at CPR-numre på mere end 1.000 studerende har ligget offentligt tilgængeligt på nettet i mere end tre år.
Computerworld
Gratis wifi på vej i 15 danske byer: Disse danske byer bliver del af europæisk wifi-initiativ
Femten danske byer er blevet udvalgt til at deltage i et EU-initiativ, der betyder, at borger og turister i byerne i løbet af de kommende år vil få adgang til gratis wifi.
CIO
Tag med på Computerworlds store lederkonference og mød de danske top-CIO'er, som bygger de nye it-afdelinger
Anvendelsen af digital teknologi og organiseringen af it-afdelinger er under radikal transformation. På konferencen Digitaliseringsledelse 2.0 kan du møde de CIO'er fra Bankdata, Adform og Rockwool, som står i spidsen for teknologi-adoptionen.
Job & Karriere
Efter blodrødt regnskab: Nu fyrer Atea 20 medarbejdere i Danmark
Atea fyrer nu 20 medarbejdere. Det sker som en direkte konsekvens af, at den danske forretning er under pres, oplyser selskabets direktør.
White paper
Gratis e-bog: Mister du pusten på BI-bjergetapen? Tag den lige vej i stedet!
Denne e-bog er relevant for dig der sidder i en virksomhed, der allerede arbejder med Dynamics 365 for Finance & Operations, eller som overvejer at få det. Det er din genvej til at komme tilbage på BI-motorvejen, hurtigt og på den rigtige måde. Du finder ud af hvordan du kommer ud over bumpene og uden om hullerne på bjergvejen med CBI Plugin, så du igen kommer tilbage på motorvejen og kan køre direkte mod målet. Læs videre og bliv klogere på, hvordan du kommer over – eller helt undgår – de største bump på bjergetapen.