06. december 2018 - 17:10Der er
3 kommentarer og 1 løsning
Problem med loop, hvor der ikke er udfyldt i alle celler i EXCEL
Hej, jeg har et script, der kører en kollone igennem. Hvis en celle i kollone er udfyldt, ændrer den navnet på en bestemt fil i en mappe, hvis ikke går den videre til næste celle i kollonen, indtil for-loopen stopper ved 20.
Mit problem er, at den tager de første 3 ikke-kronologiske med, men herefter stopper den med at ændre filnavnet.
Mit script er:
Sub ChangeNamesFilesNotCronologic()
'Denne virker delvist & tager de først 3 ikke kronologiske med
Dim MyPath As String MyPath = ActiveWorkbook.Path & "\"
Range("F2").Select
r = 2
For i = 1 To 20
On Error Resume Next 'Hvis der er noget i cellen, ændrer filnavn i mappe If ActiveCell <> "" Then Name MyPath & Cells(r, 6).Value & ".pdf" As MyPath & Cells(r, 7).Value & ".pdf" r = r + 1 ActiveCell.Offset(1, 0).Select
'Hvis cellen er tom, går en en kke ned ElseIf ActiveCell = "" Then ActiveCell.Offset(1, 0).Select End If
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Hvad sker der hvis du sætter end if tidligere og sletter noget:
Sub ChangeNamesFilesNotCronologic()
'Denne virker delvist & tager de først 3 ikke kronologiske med
Dim MyPath As String MyPath = ActiveWorkbook.Path & "\"
Range("F2").Select
r = 2
For i = 1 To 20
On Error Resume Next 'Hvis der er noget i cellen, ændrer filnavn i mappe If ActiveCell <> "" Then Name MyPath & Cells(r, 6).Value & ".pdf" As MyPath & Cells(r, 7).Value & ".pdf" r = r + 1 End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Jeg forstår ikke helt hvad du mener med ikke-kronologiske.
'Denne virker delvist & tager de først 3 ikke kronologiske med
Dim MyPath As String MyPath = ActiveWorkbook.Path & "\"
For i = 2 To 20
On Error Resume Next 'Hvis der er noget i cellen, ændrer filnavn i mappe If ActiveCell <> "" Then Name MyPath & Cells(i, 6).Value & ".pdf" As MyPath & Cells(i, 7).Value & ".pdf" End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
