Salve,
devo allegare un file e non vedo dove chiede di allegare
mi potete indirizzare?
Saluti e grazie
Moderatori: Anthony47, Flash30005
=SE(CONTA.SE($B3:$E3;I$1)=1;0;SOMMA(I2+1))
giorgioa ha scritto:(riga AD)
Sub TrovaEventi()
Set Ws1 = Worksheets("Foglio1")
UR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
URN = Ws1.Range("Z" & Rows.Count).End(xlUp).Row - 2
Ws1.Range("AF3:IV" & UR).ClearContents
For VS1 = 1 To URN
RCIni = 2
ContaE = 0
ContaP = 0
RFin = 2
With Ws1.Range("C3:V" & UR)
Set C = .Find(VS1, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
firstAddress = C.Address
RC = C.Row
ContaP = ContaP + 1
If RC - RCIni >= [Y5] And RC - RCIni <= [Y7] Then
ContaE = ContaE + 1
UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
RFin = RC
End If
RCIni = RC
Do
Set C = .FindNext(C)
If firstAddress = C.Address Then Exit Do
RC = C.Row
ContaP = ContaP + 1
If RC - RCIni >= [Y5] And RC - RCIni <= [Y7] Then
ContaE = ContaE + 1
UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
RFin = RC
End If
RCIni = RC
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
Ws1.Cells(VS1 + 2, 30).Value = ContaE
Ws1.Cells(VS1 + 2, 27).Value = ContaP
Ws1.Cells(VS1 + 2, 31).Value = UR - RFin
Ws1.Cells(VS1 + 2, 28).Value = Int((ContaP / (UR - 2)) * 10000) / 100
Ws1.Cells(VS1 + 2, 28).NumberFormat = "0.00"
Ws1.Cells(VS1 + 2, 29).Value = Int((ContaE / ContaP) * 10000) / 100
Ws1.Cells(VS1 + 2, 29).NumberFormat = "0.00"
Next VS1
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 11 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 138 ospiti