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


Emne lukketKopiere til første tomme celle ?
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Guests Se dropdown
Gæst
Gæst
Direkte link til dette indlæg Emne: Kopiere til første tomme celle ?
    Sendt: 29.Mar.2011 kl. 09:14
Har brug for hjælp til et makro der kan kan kopiere en celle og indsætte som værdi i en anden celle (denne del er nem nok) mit problem er følgende: hvis der står noget i den celle der skal kopieres til skal den kopiere til cellen under. Står der også noget i den celle skal den også bare tage cellen under osv. indtil den finde den første tomme celle.
 
Håber der er nogen der har fanget hvad jeg mener
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Mar.2011 kl. 14:25
Hej lahas,
Som et hurtigt skud fra hoften, denne kodestump markerer den sidste/nederste celle i kolonne A
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select
 
Den skal naturligvis rettes til efter dit behov.
 
//Allan
 
//Allan
Til top
Gogo Se dropdown
Bronze bruger
Bronze bruger


Medlem: 04.Mar.2011
Land: Denmark
Status: Offline
Point: 48 		Direkte link til dette indlæg Sendt: 30.Mar.2011 kl. 23:03
Hej Allan,

Hvis jeg nu skal kopiere fra A1 og sætte ind i C1, hvordan skal koden så se ud og hvor skal den sættes ind hen? Her mener om den skal sættes ind This Worksheet eller en ny modul osv??

Gogo...
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 31.Mar.2011 kl. 14:04
Hej igen,
 
Indsæt koden i et modul.
Denne kode tager værdien i A1 og sætter den ind i den nederste celle i kolonne A
 
Sub KopierA()
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).value = Range("A1").value
End sub
 
Hvis du vil kopiere fra værdien A1 til C1 skal koden så således ud.
 
Sub KopierA()
Range("C1").value = Range("A1").value
End sub
 
//Allan
Til top
Gogo Se dropdown
Bronze bruger
Bronze bruger


Medlem: 04.Mar.2011
Land: Denmark
Status: Offline
Point: 48 		Direkte link til dette indlæg Sendt: 31.Mar.2011 kl. 15:40
Tak for dit svar Allan.

Har lige et spørgsmål til.

Eks.
A1 B1
Øl 50

Nu vil jeg gerne have flyttet A1 til første ledige celle i D og B1 til første ledige celle i E. De skal ske i en bevægelse. 

Håber du kan forstå mig.

Gogo
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 31.Mar.2011 kl. 19:14
Prøv med:
 
Sub KopierA_Og_B()
Range("D" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
Range("E" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = Range("B1").Value
End Sub
 
Til top
Gogo Se dropdown
Bronze bruger
Bronze bruger


Medlem: 04.Mar.2011
Land: Denmark
Status: Offline
Point: 48 		Direkte link til dette indlæg Sendt: 01.Apr.2011 kl. 16:48
Takker.... :)
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 01.Apr.2011 kl. 21:00
Velbekomme Gogo, dejligt du kunne bruge mit svar.
 
//Allan
MVH

Allan
Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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