Private Sub removeColorAndComments(thiscell As Range) thiscell.Interior.ColorIndex = 19 If Not thiscell.Comment Is Nothing Then thiscell.Comment.Delete End If End Sub
Jeg forsøger altså at undgå at select'e min "offset". Kan jeg det?
Sub test() Dim i As Long, j As Long For i = 1 To 30 For j = 1 To 10 removeColorAndComments [FirstCostCenter].Offset(i, j) Next Next End Sub
Private Sub removeColorAndComments(thiscell As Range) thiscell.Interior.ColorIndex = 19 If Not thiscell.Comment Is Nothing Then thiscell.Comment.Delete End If End Sub
Lad os starte med "" i forhold til []. Jeg tror ikke helt jeg forstår hvorfor jeg skal erstatte " med brackets.
Når jeg kører Debug.Print Range([firstCostCenter]).Offset(i, j + k).Address får jeg fejl
Men Debug.Print Range("firstCostCenter").Offset(i, j + k).Address virker. firstCostCenter er en navngiven celle. Jeg får en run-time error med [] brackets "Method 'Range' or of object '_Global failed.
Så - desværre Bak, så skal jeg lige bruge en iteration på at forstå din (ellers altid korrekte) guidance... :-)
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.