Sto usando Excel 2013,
Applico 2 vie la formula grande VBA, ma non funziona, cosa sbaglio, non lo so
Sub Macro1 ()
'1st Table Dim statement ---> Dichiara variabili
Dim lRow tanto lungo, lCol quanto lungo
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column
'Conteggio colonna in numero
Dim k tanto lungo, m tanto lungo
k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
'Riga conta in numero
m = Range("D6", Range("D6").End(xlDown)).Rows.Count
Dim MyRange come intervallo
Imposta MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Range("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange & ","1)"
'E
'=(GRANDE($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"
End Sub
Gentilmente aiutatemi e grazie per l'anticipo
Applico 2 vie la formula grande VBA, ma non funziona, cosa sbaglio, non lo so
Sub Macro1 ()
'1st Table Dim statement ---> Dichiara variabili
Dim lRow tanto lungo, lCol quanto lungo
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column
'Conteggio colonna in numero
Dim k tanto lungo, m tanto lungo
k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
'Riga conta in numero
m = Range("D6", Range("D6").End(xlDown)).Rows.Count
Dim MyRange come intervallo
Imposta MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Range("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange & ","1)"
'E
'=(GRANDE($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"
End Sub
Gentilmente aiutatemi e grazie per l'anticipo