analizzare ultimo valore base

[raimea]

ciao
tramite macro
in fgl dalambert analizzando col N ,vorrei prelevare la data in col B,
di quando e' stato impiegato l ultima volta il valore di cella G3
e riportarlo in fgl tabelle cella AQ7.

poi in fgl dalambert
contare quante puntate successive (dall' ultimo valore G3), sono state fatte
e riportarlo in AR7

successivamente, sempre in fgl dalambert da ultimo valore G3,
analizzare col Q e contare quante punt sono finite
V e riportarlo in AS7 quante P riportarlo in AT7

attualmente i valori li ho inseriti manualmente x avere un riscontro.

vi allego il file
https://www.dropbox.com/scl/fi/9hw7zzcpos39sqyicn2jr/ultima_puntata_base.xlsm?dl=0&rlkey=5t7i4gsdpmcgxopfd26j4978d

ciao

[Anthony47]

Prova con

Codice: Seleziona tutto

Sub C30327()
Dim nArea As Range, LastG3
'
Sheets("dalambert").Select
Set nArea = Range(Range("N5"), Range("N5").End(xlDown))
LastG3 = Evaluate("Max(if(" & nArea.Address & "=" & Range("G3").Value & ",row(" & nArea.Address & "),""""))")
If Not IsError(LastG3) Then
    Set nArea = Application.Intersect(nArea, Cells(LastG3 + 1, "N").Resize(10000, 1))
    Sheets("Tabelle").Range("AQ7") = Cells(LastG3, "B").Value
    Sheets("Tabelle").Range("AR7") = Application.WorksheetFunction.Count(nArea)
    Sheets("Tabelle").Range("AS7") = Application.WorksheetFunction.CountIf(nArea.Offset(0, 3), "Vinto")
    Sheets("Tabelle").Range("AT7") = Application.WorksheetFunction.CountIf(nArea.Offset(0, 3), "Perso")
Else
    MsgBox ("Non risulta la giocata")
End If
End Sub


Ma non tutti i numeri collimano con quanto hai scritto...

[raimea]

ciao
e' tutto ok

per far contare come nella realta'
ho solo inserito un -1 a questa riga

Codice: Seleziona tutto

Sheets("Tabelle").Range("AR7") = Application.WorksheetFunction.Count(nArea) - 1

grazie