Geen probleem dan probeer ik het opnieuw duidelijker uit te leggen.
Kolom G, daar komt het cijfer 1298 vanaf cel g4 wel 6 maal voor. In kolom E onder SYMBOL (cel e3) zijn er 6 symbolen, die symbolen zou ik graag onder elkaar vanaf cel h4 willen zien.
Waarom wil ik dat daar zien, omdat in cel b4 het cijfer 6 staat onder cel b3 "EB".

Kolom A: cel a4: 1298.
cel b3 EB: daaronder zie je 6 dwz dat er 6 symbolen zijn die bij 1298 horen. Die symbolen horen bij EB en niet CB.
Die 6 symbolen staan onder cel e3 symbol. Vanaf e4 zie je de desbetreffende 6 symbolen. Naast deze 6b symbolen zie je ook EB staan.

Deze 6 symbolen zou ik graag onder h3 symbol eb wilen zien vanaf cel h4.

Zo geldt dat ook voor:
Kolom A: cel a5: 1798.
cel b3 CB: daaronder zie je 1 dwz dat er 1 symbool is die bij 1798 hoort. Dat symbool hoort bij CB en niet EB.
Die ene symbool staat onder cel e3 symbol. Vanaf e10 zie je de desbetreffende ene symbool. Naast deze ene symbool zie je ook CB staan.

Deze ene symbool zou ik graag onder i4 symbol cb wilen zien vanaf cel i10.

1998 heeft 7 symbolen onder EB dus die komen in kolom H naast 1998 7 maal onder elkaar.

De data in kolom H en I zijn nu handmatig ingevoerd maar zou ik graag via een formule willen invoeren.

Hopelijk is het duidelijker anders hoor ik het graag.


mvg,

Team Roy

Dit is de code die ik nu al erin staan heb:

Sub RijKopierenInvoegen()
'Updateby Extendoffice
ActiveSheet.Unprotect "Depypere1A"
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
ActiveSheet.Protect "Depypere1A", DrawingObjects:=True, Contents:=True, _
    Scenarios:=False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
    AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
    AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=False
End Sub
In bijlage het bestand:

Team roy,

Ik wil graag helpen, maar begrijp echt niet waar je naartoe wil, sorry 

Ik vermoed, gezien je voorbeeldbestand al 9 keer gedownload is, dat er meer mensen zijn die niet echt aan uit kunnen.

Kan je het niet anders uitleggen?

SoftAid              

Hey Evelien,
Momenteel geen pc bij de hand, dus kort: je moet die toelatingen bij mijn laatste code opnemen.
Als het niet lukt mag je ook je werkboek bezorgen, ontdaan van privacygevoelige inhoud.
Groetjes,
Molly

ok,dankjewel,ga ik doen