• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Inhoud cel (tekst) gebruiken in macro

Status
Niet open voor verdere reacties.

rickbakkenes

Gebruiker
Lid geworden
4 feb 2011
Berichten
58
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
 
Je kan die teksten gewoon vervangen door celverwijzingen.
Geef anders iets meer info.
 
Zoiets bedoel je?
Code:
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.
 
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
 
Zou die zo goed lopen:
Code:
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
 
Zoiets bedoel je?
Code:
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.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan