zoeken met 2 voorwaarden vba

[japio86]

Goedendag,

Een vraagje over het zoeken in de inhoud van een cel.

Ik heb 2 voorwaarden en met deze voorwaarden wil ik zoeken in cellen
en als de cel voldoet aan de voorwaarden wil ik van een andere cel in dezelfde rij
de inhoud kopieren naar een ander blad.

De inhoud van de cellen waarin gezocht moet worden is altijd anders ( het zijn namelijk zinnen die met de hand ingevuld worden )

Bijgevoegd een bestand met macro om het wat duidelijkere te maken.
Met de code die in de macro staat krijg ik het nog niet voor elkaar.

Ik hoop dat iemand kan helpen.

Gr, Jaap

 

[snb]

Vraag noch bijlage is voor mij duidelijk.

 

[japio86]

ik zal het proberen uit te leggen met een voorbeeld:

In kolom A2 van blad 1 staat APK daar in delft.
Mijn voorwaarden zijn:

Voorwaarde 1: APK
Voorwaarde 2: delft

A2 voldoet dus aan de voorwaarde, en wil ik dus dat C2 gekopieerd word naar Blad 2.

Is dit duidelijker?

 

[japio86]

Ik kan het niet op het forum vinden en ik zou graag willen weten hoe dit werkt, want ik weet bijna zeker dat het wel mogelijk is met excel.
Iemand suggesties?

Gr, Jaap

 

[oeldere]

zie bijlage,

Is het niet verstandig om het bestand uit 2 gegevens op te bouwen.

De gegevens zijn dan gemakkelijker toegankelijk.

met vriendelijke groeten,

Oeldere

 

[japio86]

Oeldere,

Bedankt voor je reactie, maar dit is niet wat ik bedoel.

Ik heb namelijk een database met wel duizend van die zinnen
zoals "APK ergens in delft" of "APK te delft".
Nu ben ik opzoek naar een macro functie die dus die 2 woorden( APK en Delft) kan herkennen in zo'n zin.
En als hij deze herkent dat hij een andere cel uit de zelfde rij ( als A2 is herkent dat de inhoud van C2) dan gekopieerd wordt naar blad 2.

Gr, Jaap

 

[oeldere]

hoe komt dit bestand tot stand (download)?

APK staat altijd voorop?

zijn alle teksten gescheiden met spaties?


Met vriendelijke groeten,

Oeldere

 

[japio86]

Dit bestand komt voort uit een access database.
Medewerkers vullen een formulier in en deze komt in de database terecht.
Ik krijg uit de database een excel bestand waar al die teksten van de medewerkers in staan. Het zijn dus zinnen die niet standaard zijn maar wel altijd APK bevatten en een plaats.
APK hoeft dus niet voorop te staan.
Ik ben bezig geweest met .find maar daar snap ik niet zoveel van.

Kan je hier wat mee?

Gr, Jaap

 

[japio86]

en ohh sorry alle teksten zijn gescheiden met spaties en heel af en toe een | (pipeline)

Gr, Jaap

 

[oeldere]

waarschijnlijk kun je via acces in excel de gegevens wel apart (gescheiden door spaties en |) inlezen. Kun je even aangeven of dit kan.?

dan kan door een combinatie van gegevens, de voorwaarden wel worden gevonden.

Met vriendelijke groeten,

Oeldere

 

[japio86]

Het probleem is dat er niks verandert kan worden aan de gegevens zoals ik ze binnen krijg.
Oftewel het excelbestand dat ik krijg is het enige waar ik iets mee kan doen.
Stel het zijn alleen spaties is er dan wel een mogelijkheid?

Gr, Jaap

 

[Roncancio]

APK in Spijkenisse komt 4 keer voor.
Betekent dat al die 4 waarden moeten worden weergegeven?

Soms staat er "in" en vervolgens een plaatsnaam maar soms staat er nabij oid.
Moet hier ook rekening mee worden gehouden?

Met vriendelijke groet,


Roncancio

 

[japio86]

Ja alle 4 de waarden moeten dan worden weergegeven.
En dit kan oplopen tot wel honderd.
Tevens maakt het niet uit of er in, bij, inde buurt van staat als APK en Spijkenisse er maar invoorkomen.

Ik hoop dat jullie kunnen helpen.

Bedankt alvast!

Gr, Jaap

 

[oeldere]

tekst naar kolommen

Tekst naar kolommen.

- Selecteer de kolom.
- Ga naar Data - Tekst naar kolommen
- Selecteer Gescheiden (bovenaan) en klik op Volgende
- Vink Spatie aan en je ziet onderaan het schema hoe het er uit komt te zien (de verticale strepen geven de eindes van de kolommen weer).
- Klik op Voltooien en de gegevens zijn verdeeld over de kolommen.

Einde.

De tekst heb ik in het bijgevoegde bestandje in aparte kolommen gezet.

Hoe kan excel nu zien welke gegevens een plaatsnaam is?
1) Is hiervoor een tabel, waarna kan worden verwezen?

Je geeft aan dat de gegevens uit acces komen.
(A) is daar de splitsing niet te maken
(B) zijn daar de plaatsnamen niet vandaan te halen.

Met vriendelijke groeten,

Oeldere

 

[snb]

denk eens anders

sub anders()
  sq= Blad1.usedrange.range("A:C")
  for j=1 to ubound(sq)
    if instr(ucase(sq(j,1)),"APK")=0 then sq(j,1)=""
  Next
  Blad2.cells(1,1).resize(ubound(sq),ubound(sq,2))=sq
  Blad2.columns(1).specialcells(xlcelltypeblanks).entirerow.delete
End Sub

 

[japio86]

Bedankt voor jullie reacties.

Wat je zegt klopt wel oeldere maar ik wil het graag automatiseren door middel van een macro.

Ik ga er morgen mee aan de slag.

Jullie horen nog van mij.

Gr, Jaap

 

[japio86]

Beste snb,

Met jou code worden alle cellen gekopieerd waar APK in voor komt, hoe kan ik aan deze code een tweede voorwaarden hangen? Of is dat niet mogelijk?

Gr, Jaap