Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA kopier celler fra nytoprettet ark til oversigt
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
ava Se dropdown
Forum Begynder
Forum Begynder


Medlem: 05.Feb.2015
Status: Offline
Point: 5 		Direkte link til dette indlæg Emne: VBA kopier celler fra nytoprettet ark til oversigt
    Sendt: 16.Feb.2015 kl. 14:53
Jeg fandt en løsning, hvis der andre der evt. kommer ud for det samme.
Løsning:
 .Offset(0, 4).Formula = "= Sum('" & txtIpnavn & "'!E31)"
Til top



Til top
ava Se dropdown
Forum Begynder
Forum Begynder


Medlem: 05.Feb.2015
Status: Offline
Point: 5 		Direkte link til dette indlæg Sendt: 06.Feb.2015 kl. 15:19
Hvis jeg sætter det ind. Indsætter den min sumformel fra den nye side ind i det gamle ark. Det vil sige den summe e3-e32 på det gamle ark og trækker ikke det summen fra det nye ark med.
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 05.Feb.2015 kl. 18:47
prøv:
.Offset(0, 4).Formula  =Range("Fun").Formula
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
ava Se dropdown
Forum Begynder
Forum Begynder


Medlem: 05.Feb.2015
Status: Offline
Point: 5 		Direkte link til dette indlæg Sendt: 05.Feb.2015 kl. 17:00
Hej 
Jeg er ny i VBA. Men har alligevel prøvet at springe ud i det.

Jeg har et Excel ark, hvor man via makroer opretter nye faner via en userform, når man skal lave nye projekter.
De første tre er taget direkte fra userformen, mens de næste tre oplysninger skal tages fra det nye oprettet ark.

Med Offset har jeg lavet et oversigtsark med divs. oplysninger.

.Value = txtIpnavn.Text
.Offset(0, 1).Value = txtIpdato.Text
.Offset(0, 2).Value = txtIpbeløb.Value
.Offset(0, 4).Formula  =Range("Fun")

Jeg har prøvet flere metoder. jeg har kaldt cellen "Fun"for det var nemmere at kunne finde den igen. Men den bliver ikke variende som den gerne skulle. Cellen skal vise et rest beløb.
txtIpnavn er tidligere kald for der det nye navn på fanen.

Jeg har også prøvet denne metode 
.Offset(0, 4).Formula = " 'txtIpnavn' !e31"
 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk