Problemer med makro

Du er velkommen til at sende din fil. @-adresse under min profil.

@vifa og Supertekst:

Vil i ikke være søde og offentliggøre svaret her når det er fundet, eller måske blot vise koden til den makro der virker.

Jeg har et lignende problem (som egentlig er lagt til side indtil videre), men jeg håber at kunne løse det, når jeg ser jeres svar.

mvh Folmer

Hej Folmer

Jo naturligvis - men i skrivende stund er der ingen reaktion fra vifa.

#2 fil er modtaget

Forklaringen er følgende:
- Dato    sidste række 60 - her sorteres de 2 sidste rækker ikke i Navn og Kilde
- Navn    -    62 - d.v.s. at de tomme rækker i dato (2 mindre) vises når der sorteres på denne
- Kilde    -    62 - -"-

De tomme celler findes i de rækker hvor der er noget indhold - men ikke i alle kolonner og det er disse der dukker frem

Den måde du finder sidste række på (FørSidste = Range("C" & Rows.Count).End(xlUp).Offset(0, 0).Row)  er sidste række med et indhold og den er netop forskellig.

Jeg vil i hvert fald sige tusind tak for, at du kunne give mig en forklaring :-)

Tak for hjælpen!

Selv tak
Så kan du lukke tråden ved at acceptere mit svar

Jeg vil lige give en update på mit problem - efter en mail korrespondance med Supertekst der her været så flink at hjælpe mig, har jeg ved, at ændre Header:=xlGuess til Header:=xlNo i min kode fået løst mit problem.

Her er koden der virker:

Sub HjemmesideAscending()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name
Application.ScreenUpdating = False
FørSidste = Range("C" & Rows.Count).End(xlUp).Offset(0, 0).Row
Range("C6:E" & FørSidste).Select
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets(homeArk).Select
Range(home).Select
GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub


Header:=xlGuess bevirker at funktionen selv gætter om der en overskrift i første række, hvilket i mit tilfælde har gjort, at min sorterings funktion ikke har virket ordentlig.