• 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.

VBA loop opmerkingen toevoegen met cel waarde

Status
Niet open voor verdere reacties.
Y

youdeni

Gebruiker
Lid geworden
28 feb 2008
Berichten
147
Experts,

Heb de volgende vraag. Ik heb een bestand (zie bijlage) In dit bestand staan in kolom "D" data types. Nu wil ik dat als in een cel het woord "Option" voorkomt dat de waarde die bij die cel in kolom "G" staat toegevoegd wordt als notitie aan de cel in kolom "D" Vervolgens ook dat de regel (van kolom A t/m G) een kleur krijgt.
Daarnaast Staan in kolom "F" Fieldclasses, graag zou ik willen dat indien hier de waarde FlowFilter of Flowfield staat. Dat in kolom "A" van de desbetreffende rij een notitie wordt toegevoegd met FlowFilter of FlowField.
In de bijlage heb ik een tabblad de vraag staan zoals ik die binnen krijg en in tabblad Antwoord hoe ik het graag wil hebben. Het aantal rijen kan varieren.
Ik heb geprobeerd via een loop en een next statement gebruikt, maar ik kom dan niet bij de andere kolommen.
Wie kan mij op weg helpen
 

Bijlagen

  • HelpMij.xlsx
    13,9 KB · Weergaven: 27
Duidelijke vraag & illustratie :thumb:

Code: 
Sub M_snb()
  With Blad1.Cells(1).CurrentRegion
      .AutoFilter 4, "Option"
      For Each it In .Columns(4).SpecialCells(12)
         If it.Row > 1 Then it.AddComment it.Offset(, 3).Text
      Next
      .AutoFilter
      
      .AutoFilter 6, "Flow*"
      For Each it In .Columns(1).SpecialCells(12)
         If it.Row > 1 Then it.AddComment it.Offset(, 5).Text
      Next
      .AutoFilter
  End With
End Sub

De kleuren het beste met voorwaardeljke opmaak:
volledige gebied van de gegevens,
formule: =$F1="FlowFilter"
 
Laatst bewerkt:
Beste SNB,

bedankt voor je snelle bericht. Helaas krijg ik als ik de code uitvoer een foutmelding op de regel:.AutoFilter 4, "Option" De foutmelding is Fout 1004 tijdens uitvoering: Methode autofilter van klasse Range mislukt.
Heb de Sub in het bestand gebruikt wat ik als bijlage heb toegevoegd.

Youdeni
 
Ik heb de code ook in dat bestand gebruikt.
 
Hi SNB,

Stom van mij, moest bestand eerst als Macro bestand opslaan, toen ging het wel.
Heb nog een vraagje, wat houd dit stukje code in :
Code: 
 For Each it In .Columns(4).SpecialCells(12)
         If it.Row > 1 Then it.AddComment it.Offset(, 3).Text
Zo hoop ik wat bij te leren.
 
Gebruik F8, F2 en F1 in de VBEditor.
 
snb zei:
Gebruik F8, F2 en F1 in de VBEditor.
Klik om te vergroten...

Special Cells heb ik inmiddels gevonden. Ik ben alleen nog niet achter
Code: 
If it.Row > 1 Then it.AddComment it.Offset(, 3).Text
met name de It.row.
Kan je mij niet een klein beetje op weg helpen :)
 
Kun je svp niet citeren/quoten. Gebruik de knop +Reageer op bericht.
Bestudeer For Each ... Next
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan