[Excel] zoeken en verplaatsen

[cablerichy935]

Hallo,

Ja ik heb gezocht in de seach en op google, maar daar vindt ik niet de juiste werkwijze.
Ik heb een sheet (blad) daar wil ik alle rijen verplaatsen die volgens een vooraf gestelde, vaste criterium, worden verplaatst in een andere sheet in de zelfde excel bestand , het gaat om adressen, die ik moet uitsplitsen, nu zou je zeggen een autofilter!, ja zou kunnen, maar moet ik eerst na zoeken waar deze thuis hoort, en omdat ik niet in de slape was zit met tijd, wil ik een soort macro opnemen.
bijv.:
A |_____ B ________| C____|___D___|____ E______ |
1|JA | Pietsesen | Kampweg | 12a | Nijmegen |
2|FR| janssen | p. hoogln | 25 | Rotterdam |
3|HJ| Goosens |Gooisesingel | 35 | Apeldoorn |
4|RC| Tiepgraa |Harp | 87 | Amsterdam |

lukt me niet om een sheet goed waar te geven

nu wil ik dat nijmegen naar de sheet toegaat die piet heet,
Rotterdam naar klaas en apeldoorn naar sietske.

De waarden (de plaatsnamen heb ik in een aparte sheet, ja in dezelfde excelbestand staan, zo dat ik de criterium zelf kan aanpassen.

Wie weet hoe ik dat kan bewerkstellingen, via een formule of macro of formule en Macro.

laat maar horen..
zijn er nog vragen of suggesties? ik sta open voor alles

[cablerichy935]

niemand?

[Woudloper]

Ik denk dat je moet overstappen op een macro die regel voor regel doorloopt en die op basis van de criteria de regel al dan niet kopieert naar de desbetreffende sheet.

Zo zou ik het aanpakken, dus:

Visual Basic:

i = 1
For Each Row in Worksheets("blaat")
  'doe hier wat me de regel (cellen) e.d.
  i = i + 1
next row

[cablerichy935]

? dat is japans voor me
i = 1
For Each Row in Worksheets("blaat")
'doe hier wat me de regel (cellen) e.d.
i = i + 1
next row

"Blaat "dat moet de sheetnaam zijn, daar was ik al achter,
maar "doe hier maar me de regel (cellen) e.d. " ja wat? en
"i=i +1" snap ik ook niet

sorry ik maak macro's met de opneem knop (te simpel?)

[Woudloper]

@ cablrichy: OK, omdat ik in een goede bui ben. Hieronder een stukje code die het zou moeten doen. je moet zelf de verder aanpassingen doen. Het is maar een eerste opzetje.

Visual Basic:

Sub CopyRowsToSheet()
Dim TheSheet    As Worksheet
Dim TheDestSh   As Worksheet
Dim TheRange    As Range
Dim TheCell     As Range

    Set TheSheet = ThisWorkbook.Sheets("Sheet1")
    Set TheDestSh = ThisWorkbook.Sheets("Sheet2")
    Set TheRange = TheSheet.Range("A1", "Z99")
    
    For Each TheCell In TheRange
    
        If TheCell.Value = "Nijmegen" Then
            'Selecteer regel
            TheSheet.Rows(TheCell.Row).Copy TheDestSh.Cells(Last + 1, 1)
        ElseIf TheCell.Value = "Amsterdam" Then
        
        End If
    
    Next TheCell

End Sub

Ik heb het even simpel gehouden en ben er dus vanuit gegaan dat de bron in sheet1 staat en dat het resultaat naar sheet2 moet worden gekopieerd.

[Snowwie]

cablerichy schreef op 06 oktober 2004 @ 09:56:
niemand?

Je topic schoppen mag officieel pas 24 uur na topicdatum

[cablerichy935]

jammer werkt niet, hij blijft bij "Set TheSheet = ThisWorkbook.Sheets("Sheet1")" hangen,
_____________________
|Fout 9 tijdens uitvoering:|
|Het script valt buiten het bereik|
__________________________

heb van alles lopen te wijzigen, maar dat doet ie nog veel meer fouten aangeven.

[cablerichy935]

Snowwie schreef op 06 oktober 2004 @ 11:54:
[...]
Je topic schoppen mag officieel pas 24 uur na topicdatum

sorry, zal het de volgende keer in de gaten houden

[Woudloper]

cablerichy schreef op 06 oktober 2004 @ 12:32:
jammer werkt niet, hij blijft bij "Set TheSheet = ThisWorkbook.Sheets("Sheet1")" hangen, heb van alles lopen te wijzigen, maar dat doet ie nog veel meer fouten aangeven.

Het je ook de naam "Sheet1" vervangen door het bronsheet (ofwel de sheet waarin je data staat) en "Sheet2" door het sheet waarna de gegevens van bv 'Nijmegen' gekopieerd moesten worden. Voor de overige plaatsen moet je het Destination sheet steeds even opnieuw zetten.

Verder is het ook verstandig om de range (die ik heb aangeven) te vervangen door de range op het bronsheet waar precies jou gegevens staan!

[cablerichy935]

ja sheet 1 heet ''raw data'' en sheet 2 heet ''piet''
als je wilt dan stuur ik je de sheet wel naar je toe, kan je zien wat ik er van gemaakt heb, alleen als zin in hebt

[ Voor 67% gewijzigd door cablerichy935 op 06-10-2004 20:54 ]

[cablerichy935]

nu mag het wel he Demonfreak? kick!
Zit er wel hoog mee, ik wil dit zo graag klaar hebben.

[Woudloper]

Ik zou zeggen pak de code op en ga even de nodige aanpassingen doen. Ik heb je nu toch wel goed opweg geholpen!? Anders moet je even op wat MVP Excel websites gaan rondneuzen, want zij zijn daar meestal ook wel goed in. Kijk bijvoorbeeld maar eens op de website van: MVP-er Dick. Daar staan ook de nodige links naar overige sites!

[F_J_K]

offtopic:
Ik ben bang dat een kant-en-klare oplossing er niet in zit, daar is GoT niet bepaald voor bedoeld of op ingericht. In je topicstart vroeg je of een macro bouwen kan: ja dat kan. Dat betekent dat je zelf de basics van VBA / macro's eigen zal moeten maken om zo'n macro (af) te maken. Als je vastloopt helpt er vast wel iemand als je de relevante code geeft, maar een volledig af script even aanreiken zit er op GoT niet in: daar is Monsterboard.nl voor
Wat dat betreft heeft P&W een duidelijke uitleg in P&W Beleid

[cablerichy935]

ik ga jullie allemaal danken ja?

[Woudloper]

@ cablrichy: Je bent er dus uit!? Suc6 er mee in ieder geval en mocht je nog Excel/VBA specifieke vragen hebben dan kan je je probleem natuurlijk altijd hier voorleggen. Ik wil zelf gewoon niet de gehele code uitkauwen...

[cablerichy935]

nee dat snap ik, maar ik denk dat is dat soort vragen gewoon niet hier hoeft te doen want ik heb een K.B. gevonden, en daar weten ze iets meer uit teleggen.
maar toch bedankt dat jullie mij tot zover geholpen hebben

Signed

Cablerichy