I figli d'arte sono all'altezza dei genitori? Vieni a parlarne su Award & Oscar.
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserimento ora con userform e opzione testo

Ultimo Aggiornamento: 11/12/2016 16:54
Post: 97
Registrato il: 13/12/2015
Città: MILANO
Età: 58
Utente Junior
2010
OFFLINE
10/12/2016 22:40

Ciao a tutti.
Due necessità varie e composite:
1) Ho creato una userform in I7 che si attiva con click ma dopo aver fatto la scelta e avuto conferma, vorrei che fosse "caricato" nella stessa cella (I7)
2) In K7 ho due scelte:
- se SI -> si sposta in L7 e verifica che abbia obbligatoriamente scritto un commento. Poi il cursore si sposta in N7.

- se NO -> si sposta direttamente in N7

Grazie in anticipo.
BG66
Excel 2010
Post: 285
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Junior
Excel2019
OFFLINE
11/12/2016 07:35

Ciao Gene
ben ritrovato
Nel Modulo del Foglio metti queste macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range

Set Rng = Me.Range("I6")

If Not Intersect(Rng, Target) Is Nothing Then
Cancel = True
UFTime.Show vbModal = True
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [K7]) Is Nothing Then
        If Target.Value = "NO" Then
            Cells(7, 14).Select
            Exit Sub
        ElseIf Target.Value = "SI" Then
            If [L7].Value = "" Then
                MsgBox "Obbligatorio inserire un commento", 0 + 16, "Attenzione"
                Cells(7, 12).Select
            Else
                Cells(7, 14).Select
            End If
        End If
    End If
End Sub


Invece nel pulsante Close della Form metti questa:
Private Sub cmdClose_Click()
With Me
        If Len(.CBHours.Text) = 0 Or _
            Len(.CBMinute.Text) = 0 Then
            MsgBox "Selezionare ore e minuti."
            Exit Sub
        Else
            MsgBox .CBHours.Text & _
                ":" & .CBMinute.Text
            Cells(7, 9) = .CBHours.Text & ":" & .CBMinute.Text
            Unload Me
        End If
    End With
End Sub


Prova e fai sapere. Ciao,
Mario
Post: 97
Registrato il: 13/12/2015
Città: MILANO
Età: 58
Utente Junior
2010
OFFLINE
11/12/2016 16:54

[RISOLTO]
Ciao Mario,
sei una garanzia....in ogni posto e in ogni dove [SM=g27811] .

Grazie e alla prossima.
[Modificato da BG66 11/12/2016 16:54]
BG66
Excel 2010
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:38. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com