Screenupdate besked på skærm

Hej.

Du kan lave en lille form med meddelelsen, men når den at stå så længe, at det har nogen betydning?



formmedd.visible = true
.....
formmedd.visible = false

Hej joern

Jeg glemte vist at nævne at det er i VBA/Excel jeg havde brug for det,
og der kan jeg ikke finde beskrivelsen af 'formmed.visible='


Og ja, jeg henter nogle oplysninger fra mange forskellige filer som ligger på en server. det kan godt tage lidt tid, og brugeren skal jo ikke tro at systemet er gået i sort.
/fajens

Hej.

Jeg bruger ikke VBA og véd ikke hvor meget Visual Basic der indeholdes i macrosproget.

Et eller andet sted burde der står med fede røde typer, at men skal angive om det er VB eller VBA man taler om - det går jo galt i halvdelen af spørgsmålene (næsten)

Du kan sagtens bruge .visible (eller .Show / .Hide) på en userform i VBA, så hoerns svar er OK

hoerns = joerns ;o)

Hej

martin_moth du kan da godt have ret i det med VBA VB. Men det kan smutte selv om man bestræber sig på at skrive VBA i emne linien.

Vedr. spørgsmålet virker det ikke, da progammet stopper og venter på et indput i UserForm1. Hvordan løser jeg det.
/fajens

Hej.

Der skal ikke være nogen OK-knap på formen, der viser meddelelsen.  Kodelinien der fjerner medd-formen skal stå på et sted efter at processen er færdig.  Indsæt de linier det drejer sig om - eller det væsentlige uddrag.  Så vil en VBA-bruger sikkert svare dig :-)

prøv at vis kode

Du har jo ret - den venter på at du lukker formen selv...

Du kunne sætte en knap på, der lukker formen. Jeg kan ikke lige få den til at lukke formen selv, selvom jeg mener man burde kunne blot ved at anvende .Hide eller UnLoad UserForm1

    UserForm1.Show
    MsgBox "Userform 1 er loaded, og denne besked burde vises"
    Unload UserForm1
    MsgBox "Nu er den unloadet"

Det sjove er, at "Userform 1 er loaded, og denne besked burde vises" først vises, når du har lukket formen. Dvs. at linien

Unload UserForm1

Ignoreres - programmet pauser efter linien UserForm1.Show

Kender ikke til løsning (udover at sætte en OK-knap på)

Hej
Jeg har fundet en løsning på min opgave som kommer her

ark_name = ActiveSheet.Name
Worksheets("Ark1").Visible = True
Worksheets("Ark1").Select
Application.ScreenUpdating = False
Worksheets("Ark1").Visible = False
Worksheets(ark_name).Select

Når disse linier passeres blver Ark1 stående på skærmen indtil Application.ScreenUpdating = True
I Ark1 skriver jeg f.eks. .....et øjeblik. midt på siden og pynter det lidt op.

Det virker fortrinligt

Jeg svarer selv.

/fajens

Prøv at vis hvor du loader og unloader din form hvorpå der står "et øjeblik"

Hej

Jeg bruger ikke Form, kun sheet.

Du kan prøve det direkte i excel.

/fajens

aha - du skriver din besked direkte i en celle.
Så principielt er det ikke løst, at få vist en form, og lade Excel arbejde videre i baggrunden indtil man trykker ok... Kunne heller ikke forstå du kunne løse det på den måde

:o)