Gedeeltelijk kopieren (een uitdaging)

[jvson]

Ik heb een excel bestand waarbij ik een getal (de grootboekrekening) wil kopieren voor de kostenplaats.
Heb een handmatig opzetje gemaakt van de uitkomst, maar dit moet natuurlijk automatisch gaan...

Ter verduidelijking heb ik de bestandje toegevoegd. Het resultaat wil ik in de gele cellen.
Het originele bestand is veel langer en het aantal regels per kostenplaats verschilt per uidraai...

Hopelijk kan iemand mij helpen...

Alvast bedankt!

 

[mastermindzh]

Ik heb de titel van je vraag even aangepast zodat deze wat vriendelijker is
Hier in het vervolg aub op letten

Veel succes verder met de vraag :thumb:

 

[VenA]

Een draaitabel weer omzetten naar een tabel?

Probeer deze in A26 en doortrekken naar beneden.

=ALS(B26="";"";ALS(LINKS(B25;5)="Groot";DEEL(B25;VIND.ALLES(":";B25;1)+2;5);A25))

 

[snb]

Sub M_snb()
  Cells.UnMerge
  Cells.WrapText = False

  For Each ar In Columns(2).SpecialCells(2).Areas
     If Left(LCase(ar.Cells(1)), 9) = "grootboek" Then ar.Offset(1, -1).Resize(ar.Rows.Count - 1) = Mid(ar.Cells(1), 20, 6)
  Next
End Sub

 

[jvson]

Bedankt!!!