Hallo.
Ik heb al op het forum rondgekken en wat gegoogled maar ik kom er niet uit.
Ik heb een bestand gemaakt (met de nodige macro's) om top 40 lijsten te maken die je na exporteren op een website als pdf en excel bestand importeert. (dit gaat allemaal goed)
Maar om de zelf ingevulde veranderingen (positie deze week) in de lijsten elke week weer op te lijnen moet je de eerste kolom "Deze week" sorteren van laag naar hoog.
Echter na/tijdens de eerste (willekeurige) sorteer opdracht die je uitvoert loopt excel vast en is enkel nog maar af te sluiten. (soms zie je niet eens dat hij dan ook gesorteerd heeft!)
Het invullen en sorteren gebeurt in het tabblad website.
UPDATE- Als je de de macro van het tablad PDF verwijdert gaat het wel goed.
Private Sub Worksheet_Calculate()
Dim myCell As Range
Application.ScreenUpdating = False
For Each myCell In Range("KeyCells")
On Error Resume Next
Shapes(myCell.Address & "Final").Delete
With Shapes(myCell.Value)
.Duplicate
.Top = myCell.Offset(, 1).Top
.Left = myCell.Offset(, 1).Left
.Name = myCell.Address & "Final"
End With
With Shapes(myCell.Value)
Set c = Range("C53:C56").Find(myCell.Value).Offset(, -1)
.Top = c.Top
.Left = c.Left
End With
Next myCell
End Sub
Wie kan meekijken wat er fout gaat?
Bekijk bijlage Hitzound Blanco Top 40.xlsm
Ik heb al op het forum rondgekken en wat gegoogled maar ik kom er niet uit.
Ik heb een bestand gemaakt (met de nodige macro's) om top 40 lijsten te maken die je na exporteren op een website als pdf en excel bestand importeert. (dit gaat allemaal goed)
Maar om de zelf ingevulde veranderingen (positie deze week) in de lijsten elke week weer op te lijnen moet je de eerste kolom "Deze week" sorteren van laag naar hoog.
Echter na/tijdens de eerste (willekeurige) sorteer opdracht die je uitvoert loopt excel vast en is enkel nog maar af te sluiten. (soms zie je niet eens dat hij dan ook gesorteerd heeft!)
Het invullen en sorteren gebeurt in het tabblad website.
UPDATE- Als je de de macro van het tablad PDF verwijdert gaat het wel goed.
Private Sub Worksheet_Calculate()
Dim myCell As Range
Application.ScreenUpdating = False
For Each myCell In Range("KeyCells")
On Error Resume Next
Shapes(myCell.Address & "Final").Delete
With Shapes(myCell.Value)
.Duplicate
.Top = myCell.Offset(, 1).Top
.Left = myCell.Offset(, 1).Left
.Name = myCell.Address & "Final"
End With
With Shapes(myCell.Value)
Set c = Range("C53:C56").Find(myCell.Value).Offset(, -1)
.Top = c.Top
.Left = c.Left
End With
Next myCell
End Sub
Wie kan meekijken wat er fout gaat?
Bekijk bijlage Hitzound Blanco Top 40.xlsm
Laatst bewerkt:
