• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

formule gehele werkmap

Status
Niet open voor verdere reacties.
P

pieter1003

Nieuwe gebruiker
Lid geworden
11 jan 2016
Berichten
4
hey

ik zoek volgende formule

als er in de gehele werkmap (zijn verschillende tabbladen) een X staat in kolom E dan moet hij in het tabblad genaamd divers , de volledige lijn weergeven in die map en er moet een oplijsting komen van alle X lijnen in de map divers


hopend op een formule want zit vast :(
 
Beste pieter,

Ik denk dat we je wat beter kunnen helpen als we je bestandje kunnen zien.
Zou je die kunnen posten? Of een voorbeeldje ervan?
 
bijlage

beste

bedankt voor de reactie in bijlage het bestand

nogmaals de nodige formule voor

als er een X staat in kolom E (cash) in de gehele werkmap dan moet de lijn weergegeven worden in het werkblad cashverrichtingen alsook de klantnaam (c1)

hopelijk kunt u mij helpen.
 

Bijlagen

Met een formule gaat dat niet lukken en van VBA heb ik vooralsnog te weinig kennis.
 
Zo'n macro is best te maken, maar het lijkt mij toch niet de bedoeling dat wij als helpers eerst een werkblad moeten vullen. Ik denk dat ik niet de enige ben die zijn tijd liever stopt in het maken van een oplossing dan eerst een half uur als typgeit los te moeten op je bestand. Dus graag een bestandje met gegevens.
 
gegevens

eerst en vooral bedankt voor de reactie. is een nieuw bestand dus heb zelf 2 klanten ingevuld. vermoedde een simpele formule maar blijkbaar is dit niet het geval. hopelijk kunt u mij helpen deze macro op te stellen.

alvast al bedankt voor de moeite
 

Bijlagen

Altijd handig als de bladen beveiligd zijn.

ongetest

Code: 
Sub VenA()
ReDim ar(Sheets.Count * 100, 7)
For Each sh In Sheets
    If sh.Name <> "start" Or sh.Name <> "balans" Or sh.Name <> "cashverrichtingen" Then
        ar1 = sh.Cells(1).CurrentRegion
        For j = 3 To UBound(ar1)
            If LCase(ar1(j, 5)) = "x" Then
                For jj = 1 To 7
                    ar(t, jj - 1) = ar1(j, jj)
                Next jj
                ar(t, 7) = ar1(1, 2)
                t = t + 1
            End If
        Next j
    End If
Next sh
Sheets("cashverrichtingen").[A3].Resize(UBound(ar), 8) = ar
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan