Opgelost Getallen in cellen/rijen kopiëren naar sheet dat een filter is (ander document)

[Senso]

Normale sheet met kolom en 100 rijen met getallen onder elkaar en die wil ik ineens kopiëren naar een sheet dat een filter is. Hoe moet dat? Google draait de zaak om en geeft kopiëren en plakken maar dat werkt niet.

bereik in bron selecteren > kopiëren en bereik in doel selecteren en dan Alt + ; en kopiëren geeft pop-up, u heeft meerdere bereiken geselecteerd wat niet waar is. Je kunt ook zien dat de juiste cellen zijn geselecteerd in het doel.
Excel 2007 H&S

 

[emields]

mooi voorbeeldje.

 

[Senso]

Dat is geen voorbeeldje, maar een uitleg. Ik kan geen twee documenten hier neerzetten met allemaal jaarcijfers die privé zijn. De uitleg is duidelijk. Een bereik met getallen in een kolom in een normale sheet (bron) kopiëren naar een sheet in een ander document dat een filter is (doel).
Je begrijpt dit of je begrijpt dit niet.

 

[cow18]

tja, visueel heb je 1 bereik voor je doel gekozen, maar excel zijn het tig "areas" en dus kan die niet plakken.
Dat wordt VBA (met voorbeeldje, dat je anonimiseert !).

 

[Senso]

Ja, dat zal kloppen. Waarom het dan 'wel kan' volgens/zoals omschreven op internet post 1 is mij een raadsel. Je kiest in de doel ook voor de visuele cellen Onjuiste informatie dan!

 

[cow18]

mopperen tegen een pop-up heeft geen zin, dus ja, een voorbeeldje helpt iedereen een stuk verder ... .

 

[Senso]

Ik volg zeer nauwgezet wat er op internet staat aangegeven en dat probeer ik tig keer maar lukt niet. Kan best zijn dat ik het fout doe maar dat kost mij uren en uren en dan is er geen rendement meer. Dan kan ik in vier uur 16.000 getallen beter handmatig invoeren.

Ik denk niet dat met twee nieuwe documenten de uitwerking in de twee originele documenten te reproduceren is. Daar zitten tig codes en tig rijen in waarop je kunt filteren. Dat gaat je weer uren en uren kosten.

 

[peter59]

Power query?

 

[cow18]

mopper, mopper, maak een voorbeeldje

 

[emields]

het betreft zeer zwaar beveiligde info ivm de staatsveiligheid.

 

[Senso]

@emields
Geef jij het goede voorbeeld en plaats even jouw boekhouding/jaarcijfers/boekhouding van de afgelopen 10 jaar hier.

 

[snb]

5 jaar bewaren is voldoende.

 

[popipipo]

Als je een klein voorbeeldje maakt zoals in #1 genoemd, hebben we jou jaarcijfers over de afgelopen 50 jaar zelfs niet nodig het gaat tenslotte om getallen en niet om boekhouding.

 

[Senso]

Heeft niets met bewaarplicht te maken. Het is gewoon leuk de cijfers achter elkaar te hebben. Een hypotheek duurt ook 30 jaar.

Als je een klein voorbeeldje maakt zoals in #1 genoemd, hebben we jou jaarcijfers over de afgelopen 50 jaar zelfs niet nodig het gaat tenslotte om getallen en niet om boekhouding.

De gegevens komen uit een ander document dat gelijktijdig is geopend. Dan moet het bereik van de bron naar het doel en dat bereik komt denk ik niet overeen en men heeft het over zichtbare cellen. Maar goed ik heb het meerdere malen geprobeerd zoals op internet staat aangegeven en het lukt niet. Ze werden wel geplakt maar over de niet zichtbare cellen. Misschien ook is 2007 te oud.

 

[AHulpje]

Nou vooruit, een voorbeeldje gemaakt.

 

[cow18]

man, wat kan je mopperen. Je had toch al lang een kladje kunnen maken.
dus een test zonder begeleidend bestand
Kom nu niet af dat jouw bestand er toch net weer anders uitziet

PS. een blad in hetzelfde bestand of in een andere bestand, dat is maar een detail, een overbrugbaar euveltje.

EDIT : zie datAhulpje ook al iets gepost heeft, even bekijken ... (zelfde idee, uitwerking een beetje anders)

Sub Test()
     Dim b, r, Ptr, c, c1, Ar, i

     Application.ScreenUpdating = False

     'een bereik van 1000 rijen * 26 kolommen dat straks naar blad2 in stukken moet gekopieerd worden
     With Sheets("blad1").Range("A1").Resize(1000, 26)
          .FormulaR1C1 = "=rand()"
          .Columns(1).Resize(2000).FormulaR1C1 = "=row()"
          .Value = .Value
     End With

     With Sheets("Blad2")
          .Cells.Clear
          Set c = .Range("A1")
          'in blad2 telkens een willekeurig aantal rijen (tss 2 en 20) zichtbaar maken of verbergen, totdat je er minstens 1.000 zichtbaar hebt
          Do
               r = WorksheetFunction.RandBetween(2, 20)
               b = Not b
               c.Resize(r).EntireRow.Hidden = b     'afwisselend blok zichtbaar/onzichtbaar
               Set c = c.Offset(r)
               If Not b Then Ptr = Ptr + r
          Loop While Ptr <= 1000
          Set c1 = .Columns(1).SpecialCells(xlVisible)     ' de zichtbare cellen in de A-kolom van blad2

          'nu telkens kijken hoeveel rijen een zichtbaar blok heeft, de volgende zoveel rijen uit blad1 kopieren en plakken in blad2
          Ptr = 1                            'starten op rij 1 van blad1
          For Each Ar In c1.Areas            'elk blok zichtbare cellen van kolom A van blad2
               i = Application.Min(1001 - Ptr, Ar.Rows.Count)
               Sheets("blad1").Cells(Ptr, 1).Resize(i, 26).Copy Ar     'kopieer stuk uit blad1 op zichtbaar blok van Blad2
               Ar.Resize(i, 26).BorderAround LineStyle:=xlContinuous     'nog een kadertje er rond zetten
               Ptr = Ptr + Ar.Rows.Count     'ophogen pointer
               If Ptr > 1000 Then Exit For   'klaar als alle 1.000 rijen gekopieerd zijn
          Next

          .UsedRange.EntireRow.Hidden = False
     End With

     Beep
End Sub

 

[popipipo]

@ AHulpje

Bedankt voor jouw jaarcijfers.