TextBox e valore celle

  • Valore cella e textbox di Enzo
    Ciao ragazzi e ben trovati a tutti.
    vi vorrei porre un quesito
    da una userform si puo richiamare in una textbox un valore di una cella facendo un determinato tipo di ricerca ma e' possibile invece far si che da una userform cliccando su una textbox si possa vedere una zona di un foglio excel, successivamente puntare con il mouse su una cella qualsiasi e successivamente far si che il valore della cella appaia in una textbox????
    grazie anticipatamente per l'aiuto

    Ciao enzo di Big ronnie
    Tiinvio del codice che dovrai adattare alle tue esigenze,sperando ti vada bene
     
    In un Modulo
    
    Sub VisualizzaZonaExcel()
    Unload UserForm1
    ActiveWindow.ScrollIntoView Left:=200, Top:=200, Width:=100, Height:=100
    End Sub
    Sub AperturaForm()
    UserForm1.Show
    End Sub
    
    nell'editor di un qualsiasi foglio
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UserForm1.TextBox1.Text = ActiveCell
    UserForm1.Show
    End Sub
    
    nell'editor del form
    
    Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    VisualizzaZonaExcel
    End Sub

    di Enzo
    Ti ringrazio e funziona
    c'e' solo un problema, quando non utilizzo piu' la userform e agisco materialmente sul foglio excel ogni qualvolta che clicco su una qualsiasi cella si attiva la uerform

    Per enzo di Mauro
    Inserire una porzione di foglio in auna textbox è difficile tuttavia si può inserire i valori di alcune celle, ad esempio:

    private sub commandbutton1_click()
    numrig = activecell.row
    numcol = activecell.column
    textbox1.text = activecell.text & " " & _
    cells(numrig, numcol + 1).text & " " & _
    cells(numrig + 1, numcol).text & " " & _
    cells(numrig + 1, numcol + 1).text
    end sub

    ciao !

    Ciao enzo di Big ronnie
    Vedi se questa soluzione ti piace.l'unica cosa che devi fare è crearti un bottone sul foglio che ti permette di richiamare il form quando ti serve.a questo bottone devi collegare la macro "bottone".
     
    Nel Modulo
    
    Public IngressiForm As Integer
    Sub VisualizzaZonaExcel()
    Unload UserForm1
    ActiveWindow.ScrollIntoView Left:=200, Top:=200, Width:=100, Height:=100
    End Sub
    Sub AperturaForm()
    IngressiForm = IngressiForm + 1
    UserForm1.Show
    End Sub
    Sub Bottone()
    IngressiForm = -1
    UserForm1.Show
    End Sub
    
    nel foglio
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IngressiForm = 0 Then
    UserForm1.TextBox1.Text = ActiveCell
    UserForm1.Show
    End If
    End Sub
    
    Nel form
    
    Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    VisualizzaZonaExcel
    End Sub
    Private Sub UserForm_Activate()
    IngressiForm = IngressiForm + 1
    End Sub