avrei un quesito da porre al forum. Ho allegato un file excel di esempio al link seguente:
http://www.filedropper.com/provaforum
Avrei necessita di scrivere un codice VBA che mi consenta di aggiornare i folgi January, February, e così via sulla base dei valori che inserisco nelle celle in grigio del folgio "Daily". Mi spiego meglio: il foglio in cui saranno inseriri i dati sarà il foglio "Daily", il codice dovrebbe aggiornare automaticamente le celle nei fogli "January", February, e mesi successivi con i valori inseririti nel folgio "Daily" nelle colonne "A" (Classe) e "B" (Prodotto), nella riga "1" (Giorno); ad esempio se nel foglio "Daily" seleziono il giorno 01/01/2014 e inserisco il valore 8 in corrispondenza della Classe "Focaccia", del prodotto "Base" e della Categoria "P", nel folgio "January" mi dovrebbe comparire lo stesso valore nella cella "C3"; se nel foglio "Daily" seleziono il giorno 01/02/2014 e inserisco il valore 8 in corrispondenza della Classe "Focaccia", del prodotto "Base" e della Categoria "P", nel folgio "February" mi dovrebbe comparire lo stesso valore nella cella "C3"; e così via...
Il codice che ho sviluppato e non funziona è il seguente:
- Codice: Seleziona tutto
Sub prova_selezione ()
T = 1
S = 3
A = 3
For R = 3 To 8
Do
Do
If Worksheets("January").Cells(R, T) = Worksheets("Daily").Cells(S, T) Then
If Worksheets("January").Cells(R, T + 1) = Worksheets("Daily").Cells(S, T + 1) Then
If Worksheets("January").Cells(T, A) = Worksheets("Daily").Cells(T, T + 2) Then
If Worksheets("January").Cells(R + 1, A) = Worksheets("Daily").Cells(R + 1, A) Then
Worksheets("January").Cells(R, A) = Worksheets("Daily").Cells(R, A)
End If
End If
End If
S = S + 1
Loop Until S < 700
A = A + 1
Loop Until A < 500
Next R
Worksheets("January").Select
End Sub
Si può fare?
Grazie in anticipo della disponibilità
Lucio