globe
Verenigingslid
- Lid geworden
- 18 mrt 2001
- Berichten
- 3.584
Ik gebruik al jaren een script om cellen waar een bepaalde waarde, in dit geval bestandsnaam.jpg, in staat te voorzien van een webadres.
Lege cellen worden overgeslagen.
Ooit geknipt van helpmij hier
Dus afbeelding.jpg wordt dan webadres/afbeelding.jpg in mijn voorbeeld gebeurt dit in kolom E
Nieuwe situatie:
- Met een upgrade van mijn systeem is het mogelijk om meerdere afbeeldingen in 1 cel te plakken, echter werkt mijn script dan niet meer omdat er aan de hele celwaarde het webadres wordt toegevoegd.
- tevens is het mogelijk om andere bestandsextesties te uploaden, dus er moet nu naar extensies .jpg / .eps / . psd / .png gekeken worden. Andere extensies mogen niet, dus naar 'niet' lege cellen kijken
- ik wil een range aangeven waarin gekeken moet worden, nu kopieer ik het script telkens om naar een andere kolom te kijken, dat werkte prima omdat ik vaste kolommen had, deze zijn echter nu variabel geworden.
het script wat ik nu gebruik (van toepassing op kolom E)
Lege cellen worden overgeslagen.
Ooit geknipt van helpmij hier
Dus afbeelding.jpg wordt dan webadres/afbeelding.jpg in mijn voorbeeld gebeurt dit in kolom E
Nieuwe situatie:
- Met een upgrade van mijn systeem is het mogelijk om meerdere afbeeldingen in 1 cel te plakken, echter werkt mijn script dan niet meer omdat er aan de hele celwaarde het webadres wordt toegevoegd.
- tevens is het mogelijk om andere bestandsextesties te uploaden, dus er moet nu naar extensies .jpg / .eps / . psd / .png gekeken worden. Andere extensies mogen niet, dus naar 'niet' lege cellen kijken
- ik wil een range aangeven waarin gekeken moet worden, nu kopieer ik het script telkens om naar een andere kolom te kijken, dat werkte prima omdat ik vaste kolommen had, deze zijn echter nu variabel geworden.
het script wat ik nu gebruik (van toepassing op kolom E)
Code:
Sub AddWebadres()
Dim i As Long
With ActiveSheet
For i = 2 To .Cells(.Rows.Count, "e").End(xlUp).Row
If Right(.Cells(i, 5), 4) = ".jpg" Then
.Cells(i, 5) = "webadres/" & .Cells(i, 5)
End If
Next i
End With
End Sub
Bijlagen
Laatst bewerkt: