[Excel] Macro semplice

[Miticoo87]

:D

Ciao richiedo nuovamente un aiutino a questa fantastica comunity:D

La macro per chi sa farle penso sia abbastanza facile il funzionamento è il seguente:

1) Copia H8 da tutti i fogli
2) Incolla nel foglio "Riepilogo" da cella B10 a B100

La funzione serve per copiare i vari nominativi e totale in un foglio di riepilogo formattato:

NomeFornitore Totale

Pinco__________10€
Pallino _________20€

La cella nominativo e totale è la medesima in tutti i fogli dei fornitori:)

Spero di esser stato chiaro e che qualcuno riesca a risolvere sto "problemino"

Grazie.

[Miticoo87]

up


ragazzi ci sono quasi mi manca solo un qualcosa che mi aumenti in progressione i fogli e le celle:)

Ecco quello che ho fatto mooolto semplice:


Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 13/12/2008 da Nicola
'

'
Sheets(2).Select
Range("D4").Select
Selection.Copy
Sheets("Riepilogo").Select
Range("E26").Select
ActiveSheet.Paste
Sheets(2).Select
Range("K9").Select
Selection.Copy
Sheets("Riepilogo").Select
Range("J26").Select
ActiveSheet.Paste


End Sub

Basterebbe che facesse questo ciclo che so 100 volte e ogni volta aumentasse di 1 i valori in rossi cioè prossimo ciclo Sheet(3) Range( " E27")

:rolleyes:

[MarcoGG]

La macro per chi sa farle penso sia abbastanza facile il funzionamento è il seguente:

1) Copia H8 da tutti i fogli
2) Incolla nel foglio "Riepilogo" da cella B10 a B100

Dim F As Worksheet
Dim val As Variant
Dim i As Integer
i = 10
For Each F In ThisWorkbook.Worksheets
If F.Name <> "Riepilogo" Then
val = F.Range("H8").Text
Sheets("Riepilogo").Range("B" & i).FormulaR1C1 = val
i = i + 1
End If
Next F

Questo è quanto per la tua richiesta al post #1. ;)
Il post #2 non l'ho capito... :mbe:

[Miticoo87]

Dim F As Worksheet
Dim val As Variant
Dim i As Integer
i = 10
For Each F In ThisWorkbook.Worksheets
If F.Name <> "Riepilogo" Then
val = F.Range("H8").Text
Sheets("Riepilogo").Range("B" & i).FormulaR1C1 = val
i = i + 1
End If
Next F

Questo è quanto per la tua richiesta al post #1. ;)
Il post #2 non l'ho capito... :mbe:

grazie marco del supporto ma ho già risolto con un'altra comunity. Buona Domenica;)