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

 
ForumForumDiskussionerDiskussionerVBAVBASortering makroSortering makro
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2020-11-06 08:01
 

 Har gjort makron för sortering på alfabetets alla bokstäver, men bokstäverna C och R fungerar det inte på. Någon som vet varför ?

Alla makron ser lika ut förutom bokstaven för aktuell flik. Se nedan.
Sub C()
'
' C Makro
'
 
'
    Range("B3:F2503").Select
    ActiveWorkbook.Worksheets("C").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("C").Sort.SortFields.Add2 Key:=Range( _
        "B3:B2503"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("C").Sort
        .SetRange Range("B3:F2503")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Nytt inlägg
 2020-11-07 21:53
 

 Inte testat koden men ser rätt ut. Har du dubbelkollat att du inte fått in skräp i grunddata?

Nytt inlägg
 2020-11-08 06:39
 

 Jag har gjort ett makro och sedan kopierat detta x antal gånger och sedan bara bytt bostäver för varje flik,

så de är exakt lika alla makron, på C och R måste jag skriva CC och RR för att det skall fungera.

Nytt inlägg
 2020-11-09 12:32
 

 Skumt, mig veterligen finns det inget som skulle kunna få just C och R fliken att inte vilja lira. Därav misstanken om att det kommit in skräptecken i de flikarna så att bladet inte kan identifieras. 

Ett litet tips är dock att försöka undvika redundant kod, det blir så många ställen och ändra på när förändring sker. Det går exempelvis att iterera igenom alla dina blad och köra allt i ett svep. Exempel

Dim sh as worksheet

'//iterara alla sheets i arbetsboken

For each sh in thisworkbook.sheets

'//Villkor för att göra något, i exemplet kollar vi att textlängen på bladnamnet är 1.

IF len(sh.name) = 1 then

'//inuti if satsen görs något, exempelvis din sortering. 

with sh

.sort, och allt annat du ville göra

end with

End if

Next sh

Mvh

Christian

 

   

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBASortering makroSortering makro

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