Fare continuare la macro sulla colonna B.

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

gattodimarmo1980

00lunedì 8 agosto 2016 20:51

Buonasera a tutti. Possiedo Excel 2003 e vorrei fare continuare questa macro (non fatta da me) chiamata
Sub calcola()
Dim X, Y, W, Rg
Rg = 1
'Application.Calculation = xlCalculationManual
For X = 1 To 90
For Y = X + 1 To 90
For W = Y + 1 To 90
Cells(Rg, 1) = X & "_" & Y & "_" & W
Rg = Rg + 1
Next W
Next Y
Next X
'Application.Calculation = xlCalculationAutomatic
MsgBox "fatto"
End Sub

sulla colonna b perché ho raggiunto il massimo numero di righe.In teoria se ho fatto i conti giusti la macro dovrebbe riempirsi fino alla cella b51944.Grazie Matteo

cromagno

00lunedì 8 agosto 2016 21:11

Ciao,

perchè non hai messo la macro nel file allegato [SM=g27833]

Comunque, puoi modificare in questo modo:

Sub calcola()
Dim X As Long, Y As Long, W As Long, Rg As Long, Colonna As Long

Rg = 1
Colonna = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For X = 1 To 90
    For Y = X + 1 To 90
        For W = Y + 1 To 90
            Cells(Rg, Colonna) = X & "_" & Y & "_" & W
            If Rg + 1 > Rows.Count Then
                Rg = 1
                Colonna = Colonna + 1
            Else
                Rg = Rg + 1
            End If
        Next W
    Next Y
Next X
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "fatto"
End Sub

[EDIT]
nel codice manca un'istruzione per cancellare i dati già presenti prima di scrivere quelli nuovi, ma non sapendo come è realmente strutturato il tuo file... non l'ho aggiunto

gattodimarmo1980

00lunedì 8 agosto 2016 21:47

Non ho visto che mancava la macro scusami Cromagno .Ora provo il tuo codice.Grazie Matteo

gattodimarmo1980

00lunedì 8 agosto 2016 21:51

Ottimo riscontro

Grande Cromagno. Giusto riscontro.Allego foto.Grazie Matteo

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 03:50.