cel verplaatsen onder voorwaarde

[Roma]

beste helpers,
In een bestand heb ik in kolom J een naam "Bank" staan.
Nu wil ik graag dat het bedrag van kolom H naar kolom K verplaats word
Het liefst in VBA.
Wie kan mij helpen.

 

[HSV]

Met zoiets.

Sub hsv()
Dim cl As Range
For Each cl In Columns(10).SpecialCells(2)
  If LCase(cl) = "bank" And cl.Offset(, -2) <> "" Then
   cl.Offset(, 1) = cl.Offset(, -2)
   cl.Offset(, -2).ClearContents
  End If
Next cl
End Sub

 

[Roma]

Harry,
Super. bedankt.
kan het ook zonder knop

 

[HSV]

Bv. als je "bank" typt?

 

[Roma]

Bank wordt al automatisch ingevuld door een factuur uit een ander tabblad.

 

[HSV]

Hoe heb jij het voor ogen?

 

[Roma]

IK heb een factuur met de keuzemogelijkheid van betalen. Contant of per bank.
Deze mogelijkheden worden weggeschreven in het tabblad ontvangsten (kolom H het bedrag en kolom J wijze van betalen.
Wanneer er in kolom J "Bank" staat dan wordt het bedrag van kolom H weggeschreven naar kolom K (dank zij jou formule)
Omdat er diverse mensen geld ontvangen( namen in kolom I) moeten de gelden afgedragen worden aan de penningmeester.
Vandaar deze formule.

 

[HSV]

Maak eens een voorbeeldbestand met die twee werkbladen als je geen knopje wil.
Het zal dan ongetwijfeld een "worksheet_change" event worden als je in tabblad factuur een keuze maakt tussen contant of per bank.

 

[Roma]

Beste Harry,
Nogmaals bedankt voor je formule.
Ik heb de formule onder de knop afdracht penningmeester geplaatst en dat werkt perfect.
Bedankt voor je inzet
mvg Rob

 

[HSV]

Graag gedaan Rob.