Ancoraggio UserForm.

Question

Ciao a tutti.

Vi chiedo un aiuto per realizzare quanto segue:

Cartella Prova contenente il foglio2 che chiama  l’UserForm Uscite.

Nell’UserForm Uscite è inserita la TextBox10 che chiama l’UserForm Data.

Problema:

se clicco sull’UserForm Data, questa esce dalll’UserForm Uscite e va a posizionarsi nel foglio2.

Vorrei che l’UserForm Data rimanesse ancorata all’interno dell’UserForm Uscite così come impostato

In   Private Sub UserForm_Click().

Per piacere qualcuno può darmi una dritta.

Grazie.

Ciao.

Nunzio.

Codice:

foglio2:

Private Sub Worksheet_Activate()

Uscite.Show

End Sub

UserForm  Uscite:

Private Sub TextBox10_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Data.Show

End Sub

Private Sub UserForm_Click()

 Data.Left = 150

  Data.Top = 150

 Data.Width = 250

  Data.Height = 250

End Sub

Answer 1

Ciao Maurizio. Ciao Regards, Norman.

Ho provato il codice di Maurizio e tutto funziona perfettamente.

E' probabile che ci sia qualcosa che non va nel resto del mio codice.

Proverò a cercare cosa può essere.

Mi incuriosisce la possibilità di determinare la posizione del for con

proprietà diverse di Left e Top.

Un grosso grazie a Tutti.

Ciao.

Giovanni.

Answer 2

Ciao Giovanni,

Ricreando le due UserForms Dati e Uscite e utilizzando il codice indicato, io non sono in grado di riprodurre il comportamento descritto.  Quindi, credo che ci sia altro codice in gioco.

In ogni caso, vorrei suggerire che  tu carichi il file problematico, dopo aver rimosso i dati sensibili, su un servizio di condivisione, ad esempio Microsoft OneDrive o DropBox, e che tu  posti un link al file in una risposta qua.

===

Regards,

Norman

Answer 3

Ciao GiovanniSalviati,

prova così:

' Class Module : Foglio2 - Excel.Worksheet

'

Option Explicit

Private Sub Worksheet_Activate()

    Uscite.Show vbModal

End Sub

' Class Module : Uscite - MSForms.UserForm

'

Option Explicit

Private Sub TextBox10_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim frm As Data

      Set frm = New Data

      With frm

        .Left = 150

        .Top = 150

        .Width = 250

        .Height = 250

        .Show vbModal

      End With

      Set frm = Nothing

End Sub

EDIT:

Dimenticavo di dirti che la posizione dell'angolo superiore sinistro non la determini con le proprietà Left e Top dello UserForm come le usi nel tuo esempio. È questo il problema?...

EDIT2:

Uhm... Per caso hai dimenticato di assegnare alla proprietà StartUpPositiondello UserForm Data il valore 0 - Manual?