Invulsheet ombuigen naar Kolommen

[VJJK]

Hey Allemaal,

Ik zit met het volgende. Via een invulsysteem met dropdownlists (sheet 1) wil ik Sheet 2 automatisch laten opbouwen. Ik heb een eenvoudige versie van het geheel bijgevoegd.Bekijk bijlage inspectie excel naar acces.xls

Ik heb van alles geprobeerd maar heb het idee dat ik in de verkeerde richting kijk.

Wie o wie kan mij hiermee helpen?

Sheet 2 wordt dan gebruikt als verdere invoertabel gelinkt in Access.

Alvast bedankt.

 

[Superzeeuw]

VJJK,

Heb je verstand van Macro's?

 

[VJJK]

Hey Superzeeuw,

Ik heb redelijk verstand van Macro's heb ook een idee welke kant jij op wilt alleen wil ik het meer soepel laten verlopen doormiddel van VB in de vorm van een loop.

Hiermee wil ik bereiken dat alleen als in rij 1 een kolom is gevuld met een inspectie deze wordt gekopieerd naar sheet 2.

het aantal referentie nummers verschilt nogal per order. via Access zou het mogelijk zijn via een querie. Maar hoe en of dit in Excel ook kan..

Enig idee?

VJJK

 

[Superzeeuw]

VJJK,

Dat kan door de macro te laten sturen op een veld wijziging, dan de macro zijn ding laten doen zoals controleren of een veld gevuld is op die regel.
Is er een veld gevuld dan kopieren anders niets doen.

 

[VJJK]

Dag Superzeeuw,

zou je hiervan een voorbeeld kunnen maken in het bijgevoegde document?

ik het niet voor elkaar de macro telkens naar een volgende cel te springen.

Alvast bedankt.

VJJK

 

[Superzeeuw]

VJJK,

Probeer het progje maar eens uit en kijk eens naar het resultaat op Sheet3.

Iedere keer wanneer jij iets verandert zal de sheet inhoud van Sheet3 opnieuw opgebouwd worden.

 

[VJJK]

Dit was echt precies wat ik nodig had. werkt vlekkeloos

Echt super bedankt!

 

[VJJK]

ik heb de code nog iets weten te verfijnen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 16 Or Target.Column > 119 Then Exit Sub
If Target.Row < 10 Then Exit Sub
Teller = 2
Sheets("sheet1").Range("A2:E65536").ClearContents
For x = 10 To Range("C65536").End(xlUp).Row
For y = 16 To 119
If Cells(x, y).Value <> "" Then
For colNum = 1 To 15
Sheets("Sheet1").Cells(Teller, colNum).Value = Cells(x, colNum).Value
Next
Sheets("Sheet1").Cells(Teller, 16).Value = Cells(x, y).Value
Sheets("Sheet1").Cells(Teller, 17).Value = y - 15
Teller = Teller + 1
End If
Next y
Next x
End Sub

 

[VJJK]

Dan heb ik nog een vraag.. zou het ook the other way round kunnen werken?

dat de Matrix automatisch wordt opgebouwd vanuit een tabel?

 

[Superzeeuw]

Zeker,

Probeer het nieuwe progje maar eens.

Wijzig iets op Sheet3 en Sheet4 wordt automatisch gevuld.

P.S.: als je nog een vraag hebt moet je de topic nog niet op opgelost zetten.