Moderatori: Anthony47, Flash30005
Private Sub ComboBox1_DAL_CENSIMENTO_Change()
'Stringa = Me.ComboBox1_DAL_CENSIMENTO
UR = Worksheets("Censimento").Range("B" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
If Worksheets("Censimento").Range("A" & RR).Value = Me.ComboBox1_DAL_CENSIMENTO Then
For CC = 1 To 12
If CC = 1 Then
Stringa = Worksheets("Censimento").Cells(RR, CC).Value
Else
Stringa = Stringa & "; " & Worksheets("Censimento").Cells(RR, CC).Value '<<< come separatore puoi scegliere anche solo la virgola
End If
Next CC
GoTo ESCI
End If
Next RR
ESCI:
ListBox1.List = Array(Stringa)
End Sub
Private Sub ComboBox1_DAL_CENSIMENTO_Change()
Dim Matrice()
UR = Worksheets("Censimento").Range("B" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
If Worksheets("Censimento").Range("A" & RR).Value = Me.ComboBox1_DAL_CENSIMENTO Then
ReDim Matrice(1 To 12)
For C = 1 To 12
Matrice(C) = Worksheets("Censimento").Cells(RR, C)
Next C
GoTo ESCI
End If
Next RR
ESCI:
ListBox2.Clear
For C = 1 To 4
MsgBox Matrice(C)
ListBox2.AddItem Matrice(C)
Next
End Sub
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 12 ospiti