Inhoud cel (tekst) gebruiken in macro

[rickbakkenes]

Beste allemaal,

Ik heb een macro geschreven waarin onderstaande regel voorkomt.

Sheets("ANALYSE RICK-DAAN").Range("F121").AddComment "Laag vanwege maximale accrual dec12"

Deze regel heb ik handmatig vanuit een cel in Excel geplakt in de macro.

Is er een mogelijkheid waarbij de inhoud van een cel gebruikt wordt in een macro.

Ik heb allerlei opdrachtregels voor de macro in cellen staan in Excel (die telkens wijzigen, daarom staan ze in een cel)

De inhoud staat dus in J2, J3, J4 etc etc etc.

Kan ik dus in de macro een verwijzing maken naar de tekst in een cel in hetzelfde bestand?

Hopelijk kan iemand mij helpen.

Alvast bedankt.

Mvg Rick

 

[Cobbe]

Je kan die teksten gewoon vervangen door celverwijzingen.
Geef anders iets meer info.

 

[namliam]

Zoiets bedoel je?

For i = 1 To 10
    Cells(i, 6).AddComment Cells(i, 1).Value
Next i

6 is kolom F, 1 is kolom A
Dus in kolom F komt een comment met de tekst die in Kolom A op dezelfde rij staat.

 

[rickbakkenes]

Hoi Cobbe,

Hierbij de huidge macro:
Sub OPMERKING()
'
' OPMERKING Macro
'
Cells.Select
Range("D1").Activate
Application.DisplayCommentIndicator = xlCommentAndIndicator
Selection.ClearComments
Range("I3").Select
On Error GoTo einde
Sheets("ANALYSE RICK-DAAN").Range("F34").AddComment "OPMERKING1 BLA BLA BLA" (staat in celJ2)
Sheets("ANALYSE RICK-DAAN").Range("F43").AddComment "OPMERKING2 BLA BLA BLA BLA" (staat in cel J3)

Selection.SpecialCells(xlCellTypeComments).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 6750207
.TintAndShade = 0
.PatternTintAndShade = 0

einde:
'
End With

End Sub
---------------------------------------------------

Het liefst wil ik de macro als volgt hebben:

Sub OPMERKINGTEST()
'
' OPMERKINGTEST Macro
'
Cells.Select
Range("D1").Activate
Application.DisplayCommentIndicator = xlCommentAndIndicator
Selection.ClearComments
Range("I3").Select
On Error GoTo einde
J2
J3

Selection.SpecialCells(xlCellTypeComments).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 6750207
.TintAndShade = 0
.PatternTintAndShade = 0

einde:
'
End With

End Sub

 

[Cobbe]

Zou die zo goed lopen:

Sub OPMERKING()
 '
 ' OPMERKING Macro
 '
With Sheets("ANALYSE RICK-DAAN")
 Application.DisplayCommentIndicator = xlCommentAndIndicator
 Cells.ClearComments
        .Range("F34").AddComment .Range("J2").Value
        .Range("F43").AddComment .Range("J3").Value
  With .Cells.SpecialCells(xlCellTypeComments).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 6750207
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
einde:
 '
 End With

 End Sub

 

[namliam]

Zoiets bedoel je?

For i = 1 To 10
    Cells(i, 6).AddComment Cells(i, 1).Value
Next i

6 is kolom F, 1 is kolom A
Dus in kolom F komt een comment met de tekst die in Kolom A op dezelfde rij staat.

In de hoop dat het bericht per ongeluk gemist is en niet genegeerd.