Waarde herkennen in kolom (cel) en deze waarde in nieuwe rij

[TrueBlue]

Beste,

Ik zal het proberen uit te leggen. Alvast mijn excuus mocht e.e.a. toch niet duidelijk zijn, want makkelijk is het niet. Voor mij tenminste

Stel: In kolom "H" die naam "lucht" heeft, tikt men simpelweg getallen 1 t/m 100 in de cellen. In deze rijen staan ook andere gegevens verdeelt uiteraard over verschillende kolommen.
Wat ik wil is volgende:
- Als in kolom "H" waarde in cellen gevonden zijn , dan vult Excel automatisch nieuwe rij bij met alle gegevens van betreffende rij waar waarde oorspronkelijk gevonden was!

Kan dat en kan iemand mij helpen.
Ik hoop dat het duidelijk is.

Dank alvast,

 

[AlexCEL]

Welkom. Plaats s.v.p. een Excel voorbeeldbestand. Geef hierin handmatig aan je wilt bereiken voor een aantal cellen.

Wat je wil kan waarschijnlijk wel, maar de omschrijving hierboven is veel te algemeen om er een zinnig antwoord op te geven.

Vermeld ook even je versie van Excel.

 

[TrueBlue]

Voorbeeld,...

Hi Alex,

Bedankt voor je snelle respons.
Bijgaand de voorbeeld Excel. Ik gebruik Office 365 MSO Excel versie 2101 64-bits

Dank,

 

[AlexCEL]

Omdat je Excel 365 gebruikt is het vrij simpel op te lossen. Voor A16:

=FILTER(A2:A13;(($T2:$T13>0)+($U2:$U13>0)+($V2:$V13>0))*(A2:A13<>"");"")

Kun je doortrekken naar rechts, en je krijgt je gewenste resultaat.

Zie ook bijlage.

 

[JEC.]

Zorg er dan wel even voor dat je bijvoorbeeld =som(T2:V2) in K2 zet en doortrekt naar beneden. Dan krijg je de resultaten in kolom K ook mee uit je filtering.

 

[AlexCEL]

Dat detail had ik even over het hoofd gezien...

 

[JEC.]

Ik neem aan dat dat wel oke is, anders wordt het wat ingewikkelder.

 

[TrueBlue]

Bedankt.
We zijn er bijna. :thumb:
Vraag is hoe krijg ik waarde uit de kolom T, U of V allen maar in automatisch toegevoegde rij in kolom "K"? Dit gedeelte is me niet duidelijk!
Dit is een wekelijks in te vullen sheet en er komen rijen in (zeg maar week 11, week 12 enz.) die niet verstoord mogen worden met welke formule dan ook.
Formule hoort dus rijen toe te voegen met gegevens tot en met kolom "K", waar in kolom "K" geen opsomming van kolom T t/m kolom V hoort te komen, maar voor elke te vinden waarde (in de cellen van kolommen T t/m V) een nieuwe rij toegevoegd zal worden.
Ik hoop dat ik niet te veel vraag!?

 

[AlexCEL]

je vraagt niet teveel, maar je omschrijft het wel heel moeilijk.

Het gaat dus om kolom K, de som van kolom T,U en V.
In cellen K2:K13 wil je GEEN formule, maar je wilt wel de totalen hebben in K21 en verder.

Hoe kom je aan die tabel? Kan je er een hulpkolom naast zetten?

 

[JEC.]

Je kunt deze eens runnen

Sub jveer()
 jv = Sheets(1).Cells(1).CurrentRegion.Offset(, 19).Resize(, 3)
 c = Application.CountA(Sheets(1).Range("T2").Resize(UBound(jv) - 1, 3))
   ReDim ar(1 To c, 1 To 19)
     For i = 2 To UBound(jv)
      For ii = 1 To UBound(jv, 2)
        If jv(i, ii) > 0 Then
         j = j + 1
          For k = 1 To 19
            If k = 11 Then
              ar(j, k) = jv(i, ii)
            Else
              ar(j, k) = Cells(i, k)
            End If
          Next
       End If
     Next
   Next
 Cells(25, 1).Resize(UBound(ar), 19) = ar
End Sub

 

[HSV]

Of:

Sub hsv()
sv = Cells(1).CurrentRegion
    For i = 2 To UBound(sv)
     If sv(i, 20) > 0 Or sv(i, 21) > 0 Or sv(i, 22) > 0 Then
      s0 = s0 & " " & i
      sv(i, 11) = sv(i, 20) & sv(i, 21) & sv(i, 22)
     End If
    Next i
xy = Application.Transpose(Split(Trim(s0)))
Cells(30, 1).Resize(UBound(xy), 19) = Application.Index(sv, xy, [transpose(row(1:19))])
End Sub

Als je T14 ontdoet van de tekst kan het zo:

If sv(i, 20) + sv(i, 21) + sv(i, 22) Then

 

[JEC.]

En wat als je 2 cijfers in 1 rij hebt?

 

[HSV]

Kwam niet in het bestand voor.

 

[JEC.]

Managing of expectations

 

[HSV]

Altijd een closetrol bij je dus. :d

 

[JEC.]

Haha goeie!:thumb:

 

[HSV]

Gekheid natuurlijk, het kan maar zo wat je voorstelde.

 

[TrueBlue]

je vraagt niet teveel, maar je omschrijft het wel heel moeilijk.

Het gaat dus om kolom K, de som van kolom T,U en V.
In cellen K2:K13 wil je GEEN formule, maar je wilt wel de totalen hebben in K21 en verder.

Hoe kom je aan die tabel? Kan je er een hulpkolom naast zetten?

Idd. Formule ziet in kolom T, een waarde -> vult de nieuwe regel (alle gegevens t/m kolom K uiteraard) en zet de waarde in kolom K
Formule ziet in kolom V, een waarde (kan en mag in hetzelfde rij zijn net als waarde in kolom T) -> vult de nieuwe regel en zet de waarde in kolom K - enz.

Excuus als ik niet duidelijk genoeg ben, maar geloof me het is not easy,...

 

[HSV]

Nieuwe poging.

Sub hsv()
sv = Cells(1).CurrentRegion
   With CreateObject("scripting.dictionary")
      For j = 2 To UBound(sv)
        sq = Application.Index(sv, j)
        st = Split(sv(j, 20) & "|" & sv(j, 21) & "|" & sv(j, 22), "|")
        For jj = 0 To UBound(st)
         If st(jj) <> "" Then
           sq(11) = st(jj)
           sq(20) = "": sq(21) = "": sq(22) = ""
           .Item(.Count) = sq
         End If
        Next
      Next
    Cells(35, 1).Resize(.Count, UBound(sv, 2)) = Application.Index(.items, 0)
   End With
End Sub