• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

copy paste met select case

Status
Niet open voor verdere reacties.
P

Pander

Gebruiker
Lid geworden
14 okt 2014
Berichten
198
Goeiemiddag,

Als ik cel D7 aanpas naar een waarde uit AJ8:AJ15 en op de CommandButton druk, gebeurt precies was ik zou willen.

Ik zou dat echter alleen ook graag wensen voor alle cellen in D7 t/m D52. Weet iemand hoe dat kan
en of dat met een selectcase methode überhaupt wel een goede optie is?

Gr,
Klaas Jan

Bekijk bijlage testmetCase.xls
 
Laatst bewerkt:
dank voor je reactie.

mogelijk wordt komt er in de betreffende cel nog iets te staan. Dit zou de vert. zoek formule overschrijven. Realiseer om die reden dit liever niet met een formule.

Gr.
KJ
 
de macro die je achter die command button hebt zitten is een copy paste command. dat zou ook als je iets in die cel zet overschrijven, toch?
 
ik wil er ook niet moeilijk doen want ben blij met alle hulp (echt), maar ik los dit liever niet op met een formule..
 
Bv

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim f As Range
If Target.Column = 4 And Target.Row > 6 Then
  Set f = Range("AJ8:AJ15").Find(Target)
   If Not f Is Nothing Then f.Offset(, 1).Resize(, 28).Copy Target.Offset(, 1)
End If
End Sub
 

Bijlagen

  • testmetCase-2.xls
    62 KB · Weergaven: 25
thanks V en A.

laatste vraagje hierover: de code geeft nu resultaat zodra er in kolom 4 een waarde wordt ingevuld. Kan dat alleen t/m rij 52 gelden?
 
Zo beter?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim f As Range
If Not Intersect(Target, Range("D7:D42,D45:D52")) Is Nothing Then
  Set f = Range("AJ8:AJ15").Find(Target)
   If Not f Is Nothing Then f.Offset(, 1).Resize(, 28).Copy Target.Offset(, 1)
End If
End Sub
 
:thumb:

als ik jouw code AJ15 verander naar AJ16 en in de sheet bij AJ16 een getal invul met daarachter een patroon dan gebeurt er niks als ik in kolom D die waarde invul. Weet je wat ik fout doe?


Gr,
Klaas Jan
 
Laatst bewerkt:
Heb ik geen last van dus hoe je toegepast hebt weet ik niet. Welke moeite is het om dan gelijk het bestandje te plaatsen waaruit het probleem blijkt?
 

Bijlagen

  • testmetCase-1.xls
    61 KB · Weergaven: 24
De meeste helpers zijn niet helderziend en er zijn meerdere mogelijkheden waarom iets niet werkt. Als je de ingebouwde debugger had gebruikt dan had je zelf ook kunnen zien dat f de verkeerde waarde krijgt.;)

Code: 
Set f = Range("AJ8:AJ17").Find(Target, , xlValues, xlWhole)

Om te sorteren is dit voldoende
Code: 
Private Sub CommandButton1_Click()
 Range("B7:AG42").Sort [D7], 2
End Sub
 
VenA,

dank voor je hulp.

Je overschat mij en ik denk ik ook tal van vraagstellers. Daarom ook dank voor de nuancerende smiley.

Ik zet de vraag als opgelost: fijn!

Gr,
KJ
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan