code wegschrijven

[Benny10]

Ik heb deze code hier op het forum gevonden en werkt
maar mijn vraag is of het mogelijk is deze te veranderen zodat het in kolom A gezet word komt nu in Kolom C
en kan ik er nog een tekst aan toevoegen die dan in kolom B komt
(Nu staat er txtaantal. Value) en wil txtNaam.Value en txtlidnr.Value in de kolommen zettten

Sub hsv()
Dim cl As Range, c As Long, r As Long
  With Sheets(1)
    For Each cl In .Range("A2:E18").SpecialCells(2)
      If cl.Column > c And cl.Row > r Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
  .Cells(r, c).Offset(1) = txtAantal.Value
 End With
End Sub

Ps:heb hier nog een paar berichten staan die ik wil afmelden,hoe doe ik dit?

 

[vanschagen]

berichten die klaar of opgelost zijn kan je de status opgelost geven
boven aan bij je vraag de knop "vraag opgelost"