- Codice: Seleziona tutto
Me.TextBox1.Value=Cells(xxx,3).Value
Me.TextBox2.Value=Cells(xxx,4).Value
'etc etc
Queste ti mettono il contenuto di colonna C in TextBox1, col D in TextBox2; quindi continuare non sarebbe complicato.
Ciao
Moderatori: Anthony47, Flash30005
Me.TextBox1.Value=Cells(xxx,3).Value
Me.TextBox2.Value=Cells(xxx,4).Value
'etc etc
Public Function Seleziona(rngColl As Collection, Optional nColonne As Long = 1) As Range
Dim i As Long
Set Seleziona = Nothing
With Me.ListBox1
.Clear
.ColumnCount = 3 '<== Modifica questo valore per il n° di colonne che vuoi visualizzare
.ColumnWidths = "5 cm; 2 cm; 2 cm" 'queste sono le larghezze delle colonne visualizzate; da modificare secondo esigenza
For i = 1 To rngColl.Count
.AddItem rngColl.Item(i) 'rngColl.Item(i) è una cella
.List(.ListCount - 1, 1) = rngColl.Item(i).Offset(0, -1) 'punta alla cella a destra (o dove preferisci)
.List(.ListCount - 1, 2) = rngColl.Item(i).Offset(0, -2) 'punta alla seconda cella a destra (o dove preferisci)
Next i
End With
Me.Show
If Result <> -1 Then Set Seleziona = rngColl.Item(Result)
End Function
Private Sub mCerca(ByVal vValore As Variant)
Dim rng As Range, i As Long, msg As String, primo As String, secondo As String
Dim rColl As Collection
Dim sh As Worksheet
Set rColl = New Collection
Set sh = Foglio1
Set rColl = Cerca(sh.Range("n:n"), vValore)
If Not rColl Is Nothing Then
If rColl.Count = 1 Then '1 solo valore trovato
Set rng = rColl(1)
fillTextBoxes rng
Else 'diversi valori trovati
Set rng = fSelezione.Seleziona(rColl) '<========QUI SI EVIDENZIA L'ERRORE !!!
If Not rng Is Nothing Then
fillTextBoxes rng
Else
MsgBox "Nessun contratto selezionato, operazione annullata"
ClearTextBoxes
End If
End If
Else
MsgBox "Nessun contratto Associato"
ClearTextBoxes
End If
Set rng = Nothing
Set rColl = Nothing
Set sh = Nothing
End Sub
Torna a Applicazioni Office Windows
Problema con copia dati senza formattazione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 51 ospiti