gegevens uit alle bladen in blad1

[pdekoning]

Ik heb 20 bladen met allen dezelfde macro, er moet in alle bladen een waarde worden opgezocht uit een lijst
Nu wil ik op blad 1 de gegevens die gevonden zijn uit alle 20 bladen.
Nu is het erg omslachtig omdat ik alle bladen afzonderlijk moet openen en op een lege cel moet klikken wil Excel de macro uitvoeren.
Pas dan komen alle gegevens op blad 1 te staan.
Bestaat er een andere mogelijkheid?

Groeten Peter

 

[Cobbe]

Als het 20 idem macro's zijn kom je ook toe met één macro die je in een lus zet.

Cobbe

 

[pdekoning]

lussen

Bedankt voor de snelle reactie
Ik heb nog nooit gewerkt cq gehoord van lussen.
Ik zal proberen iets te vinden op het internet.

Groeten Peter

 

[Cobbe]

Post dan één vd macro's en/of het bestand.

Cobbe

 

[Roncancio]

Bedankt voor de snelle reactie
Ik heb nog nooit gewerkt cq gehoord van lussen.
Ik zal proberen iets te vinden op het internet.

Groeten Peter

Met de zoekfunctie van Helpmij kan je ook het eea vinden over lussen.
Anders voeg je het bestand erbij zodat we je kunnen helpen.

Met vriendelijke groet,


Roncancio

 

[pdekoning]

lussen

Hierbij de code.
Cobbe zal hem wel herkennen.
Ik heb een schermafdruk als bijlage toegevoegd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("G:G")
If c = True Then
waarde1 = Cells(c.Row, 2).Value
waarde2 = Cells(c.Row, 3).Value
waarde3 = Cells(c.Row, 1).Value
waarde4 = Cells(c.Row, 6).Value
Cells(1027, 2) = waarde1
Cells(1027, 3) = waarde2
Cells(1027, 1) = waarde3
Cells(1027, 4) = waarde4
End If
Next
End Sub

 

[Cobbe]

Probeer deze macro eens:

Sub waarde_ophalen()
For I = 2 To Worksheets.Count
    For Each c In Sheets(I).Range("G:G")
     If c = True Then
      Lr = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
        With Sheets(1)
                    .Cells(Lr, 2) = Ws.Cells(c.Row, 2).Value
                    .Cells(Lr, 3) = Ws.Cells(c.Row, 3).Value
                    .Cells(Lr, 1) = Ws.Cells(c.Row, 1).Value
                    .Cells(Lr, 4) = Ws.Cells(c.Row, 6).Value
        End With
      End If
    Next
Next I
End Sub

Deze zet de waarden 1,2,3,4 in Blad1 die opgehaald worden in de bladen 2 tot en met laatste blad.
De opgehaalde waarden worden onder elkaar gezet op Blad1

Cobbe

 

[pdekoning]

helaas

helaas werkt het niet.
Ik zoek nog even verder.
Bedankt voor de hulp!

Groeten Peter

 

[pdekoning]

helaas2

pas wanneer ik de tabbladen open en aanklik wordt de waarde opgezocht en naar blad 1 getransporteerd.
gr peter

 

[Roncancio]

Voeg onderstaande code toe voor ThisWorkbook zodat de macro wordt uitgevoerd zodra je het bestand opent.

Private Sub Workbook_Open()
waarde_ophalen
End Sub

Met vriendelijke groet,


Roncancio

 

[pdekoning]

helaas

helaas werkt dit ook niet.
Bedankt voor de hulp!!!
Ik probeer het op de oude manier.

Groeten peter

 

[Roncancio]

Kan je een voorbeeldbestand sturen.
Ik denk dat het dan zo gepiept is.

Met vriendelijke groet,


Roncancio

 

[pdekoning]

even een voorbeeld bestand maken.
Momentje

 

[pdekoning]

ik krijg het besd niet kleiner dan 146 kb.
Ik zal het proberen inpakken

 

[pdekoning]

ingepakt

Voorbeeld bestand is ingepakt.
Succes en alvast bedankt voor de hulp

 

[pdekoning]

bestand

nu met bestand

 

[Cobbe]

'T zal niet af zijn maar de ik hoop dat dit +/- de bedoeling is:

Cobbe

 

[pdekoning]

Ja dit is het.
Ik ga hiermee verder aan de slag.
Hartelijk dank voor de hulp.

Groeten Peter