Print side | Luk vindue

Kopiere til første tomme celle ?

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=300
Udskrevet den: 19.Apr.2025 kl. 21:37


Emne: Kopiere til første tomme celle ?
Besked fra: Guests
Emne: Kopiere til første tomme celle ?
Posteringsdato: 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


Svar:
Besked fra: Allan
Posteringsdato: 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

Besked fra: Gogo
Posteringsdato: 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...

Besked fra: Allan
Posteringsdato: 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

Besked fra: Gogo
Posteringsdato: 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

Besked fra: Allan
Posteringsdato: 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
 

Besked fra: Gogo
Posteringsdato: 01.Apr.2011 kl. 16:48
Takker.... :)

Besked fra: Allan
Posteringsdato: 01.Apr.2011 kl. 21:00
Velbekomme Gogo, dejligt du kunne bruge mit svar.
 
//Allan


-------------
MVH

Allan
https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in


Print side | Luk vindue