lo faccio senz'altro Flash, avevo giá cominciato a studiarmi la tua soluzione e sono felice che l'equivoco si sia risolto.
Grazie
Moderatori: Anthony47, Flash30005
'XXX Si vogliono visualizzare i 5 Libri piú venduti '<<<<<<<<<<< tua informazione esistente
Private Sub optLib_Click()
Dim Miomax As Long, MioMin As Long, MMax As Long, RR1 As Long, URD As Long
Dim CM As Integer
Dim TxV, TxA, TMax
Miomax = Evaluate("Max(D:D)")
MioMin = Evaluate("Min(D:D)")
CM = 0
URD = Range("D" & Rows.Count).End(xlUp).Row
For MMax = Miomax To MioMin Step -1
For RR1 = 5 To URD
TxV = Range("A" & RR1).Value
TxA = Range("B" & RR1).Value
TMax = Range("D" & RR1).Value
If Range("D" & RR1).Value = MMax Then
CM = CM + 1
UserForm1.Controls("txtRefLi" & CM) = TxV
UserForm1.Controls("txtTitAut" & CM) = TxA
UserForm1.Controls("txtQnt" & CM) = TMax
If CM >= 5 Then Exit Sub
End If
Next RR1
Next MMax
End Sub
TxV = Range("A" & RR1).Value
TxA = Range("B" & RR1).Value
..com'é che funziona con 'max' scritto minuscolo?
cMax = Application.WorksheetFunction.max(shLib.Range("D5").Resize(l - 4, 1))
CM = CM + 1 '<<<< esistente
UserForm1.Controls("txtRefLi" & CM) = Range("A" & RR1).Value '<<< modificata
UserForm1.Controls("txtTitAut" & CM) = Range("B" & RR1).Value '<<< modificata
UserForm1.Controls("txtQnt" & CM) = Range("D" & RR1).Value '<<<< modificata
Dim r, l, I
cMax = Application.WorksheetFunction.max(shLib.Range("D5").Resize(l - 4, 1))
CRow = Application.Match(cMax, shLib.Range("D5").Resize(l - 4, 1), False)
If Not IsError(CRow) Then
Me.Controls("txtRefLi" & i).Text = shLib.Range("A5").Offset(CRow - 1, 0).Value
Torna a Applicazioni Office Windows
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel Estrazione casuale testo da colonna per bingo ca**ate Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 88 ospiti