• 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.

Bij het kopieren uit tabellen loopt er iets mis

Status
Niet open voor verdere reacties.
R

Remlo

Gebruiker
Lid geworden
20 mei 2011
Berichten
131
Voor het opvolgen aanwezigheden voetbalploeg, bezig met dit bestandje.
Ik krijg echter soms verkeerde output na kopieren uit 2 tabellen.
Er zullen waarschijnlijk wel betere manieren zijn vandaar deze vraag...

Indien mogelijk zou dit op een tablet moeten werken. (office toepassing android) weet niet of dit kan
 

Bijlagen

  • Voetbal2.xlsm
    46 KB · Weergaven: 30
Leg het eens beter uit aub..... soms.....??????
 
Er staat wat uitleg in bestand, tabblad Afwezigheden.

De fout doet zich niet altijd voor, vandaar moeilijk uit te leggen.
De waarden uit de tweede tabel zouden onder de gekopieerde waarden van de eerste kolom moeten komen.
Soms overschrijft de macro namen.
 
Vage info = Vage antwoorden

ik ben graag behulpzaam, maaaaaaaaar... Je spreekt in je bestand over "een" tabblad.
 
End(xlup) kan in een gefilterd bereik in een verkeerde cel uitkomen.

Zorg ervoor dat de cellen in kolom J echt leeg zijn.
Code: 
Sub VenA()
  ar = Blad5.ListObjects(1).DataBodyRange
  ar1 = Blad5.ListObjects(2).DataBodyRange
  For j = 1 To UBound(ar)
    If ar(j, 1) = "x" Then c00 = c00 & "|" & ar(j, 2)
    If ar1(j, 1) = "x" Then c01 = c01 & ar1(j, 2) & "|"
  Next j
  If Len(c01) > 0 Then c00 = c00 & "|" & c01
  If Len(c00) > 0 Then
    ar2 = Split(Mid(c00, 2), "|")
    Cells(Rows.Count, 10).End(xlUp).Offset(1).Resize(UBound(ar2) + 1) = Application.Transpose(ar2)
  End If
End Sub
 
VenA

ik was er al achter gekomen dat het iets moest zijn door het filteren.
Maar hier geen oplossing voor gevonden.
Hartelijk dank voor je code.

Kan vraag als opgelost zetten.
 
Over je tablet vraag: Op ANdroid Office geen VBA helaas. Dan zal je een Office app moeten gaan maken in JavaScript/HTML/CSS.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan