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





Computerworld
Interneteksperternes mareridt er gået i opfyldelse: EU godkender omstridt direktiv, der "ødelægger internettet for altid"
EU's lovgivende udvalg har godkendt nye copyright-regler, som indeholder to kontroversielle paragraffer. Eksperter advarer imod, at artikel 11 og 13 kan ødelægge internettet for altid. Reglerne mangler stadig at blive endeligt vedtaget.
CIO
Henrik Jeberg om at arbejde i Silicon Valley: "Er du dygtig nok får du tilbud der får en til at falde ned af stolen."
Henrik Jeberg bor i San Francisco og er direktør i Hampleton Partners, der rådgiver om opkøb med særligt fokus på teknologi. Hør ham fortælle om forskellen på Danmark og Silicon Valley - og om nogle af de vilde forhold der hersker i verdens ubestridte tech-hovedstad.
Job & Karriere
KMD opsagde tryghedsaftaler med medarbejderne få måneder før 300 medarbejdere blev outsourcet til IBM
KMD har i løbet af foråret opsagt to såkaldte tryghedsaftaler med en del af selskabets medarbejdere. Når aftalerne stopper ved udgangen af 2018, er de pågældende medarbejdere ikke længere berettiget til særlig godtgørelse. Det kan få konsekvenser, hvis IBM som forventet skærer i antallet af de 300 KMD-medarbejdere, som selskabet overtager.
White paper
Mobility - her er de aktuelle udfordringer
Hvad med sikkerheden? Mobility-bølgen fejer igennem danske virksomheder, og der er masser af muligheder og faldgruber. Sikkerheden halter, men det kan der gøres noget ved. Produceret af Computerworld.dk i oktober 2014.