Søg
Avatar billede lordnelson Seniormester
09. maj 2012 - 09:58 Der er 11 kommentarer og
1 løsning

Autofill Vba

Hej
Har denne kode
' Range("c2").Select
'fra = ActiveCell.Offset(0, 0).Address
'til = ActiveCell.Offset(-1, 0).End(xlToRight).Offset(1, 0).Address
'  Selection.AutoFill Destination:=Range(fra, til)

Viker fint fint

Men vil gerne kunne lave den så den vælger
Range("c2:c28") og fylder ud til sidste celle der er noget
i i række 1
Avatar billede Thor Østergaard Ekspert
09. maj 2012 - 10:10 #1
Prøv med

Range("C2:C28").AutoFill Destination:=Range("C2", Range("A1").End(xlDown).Offset(0, 2))
Avatar billede lordnelson Seniormester
09. maj 2012 - 16:09 #2
Metoden autofill for klassen range mislykkes
Avatar billede Thor Østergaard Ekspert
09. maj 2012 - 16:12 #3
Så må du sende mig en kopi af dit ark - eller et tilsvarende uden følsomme data i. Koden kører fint hos mig.
Avatar billede store-morten Ekspert
09. maj 2012 - 16:41 #4
Sub test()
Range("c2:C28").Select
til = ActiveCell.Offset(-1, 0).End(xlToRight).Offset(1, 0).Address
KolBog = Mid(til, 2, InStr(2, til, "$") - 2)
  Selection.AutoFill Destination:=Range("C2:" & KolBog & "28")
End Sub
Avatar billede lordnelson Seniormester
09. maj 2012 - 17:40 #5
Hej hvis jeg i et ganske sølle ark
fylder noget i række 1
og skriver noget i c2 samt c28
og kører koden
Range("C2:C28").AutoFill Destination:=Range("C2", Range("A1").End(xlDown).Offset(0, 2))
Kommer det der stod i c28 i c29
Avatar billede lordnelson Seniormester
09. maj 2012 - 17:44 #6
Yes Morten , den virker
Smid et svar -- skide giodt
Avatar billede store-morten Ekspert
09. maj 2012 - 17:59 #7
Syns jeg ku kender din kode ;-)
Avatar billede Thor Østergaard Ekspert
09. maj 2012 - 18:00 #8
sorry - misforstod opgaven.
Avatar billede lordnelson Seniormester
09. maj 2012 - 18:01 #9
He he Morten
Lavede en fejl der skulle stå 200 i p , dem har du til gode
Tak for hjælpen
Avatar billede store-morten Ekspert
09. maj 2012 - 18:20 #10
Prøv også:

Sub test2()
Range("C2:C28").AutoFill Destination:=Range("C2", Range("C2").Offset(-1, 0).End(xlToRight).Offset(27, 0))
End Sub
Avatar billede store-morten Ekspert
09. maj 2012 - 18:29 #11
Og koden i #0

Sub AutofillvandretTH_2()
Range("c2").AutoFill Destination:=Range("C2", Range("C2").Offset(-1, 0).End(xlToRight).Offset(1, 0))
End Sub

Der er mange løsninger på samme opgave ;-)
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
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:32 Jeg kan ikke opdatere min iPad til ios 26.4.1. Af Bettina i Apps til iOS
I dag 08:32 Office pakke LTSC vs Retail? Af Don G i Office & Kontorpakker
I går 21:19 Lydindstilling Prosonic TV Af TageArent i Fjernsyn & projektorer
I går 15:37 Sort skærm Af mort1 i Windows
09/0412:32 iPadOS 26.4.1 kan ikke opdatere Af claes57 i Apps til iOS
White papers
Flere white papers »