Waarden in kolommen wegschrijven

[Appievee]

Beste forummers,

Ik wil waarden wegschrijven als mensen een button activeren.
Bij de volgende keer moeten de waarden in een kolom erna weggeschreven worden.

Ik heb iets gevonden in een andere topic
http://www.helpmij.nl/forum/showthr...andere-cel?highlight=excel+wegschrijven+kolom

Maar die schrijft het weg in een rij en het lukt mij niet om dit om te zetten:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Cells(6, 2)) Is Nothing Then
   If Cells(6, 2) <> "" Then
       Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1) = Cells(6, 2)
   Cells(6, 2).ClearContents
   End If
 End If


End Sub

In de bijlage een duidelijkere uitleg.

Hopelijk is iemand met een mooi antwoord.

Groet, Albert

Bekijk bijlage Voorbeeld_wegschrijven.xls

 

[JeanPaul28]

is dit wat je zoekt

 

[Appievee]

Dag Jean-Paul,

Dit kan zeker werken en heb het inmiddels ingebouwd. Thanks sofar :thumb:
Alleen als je begonnen bent stopt ie niet meer met tellen. Kan ik op een of andere manier de Columns.Count weer resetten of nog mooier handmatig instellen bij welk getal deze begint met tellen? Dan zou die helemaal perfect zijn.

Sub SlaOp()
Cells(30, Columns.Count).End(xlToLeft).Offset(0, 1).Value = [E1].Value
Cells(31, Columns.Count).End(xlToLeft).Offset(0, 1).Value = [E13].Value
Cells(32, Columns.Count).End(xlToLeft).Offset(0, 1).Value = [E23].Value
End Sub

Groet, Albert

 

[JeanPaul28]

je vraag is me niet duidelijk genoeg

 

[Appievee]

Dag Jean-Paul,

Laat maar wat ik bedoelde werkt d.m.v. het verwijderen van de waardes uit de betreffende kolommen.
Kennelijk pakt excel dan 'automatisch' weer het goede op.

Stel om wat voor een reden is te vroeg op de knop gedrukt en kloppen de waarden nog niet.
Als je dan van die maand de cellen leegmaakt, dan worden deze weer (na het aanpassen van de gegevens) gevuld met de juiste uitkomsten.


Toch wil ik bij nader inziens nog iets anders waardoor een hoop horz.zoeken opdrachten kan verwijderen uit sheet A.

Uitgangspunten:

1. De gebruikers zullen sheet B vullen en daar op de knop drukken voor het wegschrijven
2. De waarden worden weggeschreven in Sheet A, beginnend bij Cel J37

Ik heb onderstaande zelf gefabriceerd (even voor 1 celwaarde wegschrijven)

Sub SlaOp()
Cells(37, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("B").[D2].Value

End Sub

• alleen werkt dat dus alleen als je op Sheet A, de macro activeert (dus niet waar de knop staat)
• ik zal nog een soort basis-offset moeten defini�ren, want nu pakt ie Cel B37) (wat uiteraard logisch is omdat bij de eerst keer gebruik de offset 0,1 is)

Dus op een of andere manier vraagt het nog wat aanpassingen die me zelf niet lukken(zie ook bijlage voor het voorbeeld)

Gr. Albert

Bekijk bijlage Voorbeeld.xlsm

 

[JeanPaul28]

Dat doe je op deze manier, let op sterretje ander beland het getal in kolom A.

 

[Appievee]

Helemaal top, Jean-paul!

Dank!