Ga naar inhoud

welke formule moet ik gebruiken?


kkar

Aanbevolen berichten

Hallo,

 

f10 1   g10 jan                                   cel s1 = staat 4

f11 2   g11 feb                                   cel x1,moet dan "mei" komen

f12 3   g12 mrt

f13 4   g13 mei
   

Gebruik max(f10:f13) en dat zet het grootste getal van f10 tot f13 in cel s20 waar die formule in staat,

maar ik zou willen dat ie,in dit geval  in x1 in dit geval mei zet.

Welk de grootste is  in f10 tot f13 veranderd,

 

Groeten

Karel

Link naar reactie
Delen op andere sites

Dat is prima, als je tenminste altijd de maand wil weergeven die hoort bij het grootste maandnummer.

Ja.

Maar der is nogwel iet welk ik wil vragen of dat kan,namelijk of die kleur waar die tekst van die 2 cellen die gekopiëerd  worden,mee kan gekopiëerd worden .

 

f10 1   g10 jan     (blauwe tekst)                        

f11 2   g11 feb     (rode tekst)                             

f12 3   g12 mrt     (groen tekst) 

f13 4   g13 mei     (paarse tekst)

Link naar reactie
Delen op andere sites

Met onderstaande oplossing doet het er niet toe of het om de tekst- of celkleur gaat.

Met een formule in de cel is jouw vraag niet op te lossen, hiervoor is vba nodig.

De vert.zoekenfunctie die je nu in X1 hebt staan, kun je verwijderen; als vba wordt gebruikt kan de tekst die in X1 moet komen te staan meteen worden meegenomen. Let er wel op dat is uitgegaan van het bereik F10:G13 en van X1 waarin het resultaat moet komen. Als je in het werkblad die bereiken wijzigt, dan moet je dat ook in de macro doen. 

- Als je dat nog niet gedaan hebt, wis dan in X1 de vert.zoekenfunctie.

- Kopieer onderstaande macro

- Klik linksonderaan met de rechtermuisknop op de tabbladnaam van het bklad waarin jouw gegevens staan (bv. Blad1) en klik in het dan verschijnende menu op "Programmacode weergeven".

- Klik in het rechtervenster op de rechtermuisknop en kies "Plakken".

- Sluit het venster met het kruisje rechtsboven.

- Controleer de werking door in F10:G13 het hoogste getal of de tekst die rechts daarvan staat, te wijzigen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lc As Integer
If Not Intersect(Range("f10:g13"), Target) Is Nothing Then
lc = WorksheetFunction.Max(Range("f10:f13"))
Range("g" & WorksheetFunction.Match(lc, Range("f10:f13"), 0) + 9).Copy Range("x1")
End If
End Sub
aangepast door alpha
Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.