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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
