Cel vullen met opvolgend nr uit folder

[cow18]

een beetje proberen op alles te anticiperen.
Let wel, helemaal bovenin de module moet die eerste regel staan !!!

[COLOR="#FF0000"][SIZE=3]Option Compare text[/SIZE][/COLOR]
Sub TestCow()
   mijnpath = Range("$B$9") & Range("$B$10")
   a0 = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & mijnpath & """*.pdf /b").stdout.readall, vbCrLf)   'alle pdf's in die subdirectory

   a1 = Filter(a0, "pietje-", True, vbTextCompare)   'alle pdf's die "pietje-" bevatten
   For i = 0 To UBound(a1)                       'alle dergelijke files aflopen
      If a1(i) Like "pietje-####.pdf" Then       'explicit van dat formaat ?
         imax = Application.Max(imax, CLng(Mid(a1(i), 8, 4)))   'grootste cijfer onthouden
      End If
   Next

   i = Application.Max(UBound(a0) + 2, imax + 1)
   MsgBox "aantal pdf's +1 = " & UBound(a0) + 2 & vbLf & "grootste teller + 1  = " & imax + 1 & vbLf & vbLf & "volgende file wordt : pietje-" & Format(i, "0000") & ".pdf"

End Sub

 

[cow18]

als ik het zo herlees, dan kon het nog eenvoudiger door in die regel waar a0 aangemaakt wordt, gewoon al direct te zoeken op de files "pietje-*.pdf" ipv "*.pdf" en daar dan een kort lusje rond te schrijven.
Eerst even afwachten.

 

[Rietv]

Hoi Luc,

Helemaal goed, blijft eigenlijk 1 klein dingetje over.
Hoe krijg ik met Range("B4").Value = i ook de "-0000" erbij.
Nu geeft hij dus alleen het laatste cijfer weer.
Ik heb diverse dingen geprobeerd maar kom daar niet echt uit.

Gr Cor

 

[Rietv]

Hoi Iedereen,

Wat Cow heeft gemaakt werkt ook helemaal goed.
Blijft over wat ik al vertelde (per abuis als aanhef Luc) ipv Cow.
Hoor graag even indien mogelijk.

Gr Cor

 

[LucHeyndrickx]

Het simpelste is wellicht de celeigenschappen aan te passen.
Rechtermuisknop => Celeigenschappen => aangepast => -0000

Dan blijft de waarde in die cel een numerieke waarde. Maar dan moet je wel opletten als je er verder mee gaat werken in je benaming van je bestand.
In verscheidene van de oplossingen die gegeven zijn wordt daar wel al rekening mee gehouden.

 

[Rietv]

Hoi Luc,

Helaas werkt dat niet. (wel de celeigenschap naar -0000) dus dat is niet het probleem.
Maar het samenvoegen van de cellen .... (Pietje) en (-0001) resulteert in [Pietje-1).
En die zou ik graag naar (Pietje-0001) willen namelijk.
Wellicht op te lossen met VBA?
Vandaar mijn vraag.

Gr Cor

 

[LucHeyndrickx]

In de cel B11 deze formule:

=B1&TEKST(B4;"-0000")&".pdf"

Jij had oorspronkelijk gebruik gemaakt van de functie TEKST.SAMENVOEGEN. Dat mag nog altijd, maar persoonlijk vind ik dit een nutteloze functie.
Dit deeltje hoeft dus geen VBA

 

[Rietv]

Beste Luc en alle anderen,

Ik ben weer perfect en snel geholpen op dit forum.
Super content ermee en iedereen bedankt voor het meedenken hierin.
Heel veel geleerd en ik kan weer door.
Mocht ik weer ergens tegen aan lopen, zal ik mij zeker weer melden met een nieuwe topic.
Voor nu graag tot een volgende keer.

Groeten Cor