[Excel] Macro semplice

[Miticoo87]

Ciao richiedo nuovamente un aiutino a questa fantastica comunity

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")

[MarcoGG]

Originariamente inviato da Miticoo87

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...

[Miticoo87]

Originariamente inviato da MarcoGG

    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...

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