Problema macro in Excel

[peppequo]

In un foglio Excel ho fatto una macro che effettua dei calcoli sulle
varie cartelle che lo compongono.
Il problema è questo:
In una delle cartelle ho un numero di righe che può variare di volta in
volta.
Nella colonna "E" c'è il progressivo di riga, quindi nella macro ho inserito

Dim Indx As Integer
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MAX(C[-1])"
Indx = ActiveCell.Value

A questo punto mi ritrovo in Indx il numero di righe che ho effettivamente
valorizzate.
Come faccio a selezionare tutte, e solo!!!!, le righe valorizzate?
All'inizio sapendo che non avrò mai più di 10000 righe avevo fatto

Range("A1:E10000").Select

ma vorrei perfezionare la cosa.
Ho provato con

Range("A1:EIndx").Select

Ma in esecuzione prendo l'errore
Metodo 'Range' dell'oggetto '_Global' non riuscito


Grazie e a buon rendere !!

[misterx]

alla spicciolata

se lo converti a questo modo se a posto


Range(Cells(1, 1), Cells(10, 10)).Select

[peppequo]

Se utilizzo la tua formula così come l'hai scritta funziona ma se io sostituisco uno dei valori con una variabile mi dà errore.

Altri suggerimenti???

[robnet77]

selection.end(xlDown).select

restituisce il "fine-giù", praticamente tu ti posizioni su A1, esegui il comando qua sopra, a questo punto il codice ti porta nell'ultima casella della colonna A che è stata "riempita".

Per intercettare questa casella, puoi usare il comando:

activeCell.row

che rappresenta la riga corrente,

oppure puoi provare a usare l'espressione:

.UsedRange per selezionare l'area corrente di lavoro, se vuoi domani posso fornirti qualche esempio, ciao

[peppequo]

Te ne sarei grato, grazie.
Nel frattempo provo con quanto mi hai detto.

[misterx]

Originariamente inviato da peppequo
Se utilizzo la tua formula così come l'hai scritta funziona ma se io sostituisco uno dei valori con una variabile mi dà errore.

Altri suggerimenti???

l'importante è l'idea; poi è sufficiente unire quanto espresso da robnet77 ed il tutto diventa:

rigaultimacella = activeCell.row 
colonnaultimacella = activeCell.col

Range(Cells(1, 1), Cells(rigaultimacella , colonnaultimacella )).Select

occhio che non ho provato il codice postato.........

ok ?

[robnet77]

ti riporto una parte di una macro che ho fatto tempo fa, è commentata il minimo indispensabile, ma penso ti sia sufficiente, eventualmente chiedi pure, anche se non sono certo un esperto di programmazione, ciao

'rintraccia l'ultima riga del foglio di lavoro
    Range("a1").Select
    Selection.End(xldown).Select
    UltimaRiga = ActiveCell.Row
    
    'cerca verticale e copia formula nelle celle in basso
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],nover.xls!nover,2,FALSE)"
    Selection.Copy
    Range("O3", "O" & UltimaRiga).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    'ordina dati per colonna "O" decrescente, per mettere i "NO" in fondo
    Cells.Select
    Range("D1").Activate
    Selection.Sort Key1:=Range("O2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
   
   
   'trova il primo "NO" tra i valori nella colonna "O"
    Columns("O: O").Select
    Range("O97").Activate
    Selection.Find(What:="no", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    PrimarigaNo = ActiveCell.Row
    Selection.End(xldown).Select
    UltimarigaNo = ActiveCell.Row
    Range("A" & PrimarigaNo, "O" & UltimarigaNo).Select
    Selection.Delete shift:=xlUp

[robnet77]

Columns("O: O").Select


nella riga che ho riportato qua sopra, ho aggiunto uno spazio dopo aver postato, visto che il codice VB lo aveva interpretato come una faccina

p.s. ma non è possibile escludere le faccine dai tag [code]?