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

 
ForumForumDiskussionerDiskussionerVBAVBAMacro för att upprep en sak till slutetMacro för att upprep en sak till slutet
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2015-05-27 08:40
 
Hej
Jag skulle av olika randiga och rutig orsaker behöva trycka F2 och enter i varje cell i kolumn A i dokument jag har.
Tänkte att jag skulle skriva ett makro som börjar i A2 trucker F2 och enter, fortsätter till A3 och trycker F2 och enter och gör så till A(i) där i är sista ifyllda raden i kolumnen. Jag vet dock inte riktigt hur jag ska ta mig an det rent makromässigt och skulle behöva lite hjälp
Nytt inlägg
 2015-05-29 11:52
 
Hej och välkommen till forumet!

Det skulle vara intressant att veta lite mer om varför du måste trycka F2 och ENTER i varje cell. Det låter nämligen som att du har ett problem som man borde attackera från ett annat håll. Har du något annat makro som kollar efter förändringar i cellerna i kolumn A?

Om man nu via makron ändå vill åstadkomma samma sak (av randiga och rutiga orsaker som du skriver) som F2 och ENTER skulle innebära fast via kod så kan man istället göra en funktion som uppdaterar varje cellvärde i kolumn A med sitt eget värde. Detta gör att man då triggar händelsen Worksheet.Change i bladet och eventuella lyssnare då kan agera på vad som behövs.

Jag rekommenderar dock starkt att du kikar på varför du skall behöva göra på detta sättet och hittar själva rotorsaken men nedan har du iaf ett exempel på hur man kan åstadkomma det jag skrev om ovan:

Public Sub UpdateColumnAWithSameValue()
Dim row As Integer
For row = 1 To 100
ThisWorkbook.Sheets("Blad1").Cells(r, 1).Value = ThisWorkbook.Sheets("Blad1").Cells(r, 1).Value
Next
End Sub

Johan Öhrn

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Nytt inlägg
 2015-06-01 11:41
 
Hej
Tack, med lite modifiering (r -> row tex) fungerade det klockrent. Nu ska jag trixa lite så att det fortsätter till slutet oavsett antal rader.

(Angående anledningen så får vi av någon anlending fel format på datat när vi dumpar från våra rapporter till excel som gör att vi inte kan matcha värden mot varann (vlookup, match osv) )
Nytt inlägg
 2015-06-05 17:11
 
Bra att det fungerade och även bra att du upptäckte syntaxfelet med r och row. Det blir lätt så ibland när man skriver något direkt i ett forum men inte testar det först :)

Johan Öhrn

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAMacro för att upprep en sak till slutetMacro för att upprep en sak till slutet

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