janklaasdiederi
Gebruiker
- Lid geworden
- 16 mrt 2006
- Berichten
- 55
Hallo, ik heb het internet al afgezocht naar vba codes, en geprobeerd er een aantal te combineren, maar ik krijg het niet werkend.
Ik wil graag elke rij in meerdere sheets checken op het aantal karakters in die rij, daarna volgt er nog een stukje progameerwerk, maar dat heb ik al werkend; cel rood kleuren en een warschuwing weergeven.
onderstaand het stuk VBA code dat waar ik ben vastgelopen..
Ik wil graag elke rij in meerdere sheets checken op het aantal karakters in die rij, daarna volgt er nog een stukje progameerwerk, maar dat heb ik al werkend; cel rood kleuren en een warschuwing weergeven.
onderstaand het stuk VBA code dat waar ik ben vastgelopen..
Code:
Dim wSheet As Worksheet
Dim csvFile As String
Dim CurrentMap As String
Dim iRow As Long
Dim iCol As Long
Dim iCel As Long
CurrentMap = ActiveWorkbook.Path
Application.DisplayAlerts = False
'select all loadcase sheets
Sheets(Array("S01", "S02", "S03", "S04", "S05", "S06", "S07", "S08")).Select
For Each wSheet In ActiveWindow.SelectedSheets
On Error Resume Next
'highlight all cell containing more the 236 characters, if so it stops creating loadcase files
counter = 0
'For Each c In ActiveSheet.Row(Sum("A1:A100")) 'Was .Range("A1:A100")
For iRow = 1 To LastRow
For Each Row In ActiveWindow.SelectedSheets
iCel = Cells(Row, LastCol + 1)
Cells(Row, LastCol - 1).Sum (Len(Range(Cells(iRow, "A"), Cells(iRow, iCel - 1))))
If (Len(iCel) > 236) Then
'use ActiveCell.Characters.Count ?
'If (Len(c) > 236) Then
ActiveCell.Interior.ColorIndex = 3
counter = counter + 1
End If
'Next iRow
Next Row
'Next c
If counter > 0 Then
MsgBox counter & " cells has length > 235", vbExclamation + vbOKOnly, "Warning"
End If
If counter > 0 Then
End
End If