08. januar 2014 - 11:44Der er
3 kommentarer og 1 løsning
automatisk vise værdi i userform
Jeg har en userform (userform1) som jeg har viser som modeless, så den hele tiden vises imens jeg arbejder i arket.
Jeg har en userform med en en label (label1) og en tekstbox (tekstbox1) Jeg har et ark hvor kolonne X og Y indeholde nogle tekster. Kolonnerne er skjulte.
Nu har jeg så et ønske om at få vist det der står i kolonne X i "label1" og det i kolonne y i "textbox1" Det svære består i at den automatisk skal opdatere det der står i felterne alt efter hvilken række jeg står i.
Der står nemlig forskellige tekster i alle linjer i kol. X og Y. Ideen med dette er at teksterne skal vises pænt i userformen som en slags hjælpe tekster. Men da teksterne er forskellige fra linje til linje skal der hele tiden opdateres.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Label1.Caption = Cells(Target.Row, "X") UserForm1.TextBox1 = Cells(Target.Row, "Y") End Sub
Yes. Præcis som jeg havde tænkt. Jeg takker mange gange.
jeg har lavet følgende kode.
Private Sub WorkSheet_Activate() userform1.show 0 End sub
Så userformen altid kommer frem når jeg går ind på et bestemt ark. Men dette betyder at userformen er aktiv, så jeg ikke kan flytte rundt i arket med pilene før jeg har klikket med musen i en celle.
Ved du om man kan komme uden om dette, eller er man tvunget til altid at starte med at klikke.
Det virker desværre ikke. Den stiller sig godt nok på a1, men jeg kan ikke bruge piletasterne før jeg har klikket på selve arket med musen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
