Google Adwords makro

Hovsa, det skal lige nævnes at der er en kolonne imellem ANNONCEGRUPPE og VISNINGER som hedder SØGEORD. Den skal der ikke ske noget ved, men bare for at få det hele med.
Endvidere skal selve scriptet starte i A7 da der står noget tekst for oven også som ikke skal bruges.

...og den skal fortsætte med at lede i kolonne A indtil den rammer en række hvor der står "Totalværdier og samlet gennemsnit:" Denne række er desværre ikke fast, da det kommer an på antallet af søgeord.

...og et eksempel kan ses her på det der skal ændres. http://www.bcool.dk/test.xls

Kan Data / Subtotaler ikke anvendes?

Der må jeg sige pas da jeg ikke aner en dyt omkring makros i excel. Har kun anvendt makros i Photoshop og det kan man ikke just sammenligne :-)

Det har ikke noget med makroer at gøre - derfor prøv følgende - med udgangspunkt i dit eksempel.

1) Marker alle cellerne - også overskrift
2) Vælg menuen Data / Subtotaler
3) Ved ændring i: Grp
4) Anvend funktionen: Sum
5) Føj subtotal til: Visninger & Klik
6) OK

En lille godnat kode:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Bund, Top, I
Bund = Range("A65536").End(xlUp).Row
Bund = Bund - 8
Range("A8").Select
For I = 1 To Bund
    If ActiveCell.Range("A2").Value = ActiveCell.Value Then
        ActiveCell.Range("A2").Select
    Else
        If ActiveCell.Range("A2").Value <> "" And ActiveCell.Range("A2").Value <> "Total" Then
            ActiveCell.Range("A2").EntireRow.Select
            Selection.Insert Shift:=xlDown
            Selection.Insert Shift:=xlDown
            ActiveCell.Range("A3").Select
        End If
    End If
Next
Bund = Range("A65536").End(xlUp).Row
Top = 8
Range("A8").Select
For I = 1 To Bund
    If ActiveCell.Value = "" And ActiveCell.Range("A2") = "" And ActiveCell.Range("A3") <> "" Then
        ActiveCell.Value = "Total"
        ActiveCell.Range("C1").FormulaR1C1 = "=SUM(R[-" & ActiveCell.Row - Top & "]C:R[-1]C)"
        ActiveCell.Range("D1").FormulaR1C1 = "=SUM(R[-" & ActiveCell.Row - Top & "]C:R[-1]C)"
        Top = ActiveCell.Row + 2
        ActiveCell.Range("A2").Select
    Else
        ActiveCell.Range("A2").Select
    End If
Next
Range("A8").Select
Application.ScreenUpdating = True
End Sub

Kommet videre?

Jo det er jeg, troede den her var blevet lukket?

Kunne du bruge det?

Ja helt klart, det virker ligesom det skulle :-)

Ved du hvordan du accepterer, og giver point?

???

Skal vi lukke?

Ved du hvordan du accepterer og lukker?

Lidt respons.

?

Sådan lukker du: http://www.racingcar.dk/eksperten/svar/svar.html

Skal du have hjælp til at lukke spørgsmålet?

???