Opmerkingen

[rafifaisal]

Hey allemaal,
Is het mogelijk om de gegevens die ik in de cellen van kolom A te filteren en in kolom b naast de desbetreffende cel te zetten?


alvast bedankt

 

[AlexCEL]

Sorry, deze vraagstelling is wat te kort door te bocht. Probeer het nog eens s.v.p.

En een voorbeeldbestandje met daarin aangegeven wat je wilt wordt ook op prijs gesteld.

 

[VenA]

Volgens mij kan je dit, als ik de vraag goed begrepen heb, alleen oplossen met VBA.

Probeer deze eens

Sub VenA()
For Each cl In Sheets(1).UsedRange.Columns(1).SpecialCells(12, 2)
    cl.Offset(, 1) = cl
Next cl
End Sub

 

[rafifaisal]

Ja sorry allemaal. Nu ik mn vraag herlees is die inderdaad helemaal niet duidelijk.
Even opnieuw:
In Kolom A heb ik allemaal contactnamen staan. In elke cel heb ik voor deze contact in de opmerking een telnr of email adres ingegeven
Nu wil ik deze opmerkingen eruit halen en in kolom B zetten.

Hoe kan ik dit eruit halen?

 

[Warme bakkertje]

Sub WB()
For Each cl In Sheets(1).UsedRange.Columns(1).SpecialCells(12, 2)
    cl.Offset(, 1) = cl.Comment.Text
Next cl
End Sub

 

[HSV]

Sub hsv()
Dim cl As Range
For Each cl In Sheets(1).Columns(1).SpecialCells(2)
    cl.Offset(, 1) = cl.Comment.Text
    'cl.Comment.Delete  'haal de apostrof weg voor verwijdering van de comment.
Next cl
End Sub

 

[rafifaisal]

Hallo,
Ik krijg onderstaande foutmelding bij het uitvoeren van de macros van HSV en Warme Bakkertje

Fout 91
Objectvariabele of blokvariabele With is niet ingesteld

 

[Warme bakkertje]

Vervang deze Sheets(1) eens door Sheets("naam van je werkblad").

 

[rafifaisal]

Nog steeds.
En de fout wordt op deze lijn gegeven

cl.Offset(, 1) = cl.Comment.Text

 

[VenA]

Dan beb je er geen of niet overal een 'comment' staan. Plaats anders eens een voorbeeldbestandje zie ook #2.

Misschien dat het zo werkt maar blijft natuurlijk een beetje gokken.

Sub VenA()
Dim cl As Range
For Each cl In Sheets(1).Columns(1).SpecialCells(2)
    If Not cl.Comment Is Nothing Then
        cl.Offset(, 1) = cl.Comment.Text
    '   cl.Comment.Delete  'haal de apostrof weg voor verwijdering van de comment.
    End If
Next cl
End Sub

 

[rafifaisal]

Hey VenA
Ja nu werkt het wel.
PERRFECT man.... Bedankt