Waarde in cel schrijven.

[N12047]

Hallo allen,

Ik ben weer wat aan het proberen.

Onderstaande code werkt naar volle tevredenheid, ik wil het alleen wat uitbreiden.
Graag zou ik willen zien dat op het moment dat hij de regel leeg heeft gemaakt, hij op dezelfde regel, in kolom 3 een tekst zet.

Ben al een beetje aan het stoeien geweest met

Cells(c1, 3).Value = "Mijn Waarde"

maar dit gaat niet lukken.

Wie weet voor mij de goede oplossing?
(het gaat om de regel in het blauw)

Private Sub CommandButton2_Click()
    Dim r1 As Range

    Set r1 = Range("A10:A25")
    For Each c1 In r1
        If c1.Value = ListBox1.Value Then
            c1.Font.Bold = True
            With c1
                c1.EntireRow.ClearContents
            End With
        End If
        [COLOR="#0000FF"]Cells(c1, 3).Value = "Mijn Waarde"[/COLOR]
        
        Me.ListBox1.List = Range("A10:A25").Value
    Next c1
End Sub

 

[edmoor]

Zonder dat je een voorbeeld document hebt geplaatst.
Probeer dit eens:

Private Sub CommandButton2_Click()
    For Each c1 In Range("A10:A25")
        If c1.Value = ListBox1.Value Then
            c1.Font.Bold = True
            c1.EntireRow.ClearContents
            Cells(c1, 3).Value = "Mijn Waarde"
        End If
    Next c1
    Me.ListBox1.List = Range("A10:A25").Value
End Sub

Maar het kan beter en zonder loop.
Plaats dan een voorbeeld document.

 

[N12047]

Edmoor,

Dankjewel, maar ik krijg nu fout 1004.

Voorbeeld bestand is bijgevoegd.

 

[edmoor]

Klopt. Cells(c1, 3) moet Cells(c1.Row, 3) zijn.
Maar kijk eens naar deze:

Private Sub CommandButton2_Click()
    Set c = Range("A10:A25").Find(ListBox1.Value)
    If Not c Is Nothing Then
        c.Font.Bold = True
        c.EntireRow.ClearContents
        Cells(c.Row, 3).Value = "Mijn Waarde"
    End If
    Me.ListBox1.List = Range("A10:A25").Value
End Sub

En wat moet er precies Bold worden?
Nu is dat kolom A voor de leeg gemaakte regel.

 

[N12047]

Edmoor,

Het werkt.

En wat moet er precies Bold worden?
dat was voor mij even een testje. (ben aan het oefenen.... )

Dankjewel, ik zet het als opgelost.

 

[edmoor]

Oefenen is prima uiteraard.
En bij vragen weet je waar je moet zijn