03. februar 2021 - 19:00Der er
11 kommentarer og 3 løsninger
Overføre tekst fra et ark til et andet
Hejsa,
Så har jeg igen en udfordring jeg kæmper med, som jeg håber nogen kan hjælpe mig på rette vej med.
Jeg har brug for at overføre indholdet fra ark Test1 til ark Test2.
Hvis jeg i Test1 stiller mig i kolonne 3 (A), skal den ud fra den celle, (rækken vil variere), jeg står på tage teksten fra cellerne som nedenfor:
Eksempel: Jeg står i celle A20 i Test1 her vil jeg udføre nedenstående når jeg kører en makro. På ark Test 2, skal den fjerne indholdet i nogle bestemte celler, inden den begynder overførsel. Her er et par celler som eksempler, så håber jeg at jeg selv kan programmere det færdigt, C10, C4 og F12.
Her efter skal den overføre indholdet fra cellerne: C22 til celle B10 i Test2 og D22 til celle C10 i Test2 arket.
I Test1 har jeg i kolonne B22 to forskellige muligheder fra en rulle menu. X1 og X2 Hvis B22 viser X1, skal den overføre R22 fra Test 1 til F12 på Test2. Hvis B22 viser X2, skal den overføre R22 fra Test 1 til C14 på Test2.
På ark Test 2, skal den fjerne indholdet i nogle bestemte celler, inden den begynder overførsel. Her er et par celler som eksempler, så håber jeg at jeg selv kan programmere det færdigt, C10, C4 og F12.
Samme handling skal den kunne lave, med samme offset hvis jeg fx stiller mig i A57 i Test1.
Håber jeg har forklaret mig tydeligt, så det kan forstås.
"Hvis jeg i Test1 stiller mig i kolonne 3 (A)?" Kolonne 3 = C? Kolonne 1 (A)
"den fjerne indholdet i nogle bestemte celler" Er det altid de samme celler? JA
"Samme handling skal den kunne lave, med samme offset hvis jeg fx stiller mig i A57 i Test1." Gælder dette også for Test2, eller er det faste celler? Test2 er de samme celler. Derfor skal den rydde de bestemte celler først.
Så skal jeg herefter se om jeg kan få den til at lave Test2 om til en PDF og sætte den ind i en mail. Men der har jeg fundet en kode på nettet.
"Samme handling skal den kunne lave, med samme offset hvis jeg fx stiller mig i A57 i Test1." Gælder dette også for Test2, eller er det faste celler? Det er faste celler.
Har siddet og fiflet med det noget tid, men kan ikke få den til at markeret. Af ren nysgerrighed, kan du se hvad den fejler? Fejl meddelelse: Application-defined of object-defined error.
Skal dog siges at hvis jeg bruger disse linjer, så virker det.
Den overfører ikke noget. Er det noget med If, Then eller ElseIf ?
Men hvis jeg kun har dette, kan den godt: Worksheets("Test1").Range("R22").Copy _ Destination:=Worksheets("Test2").Range("F12") Men så er X1 og X2 ude af funktion.
Men der manglede "value" Noget søgning og prøvning, så lykkedes det mig. Learning by doing 😁
If Worksheets("Kalk").Range("M" & ActiveCell.Row + 2).Value = "JA" Then
Men Dejligt at I gider hjælpe os der kæmper med det :) Tak
Synes godt om
Ny brugerNybegynder
Din løsning...
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.