Avatar billede jobema Nybegynder
21. november 2012 - 14:03 Der er 5 kommentarer og
1 løsning

Makro til automatisk overførelse af data i andet sheet

Hej
Jeg har brug for en makro der automatisk overføre data fra bestemte celler i et excel regneark over til et andet ark i regnearket.

Data hentes automatisk fra en database i et ark(DATA_1).
Fra det ark(DATA_1) ønsker jeg at der efterfølgende skal overføres bestemte celleværdi, hvis der er er data i til ark (DATA_2)

Da data i ark(DATA_1) er variable uge for uge, har jeg et behov for at arket DATA_2 rækker er variabler.

Jeg har prøvet denne, men da data er variable i DATA_1 giver det problemer
DATA_2 cell A2
=IF(ISTEXT(Data_1!A2);Data_1!A2;"")

Er der nogen der har en løsning på dette?
Avatar billede maffigadaffi Novice
23. november 2012 - 08:34 #1
Hvis den formel du skriver, ligger i koden, så skal den rettes:
I stedet for:
Range("A2").Formula=IF(ISTEXT(Data_1!A2);Data_1!A2;"")

Så prøv:
Range("A2").Formula = " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"

Alternativt kan bruges:
Range("A2").FormulaLocal = " =HVIS(ER.TEKST(Data_1!A2);Data_1!A2;"""")"
Avatar billede jobema Nybegynder
23. november 2012 - 10:18 #2
Skal jeg skrive det i makroen eller i cellen A2 for arket Data_2

Range("A2").Formula = " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"


Hvordan skal markoen i såfald ser ud?
Avatar billede maffigadaffi Novice
23. november 2012 - 10:29 #3
Du skal skrive i makroen.

Hvis det kun er i een celle:

sub Formel()


Worksheets("DATA_2").Range("A2= " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"

end sub


Hvis det er flere celler (eks. A2:A200):

sub Formel()

Worksheets("DATA_2").Range("A2:A200")= " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"

end sub
Avatar billede maffigadaffi Novice
23. november 2012 - 10:30 #4
RETTELSE:

Worksheets("DATA_2").Range("A2").Formula= " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"


ELLER:

Worksheets("DATA_2").Range("A2:A200").Formula = " =IF(ISTEXT(Data_1!A2),Data_1!A2,"""")"
Avatar billede jobema Nybegynder
12. april 2013 - 14:33 #5
Blev til et andet svar
Point gives til maffigadaffi
Avatar billede jobema Nybegynder
12. april 2013 - 14:36 #6
Tak for forsøget
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede 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