PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAOmrådeOmråde
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2009-03-02 10:00
 

Hej

Behöver lite hjälp med att ändra i koden nedan.

Selection.AutoFill Destination:=Range("A2:A136"), Type:=xlFillDefault

Vill att från aktiv cell fylla upp till A2, dvs att kolumnen är både större och mindre ibland

Använder excel 97 "pust"

Tack på förhand till den som tar sig an mitt lilla problem.

Nytt inlägg
 2009-03-03 09:03
 

Kommer inte ihåg exakt vilka funktioner som fanns i Excel 97, men det här problemet har massor av lösningar, så något borde ju funka.

Vad är "Selection" i ditt fall ovan?

Är det A2 eller A136?

Om du utgår ifrån att Selection = A136 så kan du skriva:

Selection.AutoFill Destination:=Range(Range("A2"), Selection), Type:=xlFillDefault

Om du börjar på A2 så får du istället räkna ut sista raden. En variant är då Range("A2").End(xlDown), dvs:

Selection.AutoFill Destination:=Range(Range("A2"), Range("A2").End(xlDown)), Type:=xlFillDefaultMen det kräver att det inte finns några tomma celler ner till A136, och att det är minst en cell.

Ytterligare varianter är Range("A65536").End(xlUp), eller att räkna antalet rader med t.ex. Range("A2").CurrentRegion.Rows.Count.

Vad man väljer beror lite på hur koden ser ut.

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAOmrådeOmråde

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter