marco in een cel formule

[Avalondra]

is het mogenlijk om doormiddel van een koppelcel andere keuze vakken op voorgrond te plaatsen???

ik weet alleen hoe het moet via een macro dus als iemand weet hoe je in een formule (in een cel) naar een macro kunt verwijzen of hoe ik het anders kan oplossen zou ik het fijn vinden als je dat met me wilde delen. (in excel 2007)

het eingenlijke probleem is dat als ik met een keuzevak de 2de keuze kies moet een ander keuze vak erna naar voren komen,
zo ook als ik dat met de 3de tot en met de 7de keuze doe.
dus ik moet dan aan de hand van de koppelcel van het eerste keuzevak de bovenliggende keuzevak (erna) gaan bepalen.

Iemand een idee???

 

[Demeter]

Kom niet geheel uit je vraag maar misschien kom je hiermee in de richting:
http://www.contextures.com/xlDataVal02.html

 

[Avalondra]

sorry maar ik snap niet zo goed wat daar staat of in ieder geval kan ik het niet in verband brengen met mijn vraag dus daarom heb ik een rar bestand met nog wat uitleg en het excel bestand toegvoegd.

ik hoop dat mijn vraag nu wel duidelijker is.

Greetz Ava

 

[Demeter]

Avalondra,

Begrijp je vraag ook niet geheel.
Voorbeeld:
Als ik onder de kop benaming in regel 1 plaat kies.
Wat moet er dan gebeuren?

ps.
Heb je macros ook bekeken maar deze kunnen een heel stuk korter.

Heb je reset macro aangepast:

Sub RESET()

Application.ScreenUpdating = False

    Range("B7:F22") = "0"
    Range("H7:H22").ClearContents
    
    Range("AD7").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.AutoFill Destination:=Range("AD7:AD22"), Type:=xlFillDefault
    Range("AD7:AD22").Select
    Selection.AutoFill Destination:=Range("AD7:AE22"), Type:=xlFillDefault
    Range("AD7:AE22").Select
    
    Range("D4").FormulaR1C1 = "0"
    Range("C26").FormulaR1C1 = ""
    Range("D26").FormulaR1C1 = ""
    Range("E26:G26").FormulaR1C1 = ""
    Range("H26:J26").FormulaR1C1 = ""
    
    With Range("D4").Interior
        .Pattern = xlNone
    End With

    With Range("C26:J26").Interior
        .Pattern = xlNone
    End With

Application.ScreenUpdating = True

    MsgBox "The tabel has been reset"
    
End Sub

Stuk sneller geworden :0

 

[Avalondra]

nou als je Plaat selecteerd moet dus het keuzevak naar boven komen waar de plaatsoorten instaan (dat is de enige die pas werkt de rest moet ik nog instellen)
dat zijn de eerste keuze vakken onder de tabel.

die moeten op de plaats komen staan achter de keuzevakken die al goed staan.
daarmoeten dus latena (als het werkr) al die keuzevakken komen staan en aan de hand van het eerste keuzevak bovenop komen liggen.

Greetz Ava

ps.ik hoop dat het nu genoeg is

 

[Avalondra]

owja en ik wist dat mijn macro's veel te lang waren die moest ik nog inkorten maar dat was niet de prioriteit het werkte en daar ging het om want was bezig met die keuzevakken.

Greetz Me

 

[Demeter]

dus ik kies plaat en in de kolom soort moet een pulldown komen welke de soorten platen bevat?

 

[Avalondra]

zoiets ja daarvoor heb ik die keuze vakken onder al staan
die moet ik dan in de kolom soort zetten en dan als alles werkt komt het betreffende keuzevak boven te liggen door hem op de voorgrond te zetten door een of andere functie of macro.

Greetz Ava

 

[Demeter]

Denk wat je precies wil bereiken toch echt in de link staatuit mijn eerste post.

Bij meer vragen weet je het forum te vinden

ps.
Heb een voorbeeld sheet in je bestandje gemaakt maar krijg deze niet geupload.

 

[Avalondra]

je kunt het bestandje doorsturen naar roel_hellenbrand@hotmail.com


Greetz ava

 

[Avalondra]

mercie voor de hulp een vriend van me heeft geholpen met een macro te schrijven die deed wat ik dan wilde.

het eindresultaat van de macro heb ik bijgevoegd.


Greetz Ava

Sub keuzelijst1()

x = Cells(7, 30)

If x = 2 Then
ActiveSheet.Shapes("Drop Down 2").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

ElseIf x = 3 Then
ActiveSheet.Shapes("Drop Down 56").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

ElseIf x = 4 Then
ActiveSheet.Shapes("Drop Down 92").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

ElseIf x = 5 Then
ActiveSheet.Shapes("Drop Down 124").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

ElseIf x = 6 Then
ActiveSheet.Shapes("Drop Down 140").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

ElseIf x = 7 Then
ActiveSheet.Shapes("Drop Down 156").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("a1").Select

End If
End Sub
Sub Macro2()
'
' Macro2 Macro
' De macro is opgenomen op 10-1-2009 door ll7hcp-07.
'

'
    ActiveSheet.Shapes("Drop Down 56").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    Range("A4").Select
End Sub

 

[Wigi]

Sub keuzelijst1()

    Dim x As Integer

    x = Cells(7, 30).Value
    
    If x >= 2 Then
        ActiveSheet.Shapes("Drop Down " & Choose(x, 1, 2, 56, 92, 124, 140, 156)).Select
        Selection.ShapeRange.ZOrder msoBringToFront
        Range("a1").Select
    End If
    
End Sub

Wigi

 

[Avalondra]

dat doet hetzelfde???

 

[Roncancio]

dat doet hetzelfde???

Ja, maar ...

owja en ik wist dat mijn macro's veel te lang waren die moest ik nog inkorten maar dat was niet de prioriteit het werkte en daar ging het om.

Het kan volgens mij nog korter:

Sub keuzelijst1()
    If Range("AD7").Value >= 2 Then
        ActiveSheet.Shapes("Drop Down " & Choose(Range("AD7").Value, 1, 2, 56, 92, 124, 140, 156)).Select
        Selection.ShapeRange.ZOrder msoBringToFront
        Range("a1").Select
    End If  
End Sub

Met vriendelijke groet,


Roncancio

 

[Demeter]

Zou toch ook eens naar de validatie manier kijken welke ik naar je email heb gestuurd.
Zeker het proberen waard als er nog geen vba in je sheet wordt gebruikt.

 

[Avalondra]

ok zal ik doen


Greetz Ava

 

[Avalondra]

ik had wel nog 1 vraag als ik dat vie dat valideren en dergelijke doe
kan ik dan ook een soort funciet als vertikaal zoeken doen???

dus dat als in de kolom soort plaat 5 staat dat hij de prijs van die plaat in de kolom
prijs/EH komt te staan en in de overige formules.

is dit dan ook mogenlijk??? (zo niet dan moet ik het met die macro doen.


Greetz Ava

 

[Avalondra]

Ik heb wederom een fout ik krijg een fout melding bij 1 van de 16 keuzevakken met aangepaste macro. ik heb een goede en een foute bijgevoegd
er is geen verschil buiten een paar cijfers die de andere keuze vakken simuleren(dat is de bedoeling)

Goed wekend

Sub Keuzelijst_8()

    If Range("AD14").Value >= 2 Then
    
        ActiveSheet.Shapes("Drop Down " & Choose(Range("AD14").Value, 9, 19, 68, 83, 115, 131, 147, 163)).Select
        Selection.ShapeRange.ZOrder msoBringToFront
        Range("a1").Select
        
    End If
    
End Sub

Fout werkend

Sub Keuzelijst_9()

    If Range("AD15").Value >= 2 Then
    
        ActiveSheet.Shapes("Drop Down " & Choose(Range("AD15").Value, 10, 20, 69, 84, 116, 132, 148, 164)).Select
        Selection.ShapeRange.ZOrder msoBringToFront
        Range("a1").Select
        
    End If

De foutmelding die ik krijg is

Fout-2147024809(80070057)


Ik kan de fout niet vinden naar mijn mening is alles in orde

ik heb nu de meest recente versiee in de bijlage gedaan.


Greetz Ava

 

[wiki]

Blad met getrapte validatie zonder gebruik van macro's
er is gebruik gemaakt van de functie naam en datavalidatie
oorsprong onbekend (waarschijnlijk van helpmij)

 

[Avalondra]

ik heb het al opgelost maar toch bedankt voor ieders hulp.


Greetz Avalondra