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
C2IT opkøber dansk it-konsulenthus: Tidligere Sentia-boss med ledende roller i begge selskaber har forhandlet prisen
Interview: Michael Meister er del af ledelsen i både C2IT og Softhuset, som lægges sammen. Den tidligere Sentia-direktør har forhandlet prisen og varetaget Softhusets interesser i forhandlingerne, men fortsætter i C2IT efter handlen.
Computerworld
Her er de tre nye iPhones: Apple har netop præsenteret to frække topmodeller samt en helt ny "folketelefon"
Apple har netop løftet sløret for tre nye iPhones. Den ene af dem er måske det tætteste Apple kommer på en folketelefon
CIO
Machine learning og kunstig intelligens med Jesper Steen Møller "Der er rigtigt meget teknik som for nogen ser nærmest magisk ud"
Tech fra Toppen: Hvornår det giver mening at bruge machine learning - og hvordan du kommer bedst muligt i gang? Få svaret i den seneste udgave af Computerworlds podcast "Tech fra toppen" med datalog Jesper Steen Møller.
Job & Karriere
Her er syv job-annoncer der overrasker med helt usædvanlige overskrifter
Der er mange ledige it-job i øjeblikket. It-jobbank har her fundet syv spændende stillinger, der har det til fælles, at annoncen har en utraditionel overskrift.
White paper
Undersøgelse: En mistet pc koster i gennemsnit virksomheder mellem 200.000 og 300.000 kr.
Datasikkerhed handler ikke blot om hackere, som forvolder stor skade fra deres skjulesteder rundt omkring i verden. Det handler i lige så høj grad om sløseri eller kriminalitet fra organisationens egne medarbejdere. Det lyder umiddelbart tilforladeligt, men når en medarbejder mister sin pc eller smartphone, er konsekvenserne til at tage og føle på. En mistet pc koster mellem 200.000 og 300.000, og der stjæles ca. 36.000 pc’er om året i Danmark. I dette whitepaper kan du læse om hvordan du sikrer dig imod at dette sker i din virksomhed.