macro gevraagd

[kibus]

beste kenners,

graag jullie help in de bijlage het excel file
waar het om gaat ..graag in macro vorm

alvast bedankt voor jullie hulp

edwin

 

[wampier]

En wat als er meer lijnen in komen? Het is handig om een voorbeeld te hebben, maar als je mensen vraagt moeite voor je te doen zou je minsten aan kunnen geven waarom je het wil hebben en een korte beschrijving van hoe het in de praktijk je gaat helpen.

In principe is wat je vraagt zeer eenvoudig, maar de meest eenvoudige oplossing is mogelijk niet wat je in de praktijk ook kunt gebruiken. Als er bijvoorbeeld rekening gehouden moet worden met nog in te voegen lijnen etc.

 

[kibus]

hoi,

ik ga het gebruiken in een weekplanning, werkbon te maken er worden geen rijen ondergevoegd etc.. het is de bedoeling dat ik weet welk artikel nr het is en de het aantal zodat ik verder kan borduren met formules

edwin

 

[wampier]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count < 2 Then
    If Not Intersect(Target, [2:2]) Is Nothing Then
        If Target.Column > 3 Then
            ActiveSheet.Cells(5, 1).Value = [b2].Value & " " & Target.Value
        End If
    End If
End If

End Sub

Ik neem hier even aan dat je er een spatie tussen wil. Uiteraard is dit nog aan te passen. Weet je waar en hoe dit geplaatst moet worden in je sheet?

edit volgens je post history moet dat wel lukken

 

[kibus]

dank voor de reactie ,

sorry voor mijn onduidelijke uitleg .. maar de bedoeling is dat ik een button aanmaak en de waarde van deze 2 cellen wegschrijft naar cel A5 samengevoegd

stel de gebruiker staat op E2 en klikt dan moet in cel A5 komen

500_4

mijn excuus, ik weet wel een klein beetje van vba..

thx

edwin

 

[wampier]

Het werkt nu ook zonder knop geheel automatisch

ActiveSheet.Cells(5, 1).Value = [b2].Value & " " & Target.Value

aanpassen naar:

ActiveSheet.Cells(5, 1).Value = [b2].Value & "_" & Target.Value

Als je het toch onder een knop wil: knop aanmaken en macro aan koppelen. De totale code wordt dan iets eenvoudiger:

ActiveSheet.Cells(5, 1).Value = [b2].Value & "_" & Selection.Value