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
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.
