positie userform

[SUVERMO]

hallo,

Bij klik op E2:E100 verschijnt UserForm1 in het midden van het scherm,
is het mogelijk om UserForm1 te laten verschijnen zoals afgebeeld bij klik op E15
namelijk: bovenkant UserForm1 gelijk met onderkant active cel
linkerkant UserForm1 gelijk met linkerkant active cel

 

[edmoor]

Test deze eens in de Userform_Initialize:

With Me
    .StartUpPosition = 0
    .Top = Application.Top + ActiveCell.Offset(1).Top + ActiveCell.Height + .Height
    .Left = Application.Left + ActiveCell.Offset(, 1).Left
End With

 

[SUVERMO]

beste edmoor

dit komt al aardig in de richting, de userform verschijnt echter 6 rijen te laag, zie plaatje

 

[edmoor]

Bij mij niet.
Dan zal je met de Offset moeten spelenof wat extra rekenen met de ActiveCell.Height.

 

[SUVERMO]

een groter probleem, als ik cel E50 selecteer dan loopt mijn laptop vast
het enige wat ik dan nog kan doen is de laptop afsluiten

heeft u een idee waarom?

 

[edmoor]

Als je gaat klopt de hoogte positie niet meer.

 

[SUVERMO]

kan dat opgelost worden?

 

[edmoor]

Geen idee.
Nog niet naar gekeken.
Wellicht dat iemand anders hier dat al eens gedaan heeft.

 

[SUVERMO]

toch bedankt, ik zal uitkijken naar reactie van andere

 

[edmoor]

Chip Pearson heeft er een uitgebreide oplossig voor:
http://www.cpearson.com/excel/formposition.htm

 

[AD1957]

Zo ?, zelf maar even spelen met de Top en Left positie.

With UserForm1
    .StartUpPosition = 0
    .Top = ActiveCell.Top * ActiveWindow.Zoom / 100 + (0.5 * .Height) - (ActiveWindow.ScrollRow - 1) * ActiveCell.Height * ActiveWindow.Zoom / 100
    .Left = ActiveCell.Left * ActiveWindow.Zoom / 100 + ActiveCell.Width * ActiveWindow.Zoom / 100 + 15 * ActiveWindow.Zoom / 100
    .Show
 End With

aanvulling: Je kunt ook gaan voor de oplossing van Pearson, die heb ik ook al gebruikt.

 

[JeanPaul28]

 With Me
        .StartUpPosition = 0
        .Top = ActiveCell.Top + ActiveCell.Height + .Height
        .Left = ActiveCell.Offset(0, 1).Left
    End With

 

[AD1957]

Jean-Paul,

De opmerking van Suvermo in #5 gaat hier ook op.

 

[AD1957]

De code van post #11 is niet helemaal correct, .Show weggehaald. ( stukje stond bij mij in sheet_SelectionChange)

With Me
    .StartUpPosition = 0
    .Top = ActiveCell.Top * ActiveWindow.Zoom / 100 + (0.5 * .Height) - (ActiveWindow.ScrollRow - 1) * ActiveCell.Height * ActiveWindow.Zoom / 100
    .Left = ActiveCell.Left * ActiveWindow.Zoom / 100 + ActiveCell.Width * ActiveWindow.Zoom / 100 + 15 * ActiveWindow.Zoom / 100    
 End With

 

[AD1957]

Omdat ik toch al bezig weg hier een voorbeeldbestand. (met ook de code van Pearson)
Het userform aangepast.(Listbox2 verwijderd en het Listbox1_Click event aangepast).
Lijkt erop dat beide codes naar behoren werken.








aangepast)

 

[SUVERMO]

met deze code verschijnt de userform juist onder de actieve cel

behalve als de formulebalk is opengeklapt of als het lintbalk met de opdrachten is weergegeven.

hoe kan dit opgelost worden

Private Sub UserForm_Initialize()
UserForm1.StartUpPosition = 0
UserForm1.Top = Application.Top
UserForm1.Top = Application.Top + ((ActiveCell.Row - ActiveWindow.VisibleRange.Row - 4) * 15) + UserForm1.Height
UserForm1.Left = Application.Left + ActiveCell.Offset(, 1).Left
UserForm1.Width = 200
ListBox1.List = [Nummer].Value
ListBox2.List = [Nummerkleur].Value
End Sub

 

[AD1957]

Heb je #14 en 15# wel gelezen en getest.
Volgens mij werkt de code van epearson altijd goed.
In beide codes staat het midden van het Userform uitgelijnd op de activecell.( ongeveer)
Maar dat kun je altijd aanpassen.

 

[SUVERMO]

bedankt
nog niet geprobeerd

ik probeer het vanavond of morgenvroeg

 

[AD1957]

Waarom gebruik je geen listbox zoals in deze Topic.
https://www.helpmij.nl/forum/showthread.php/962213-plaats-van-dropdownlijst-van-gegevensvalidatie
Had het idee dat die goed werkte.
Listfillrange op A2:B20 zetten
en de Columncount op 2
Left nog zelf instellen.

Of is het zo dat je met het Userform nog iets anders wil.

 

[SUVERMO]

bedankt AD1957 om mij dit nog eens te laten proberen

Dat werkte inderdaad prima, ik was er mee gestopt omdat ik voor een andere gedeelte een userform gebruik om uitleg te geven.
Met een extra listbox lukt het hier ook.

ik heb listbox1 gekopieert, deze noemde dan listbox2 en deze wat aangepast.
in het naamvak staat voor ListBox1, ListBox1 en voor ListBox2, ListBox2
in de formulebalk staat voor zowel ListBox1 als ListBox2, =INSLUITEN("Forms.ListBox.1";"")
kan dat problemen geven?
hoe komt dat?