TextBox e valore celle

Hai un problema con Excel?

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

Vuoi approfondire questo argomento?