Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: if if dan  (gelezen 7506 keer)

0 leden en 1 gast bekijken dit topic.

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
if if dan
« Gepost op: 19 augustus 2004, 16:49:29 »
 :( Heloo ,

Ik zit met een problemmpje in verband met een formule voor excel ik hoop dat iemand van jullie mij kan helpen : (zie bijgevoegde file)
nu doe ik alles met copie paste maar via een formule zou het gemakkelijker zijn
Reeds bedankt
Ricardo
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re:if if dan
« Reactie #1 Gepost op: 19 augustus 2004, 16:54:36 »
 :-[ Sorry jongens,
Effe de verkeerde file hier is de nederlandstalige!!!!!
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline StriKe

  • Ambassadeur
  • *****
  • Berichten: 4.647
  • Geslacht: Man
Re:if if dan
« Reactie #2 Gepost op: 19 augustus 2004, 18:51:50 »
Hello Ricardo,

Blijven die celadressen steeds dezelfde?
Of wil je 'een systeem' inbouwen waarbij je van rij 8 naar rij 9 naar rij 10 enz gaat?

Groeten,
StriKe
0T5326 Dell Computer Corporation, GeForce FX Go5200, Windows XP, Prof, SP2, NL, Mobile Intel(R) Pentium(R) 4 CPU 3.06GHz, 512 MB RAM, HDD:97 GB, NTFS, AVG Anti-Virus, Kerio Personal Firewall, Firefox 2.0, The Bat!

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.191
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:if if dan
« Reactie #3 Gepost op: 19 augustus 2004, 21:42:23 »
in Cel B8 voer je de als-formule in:
=ALS((B8="KH") + ( C8="A");G8=D8;G8="")

Uitleg:
als B8 de tekst KH bevat
en C8 de tekst A bevat
Dan komt in G8 dezelfde tekst als in D8, anders komt er geen tekst (of iets anders wat je tussen die laatste aanhalingstekens zet.)

Deze formule kan je doortrekken naar alle andere cellen onder B8

SoftAid
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re:if if dan
« Reactie #4 Gepost op: 20 augustus 2004, 12:10:16 »
 :o Softaid,
Ik heb de formule toegepast in G8 maar ik krijg daar geen ZZZZ maar 0 maar wel in dezelfde kleur!

Strike ja alles moet naar beneden ook
In feite wil eerst controleren op naam van iemand, dan op een soort materiaal om in de G8 cel de prijs te krijgen die in D8 staat
toch al bedankt!!
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:if if dan
« Reactie #5 Gepost op: 20 augustus 2004, 19:13:05 »
De oplossing van Softaid zou moeten werken als je een kleine aanpassing doet

Je moet de formule niet plakken in B8 maar G8 en je moet de "G8=" uit de formule verwijderen zodat je krijgt:

=ALS((B8="KH") + ( C8="A");D8;"")

Dit zou wel moeten werken. Laat iets weten
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re:if if dan
« Reactie #6 Gepost op: 20 augustus 2004, 21:50:57 »
ricardo,

je zal wel weten dat je in excell een formule naar een volledige kolom kunt doen werken met de 'fill down' knop.

ik heb je een vba in bijlage toegestuurd, maar 1 ding is me nog niet gelukt nm. de kleur van een tekst mee overzetten.

ben dan op volgend gekomen in deze fantastische site:

https://oplossing.be/index.php?board=79;action=display;threadid=9341

daarin wordt een kleur in een cel bepaald, maar met de opmerking dat je vba veeeeel traaaager werkt.

misschien zijn er veel knappere bollen als ik die dit probleempje voor je kunnen oplossen

geef een seintje als het niet voldoende is

deze vba gewoon kopieren in vba editor:

Sub er_komen()
rij = 8
Dim veld1
Dim veld2
Dim veld3
Do While Cells(rij, 2).Value <> ""
veld1 = Cells(rij, 2).Value
veld2 = Cells(rij, 3).Value
veld3 = Cells(rij, 4).Value

If veld1 = "KH" And veld2 = "A" Then
Cells(rij, 7).Value = veld3
Else
Cells(rij, 7).Value = " "
End If
rij = rij + 1
Loop

End Sub

met mijn excuses, maar heb nog niet gevonden hoe je het bestand in attachment kunt sturen

graag gedaan

JC
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:if if dan
« Reactie #7 Gepost op: 20 augustus 2004, 22:27:11 »
Nog even een vraag:
Is het de bedoeling dat je eerst in de linkse tabel de "KH" zoeken en vervolgens de "A" , "B",.. waarden naar de rechtse tabel te kopieren?
en vervolgens naar de "DR" gaat zoeken en ook de bijhorende "A","B",...?
zodat je als het ware de lijst die je links hebt, dat je deze rechts in tabelvorm krijgt? (mss je voorbeeldje iets verder uitwerken)
en is het nodig dat de kleuren ook worden overgenomen?

Dit heb ik al uitgewerkt, dus geinteresseerden  :)
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re:if if dan
« Reactie #8 Gepost op: 21 augustus 2004, 22:26:31 »
ricardo, powerkite

kan je jouw kleur program niet in de vba verwerken ?

wil daar ook  iets over leren

is eens iets anders

heb al wel een macro lopen met kleur observatie die dan een waarde bepaalt, maar dit is blijkbaar iets anders

ben benieuwd

tot wederhoren ?

JC
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:if if dan
« Reactie #9 Gepost op: 22 augustus 2004, 02:30:05 »
het kopieren van letterkleuren doe je op dezelfde manier als je waardes zou kopieren. (niet moeilijk dus)
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re:if if dan
« Reactie #10 Gepost op: 22 augustus 2004, 23:04:28 »
Hello jongens,
al bedankt voor de raad ik pas die maandag toe ik nu geen mogelijkheid om het te testen. Ik stuur een niuew hopelijk duidelijker voorbeeld misschien kunnen jullie nu nog eens nazien of wat jullie me stuurden voldoet? De kleur is niet belangrijk die was alleen voor de duidelijkheid

Om bestanden in bijlage mee te sturen : ga naar beneden bij antwoord  tot bij bladeren en kies de mee te sturen file klaar is keesie

groetjes
Ricardo
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:if if dan
« Reactie #11 Gepost op: 23 augustus 2004, 01:09:15 »
Dit is het eerste bestand met enkele aanpassingen.

Je zal nog enkele regels moeten aanpassen om jouw resultaat te bekomen.

Als je nog vragen/opmerkingen hebt laat het dan gerust weten
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re:if if dan
« Reactie #12 Gepost op: 23 augustus 2004, 10:48:22 »
Hi ieder lichaam,

Powerkite ik kan je oplossing niet openen en bedankt voor de formule : het lukte niet totdat ik de + verving door *EN dan werkte de formule perfect!! Ik heb nu wat ik wou
hiep hiep hoera voor oplossing .be en haar cracken van leden
ricardo
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re:if if dan
« Reactie #13 Gepost op: 23 augustus 2004, 10:50:34 »
 :-[ Ceasar,
Dat van die vba kan je mij daar meer uitleg over geven schijnt mij interessant maar het is mij onbekent
ricardo
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re:if if dan
« Reactie #14 Gepost op: 23 augustus 2004, 15:15:03 »
 8)
ricardo:
om de vba in je bestand te krijgen moet je in "extra, macro"
het scherm oproepen. in dit scherm geef je een naam aan
de macro, dan knopke "maken" indrukken, de wizard kan dan "bewerken".
het scherm verschijnt dan met een "   sub()   end sub".
deze gegevens wegdoen met delete toets.
op het scherm de vba in de nota plakken
dan opslaan.
om de macro nu te doen lopen:
in de wizard "uitvoeren" aanklikken en gedaan.
(alle losse gegevens wel aanpassen aan de namen van de bladen en kolommen nummers aanpassen)

groetjes
Johan

Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

 


www.combell.com