Modulo che incrementa

Hai un problema con Excel?

Nuova discussione

Modulo che incrementa
di ffante (utente non iscritto) data: 18/01/2015 22:50:08
Buonasera

Qualche tempo fa grazie a uno di voi sono riuscito a fare un file, questo file e composto da due fogli

Il Primo foglio col nome Rev2 viene utilizzato per l'inserimento dati e verifica ricette, il secondo foglio

mi serve per raccogliere i dati ricetta che vengono inseriti grazie ad una macro Foglio Dosaggi.

Ho un problema i dati che vengono raccolti nel foglio Dosaggi incrementano in funzione delle righe che verranno

riempite soltanto che con il modulo che ho creato sommando 3 macro devo comunque riaprire il modulo copiare i

dati di un altro modulo e inserirli all'interno del mio nuovo modulo e cambiare il riferimento delle celle.

volevo chiedere se ci fosse un modo per poter far incrementare in automatico i riferimenti scritti sul foglio
Dosaggi.

1à macro nuovo_inserimento_Rev2() ' la macro per gli inserimenti

2à macro nuovo_vuoto_rev2() ' la macro che utilizzo per copiare i dati ed alla fine cambio il riferimento delle celle.

Io con la mia poca conoscenza del vba non sono stato in grado di farlo.

Se qualcuno di voi mi potesse aiutare.

Vi ho postato un file di prova, vi ringrazio anticipatamente..

1à macro:

Sub Nuovo_Inserimento_Rev2()
'
' NuovoInserimento Macro
'
k = Sheets("Dosaggi").Range("d" & Rows.Count).End(xlUp).Row
a = Array(Sheets("Rev2").Range("R33"), Sheets("Rev2").Range("R2"), Sheets("Rev2").Range("G2"), Sheets("Rev2").Range("F19"), Sheets("Rev2").Range("I19"), Sheets("Rev2").Range("F20"), Sheets("Rev2").Range("I20"), Sheets("Rev2").Range("F21"), Sheets("Rev2").Range("I21"), Sheets("Rev2").Range("F22"), Sheets("Rev2").Range("I22"), Sheets("Rev2").Range("L26"), Sheets("Rev2").Range("O26"), Sheets("Rev2").Range("I26"), Sheets("Rev2").Range("O6"), Sheets("Rev2").Range("R6"), Sheets("Rev2").Range("F33"), Sheets("Rev2").Range("O34"))
B = Array(Sheets("Dosaggi").Cells(k + 1, 1), Sheets("Dosaggi").Cells(k + 1, 2), Sheets("Dosaggi").Cells(k + 1, 3), Sheets("Dosaggi").Cells(k + 1, 4), Sheets("Dosaggi").Cells(k + 1, 5), Sheets("Dosaggi").Cells(k + 2, 4), Sheets("Dosaggi").Cells(k + 2, 5), Sheets("Dosaggi").Cells(k + 3, 4), Sheets("Dosaggi").Cells(k + 3, 5), Sheets("Dosaggi").Cells(k + 4, 4), Sheets("Dosaggi").Cells(k + 4, 5), Sheets("Dosaggi").Cells(k + 1, 6), Sheets("Dosaggi").Cells(k + 1, 7), Sheets("Dosaggi").Cells(k + 1, 8), Sheets("Dosaggi").Cells(k + 1, 9), Sheets("Dosaggi").Cells(k + 1, 10), Sheets("Dosaggi").Cells(k + 1, 11), Sheets("Dosaggi").Cells(k + 1, 12))
For i = 1 To UBound(a) + 1
    B(i - 1).Value = a(i - 1).Value
Next

Sheets("Dosaggi").Range("d2:e5000").SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)

'   MsgBox

MsgBox "I DATI SONO STATI INSERITI NELLA CARTELLA DOSAGGI." & vbLf _
& " " & vbLf & "COPIARE I DATI DA UN' ALTRO MODULO" & vbLf _
& " " & vbLf & "RINOMINARE IL NUOVO PULSANTE CREATO CON IL CODICE" & vbLf _
& " " & vbLf & "E IL NOME DEL PRODOTTO.", vbInformation, "  Prova"

'   Crea_Pulsante

    ActiveSheet.Buttons.Add(987.75, 178.5, 202.5, 41.25).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 28.5
    Selection.ShapeRange.Width = 198.75
End Sub
------------------------------------------------------------------
2à macro

Sub Nuovo_Vuoto_Rev2()
'
    Application.ScreenUpdating = False
'
    Sheets("Rev2").Range("F19,F20,F21,F22,I19,I20,I21,I22").ClearContents

'   Codice Prodotto Finito
    Sheets("Rev2").Range("R2").Value = Sheets("Dosaggi").Range("B62").Value
'   Nome Prodotto
    Sheets("Rev2").Range("G2").Value = Sheets("Dosaggi").Range("C62").Value
'   Peso Uve
    Sheets("Rev2").Range("F33").Value = Sheets("Dosaggi").Range("K62").Value

    
'   Nome ingrediente Tramoggia 9
    Sheets("Rev2").Range("F19").Value = Sheets("Dosaggi").Range("D62").Value
'   Peso Ingrediente Tramoggia 9 su ishida 1 e 2
    Sheets("Rev2").Range("I19").Value = Sheets("Dosaggi").Range("E62").Value
'   Nome ingrediente Tramoggia 10
    Sheets("Rev2").Range("F20").Value = Sheets("Dosaggi").Range("D63").Value
'   Peso Ingrediente Tramoggia 10 su Volumetrici 1 e 2
    Sheets("Rev2").Range("I20").Value = Sheets("Dosaggi").Range("E63").Value
    
'   Nome ingrediente Tramoggia 11
    Sheets("Rev2").Range("F21").Value = Sheets("Dosaggi").Range("D64").Value
'   Peso Ingrediente Tramoggia 11 su - S1 - ishida 3 e 4
    Sheets("Rev2").Range("I21").Value = Sheets("Dosaggi").Range("E64").Value
'   Nome ingrediente Tramoggia 12
    Sheets("Rev2").Range("F22").Value = Sheets("Dosaggi").Range("D65").Value
'   Peso Ingrediente Tramoggia 12 su - S2 - ishida 3 e 4
    Sheets("Rev2").Range("I22").Value = Sheets("Dosaggi").Range("E65").Value

'   Lunghezza Busta
    Sheets("Rev2").Range("L26").Value = Sheets("Dosaggi").Range("F62").Value
    
'   Numero di strati Cartone
    Sheets("Rev2").Range("O26").Value = Sheets("Dosaggi").Range("G62").Value
    
'   Media oraria
    Sheets("Rev2").Range("I26").Value = Sheets("Dosaggi").Range("H62").Value

'   Codice Busta
    Sheets("Rev2").Range("O6").Value = Sheets("Dosaggi").Range("I62").Value
    
'   Codice Cartone
    Sheets("Rev2").Range("R6").Value = Sheets("Dosaggi").Range("J62").Value
        
End Sub

Vuoi Approfondire?