range selection con contatore

[pascod]

Ciao Ragazzi,
dalla prima volta che ho avuto accesso a questo splendido forum ne ho fatti di passetti avanti col VBA.. e mi sta affascinando, Grazie.

sono di fronte ad un piccolo scoglio per una macro che sto formulando:
In questo passaggio desidero selezionare verso il basso un numero di celle, nella stessa colonna, che siano uguali ad un contatore:
Questa riga dice alla macro: vai su di tante righe quante sono le ripetizioni loop che hai fatto nel ciclo (variabile contatore carmelo) e poi selezionami un range che va dall'activecell alla terza cella, sempre sulla stessa colonna.

ActiveCell.Offset(-carmelo, 0).Range("a1:a3").Select

Dovrei sostituire quell' "a3" con un altro contatore che ho immesso nella Macro.. ma come si fa?

tale contatore cambia di volta in volta ed il range da selezionare varia di conseguenza.. devo legare le due cose.. come faccio??

Grazie
Pasquale

[ricky53]

Ciao,
se l'intervallo A1:A3 può essere maggiore allora prova con questo esempio

Codice: Seleziona tutto

    UR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveCell.Offset(-Carmelo, 0).Range("A1:A" & UR).Select


La variabile "UR" tiene conto delle celle della colonna "A" contenenti valori e trova l'ultima riga avente valori

Al posto di "UR" puoi utilizzare il "TuoContatore":

Codice: Seleziona tutto

    ActiveCell.Offset(-Carmelo, 0).Range("A1:A" & TuoContatore).Select

[pascod]

Grazie! ora lo testo subito!

[pascod]

ascolta, (l'appetito vien mangiando...)
prima dell'istruzione mostrata,io sono già sull'activecell che mi interessa (l'ultima del ciclo) ma, al fine di poter agire col range uso un trucchetto cretino di andare sopra di "carmelo" righe e poi selezionarmi il range versoil basso.
come faccio a selezionare il range verso l'alto ? qual'è l'istruzione?

Grazie

[ricky53]

Ciao,
rispetto alla cella attiva tu quante righe vuoi selezionare?
Ossia: come calcoli le righe da selezionare, partendo dalla cella attiva verso l'alto?

[pascod]

la cella attiva è l'ultima cella del loop.
all'interno del loop ho messo un contatore.
da quell'ultima cella deve salire verso l'alto di "contatore" righe in maniera tale da selezionarmi solo quelle celle che hanno fatto parte di quel loop.

[ricky53]

Ciao,
il contatore è "Carmelo" ?

[pascod]

ciao,
è più facile se faccio così!

Codice: Seleziona tutto

Dim Titolo, Messaggio As Variant
Dim k As Long
Dim i As Long
Dim j As Long
Dim contatore As Long
Dim numero As Long
Dim Carmelo As Long

    Titolo = "Maschera inserimento Codice Expo"
    Messaggio = "Digita il Codice del Display"
    contenitore = InputBox(Messaggio, Titolo)
    Sheets("input expo").Select
    If contenitore <> "" Then
        numero = 15
        Do Until Cells(numero, 13) = ""
        numero = numero + 1
        Loop
        contatore = numero
        Cells(contatore, 10) = contenitore
       
        Carmelo = 1
               
        For i = 2 To 700
            Sheets("sheet1").Activate
            If Cells(i, 1) = contenitore Then
                Cells(i, 6).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 13).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("sheet1").Activate
                Cells(i, 7).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 15).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("sheet1").Activate
                Cells(i, 8).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 14).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("sheet1").Activate
                Cells(i, 9).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 16).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("sheet1").Activate
                Cells(i, 10).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 17).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Sheets("sheet1").Activate
                Cells(i, 12).Select
                Selection.Copy
                Sheets("INPUT EXPO").Select
                Cells(contatore, 27).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
               
                contatore = contatore + 1
                Carmelo = Carmelo + 1
                                                                               
            End If
        Next i
       
        Sheets("INPUT EXPO").Select
       
        Cells(contatore, 10).Select
       
        ActiveCell.Offset(-Carmelo, 0).Range("a1:a" & Carmelo).Select
                           
     End If
         
End Sub                     
           
   

dovrebbe essere Carmelo ma me ne conta uno in più rispetto al numero corretto di iterazioni
l'ho modificato è così mi esce... sempre col trucchetto dell'offset, ma mi esce!!! :-)

[ricky53]

Ciao,
perchè imposti Carmelo = 1 ?

Dovrebbe essere Carmelo = 0


. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
EDIT: Hai modificato il codice mentre ti rispondevo.

Cosa ha modificato?

[pascod]

Scusa il ritardo... proprio Carmelo!!!

Grazie mille..

Giusto per la prox volta: come hai visto per modificare il range nella penultima istruzione della macro, ho dovuto usare offset perchè non trovavo un'istruzione che me lo permettesse di fare senza prima mettere offset all'activecell.

come avrei potuto fare altrimenti il Re Range??

Grazie

[ricky53]

Ciao,
a mia conoscenza è la soluzione buona ed unica in base a quanto ti occorre ...
non mi viene in mente un'altra soluzione.