vba code tekst vergelijken

[poltergeist]

hallo wie kan mij helpen

ik heb 2 sheets

in sheet 1 staat een tekst

a
b
c
d
e

nu heb ik sheet 2

als deze tekst gelijk aan
dat van sheet 1 is
moet hij op sheet 1 de cel leeg maken


wie kan mij helpen

weet het niet meer

groetjes

 

[Wigi]

En wat staat er dan bv. op sheet 2?

 

[poltergeist]

dat kan wel eens verschillen

je heb zeg maar

sheet 1

a
b
c
d

dan heb ik op scheet 2 staan

a

c

nu moet hij op sheet 1 de a en c verwijderen

 

[Wigi]

Zoiets?

 

[poltergeist]

alvast bedankt voor de moeite

ziet er goed uit

aleen als

kan ik het nu allemaal regelen via blad 1

de bedoeling is

als er in blad 2

a
b
c
d
heb staan
wil ik dat hij dit leeg maakt op blad 1
blad

a
b
c
d

in dit geval is blad 1 geheel leeg


nu zie je op blad 1 wel wat staan aleen in kolom b

 

[poltergeist]

alvast bedankt voor de moeite

ziet er goed uit

aleen als

kan ik het nu allemaal regelen via blad 1

de bedoeling is

als er in blad 2

a
b
c
d
heb staan
wil ik dat hij dit leeg maakt op blad 1
blad

a
b
c
d

in dit geval is blad 1 geheel leeg


nu zie je op blad 1 wel wat staan aleen in kolom b

ik heb hem net zef even aan gepast

volgend mij bedoelt zij dit

ik gaat het even vragen (is namelijk niet voor mij zelf )
je hoort nog van me


thanks

 

[Wigi]

Typ je vraag eens in correcte Nederlandse zinnen, voorzien van de nodige leestekens. Ik versta niet wat je wilt hebben.

 

[poltergeist]

sorry voor mijn nederlands!!!

is inderdaad niet altijd even duidelijk !


ik heb het nog even gevraagdt

wat je voor stelde zag er wel goed uit maar is niet helemaal wat zij bedoelde

wat is nu het geval

in kolom a b en c van blad 1 staan een aantal waarden
sommige van deze waarden komen over een met de waarden die in sheet 2 staat

nu wil ze een knop hebben die vergelijkt

als de waarden in blad 1 over een komt met de waarden in blad 2 dan delete waarden uit blad 1

ik hoop dat je dit een beetje begrijpt !

groeten mike

 

[Wigi]

Laat dit maar eens uitproberen dan

Sub vergelijken()
Dim c As Range
For Each c In Sheets(1).Range("A1:C1").EntireColumn.SpecialCells(xlCellTypeConstants)
    If WorksheetFunction.CountIf(Sheets(2).Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants), c) > 0 Then c.ClearContents
Next
End Sub

Het delete alle waarden uit kolommen A, B en C op het eerste blad als ze voorkomen in de eerste kolom op het tweede blad.

Wigi

 

[poltergeist]

waar haal je dat nou vandaan ?!?!?!

heb me helemaal gek zitten zoeken

 

[Wigi]

waar haal je dat nou vandaan ?!?!?!

heb me helemaal gek zitten zoeken

Zoiets moet je zelf bij mekaar schrijven, dat vind je (in deze vorm) nergens.

Graag gedaan, zet de vraag nog op opgelost aub.

 

[poltergeist]

weet je toevalig ergens waar ik zo iets kan leren goed boek of iets dergelijks

wil het graag leren !

 

[Wigi]

Zoek het forum af, dat is al een aantal keer getypt geweest.

Korte samenvatting:

- help files
- internet
- veel zelf proberen
- vragen hier op het forum proberen oplossen van anderen
- boeken van Microsoft zelf, ook John Walkenbach is een aanrader.

Wigi

 

[poltergeist]

oke dank je wle
ik ga zo i zo even op zoek naar de boeken