Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: VBA: Celwaarde wijzigen op basis van celwaardes

  1. #1
    Vraag is opgelost

    VBA: Celwaarde wijzigen op basis van celwaardes

    Hoi allen,

    In het bijgevoegde Excel bestand heb ik in Blad1 een lijst met locaties staan (In realiteit is deze lijst aanzienlijk langer).
    De bedoeling is dat ik gemakkelijk datums kan koppelen aan de verschillende locaties.

    Nu probeer ik hiervoor al een tijdje een macro te ontwikkelen maar dit loopt op niets uit.

    Het idee is dat ik in Blad2 een lijstje kan opstellen waarin ik handmatig de locaties en bijbehorende data invoer (zie voorbeeld bestand).
    Middels een macro zou ik vervolgens deze data aan dezelfde locaties in Blad1 willen koppelen.

    Zou iemand mij hiermee kunnen helpen?

    Mocht de uitleg niet duidelijk genoeg zijn dan ligt ik het graag nader toe.

    Excel voorbeeld.xlsx

  2. #2
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    zoiets? Achter blad2

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 2 And Target.Cells.Count = 1 Then
            If Not Sheets("Blad1").Columns.Find(Target.Offset(, -1).Value, lookat:=xlWhole) Is Nothing Then
                    Sheets("Blad1").Columns.Find(Target.Offset(, -1).Value, lookat:=xlWhole).Offset(, 1).Value = Target.Value
            End If
        End If
    End Sub

  3. #3
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Is een Vlookup niet voldoende?
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #4
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    TS zal er zijn reden voor hebben om het met vba te willen doen denk ik.

  5. #5
    Dank voor jullie antwoorden.
    Wellicht verhelderend:
    Het idee is dat Blad1 een database is welke de gebruiker van het excelbestand niet ziet. De gebruiker kan deze database alleen muteren door locaties en bijbehorende data in te voeren in de lijst van Blad2. Aan Blad2 wil ik vervolgens een besturingsknop toevoegen die de gebruiker in staat stelt de ingevoerde gegevens te verwerken. De aan de besturingsknop gekoppelde macro dient vervolgens de ingevoerde datums achter de bijbehorende locaties in blad in te plakken

  6. #6
    Mega Senior Jack Nouws's avatar
    Geregistreerd
    16 april 2008
    Locatie
    Zundert
    Afstand tot server
    ±150 km
    Bedoel je zo met deze code achter een knop?
    Code:
    Sub Klik()
      For Each cl In Blad2.Columns(1).SpecialCells(2).Offset(2).SpecialCells(2)
        Blad1.Columns(1).Find(cl.Value).Offset(, 1) = CDate(cl.Offset(, 1))
      Next cl
    End Sub
    Wees gelukkig met wat je hebt in plaats van ongelukkig door wat je ontbreekt

  7. #7
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Er is geen datum en macro te vinden in het bestand.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Probeer het eens zo:

    Code:
    Sub Klik()
      For Each cl In Blad6.Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row)
        Blad5.Columns(1).Find(cl.Value).Offset(, 1) = CDate(cl.Offset(, 1))
      Next cl
    End Sub

  9. #9
    Ik heb het aan de praat gekregen. Hartelijk dank voor jullie hulp!

  10. #10
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dan moet je wel foutloos kunnen typen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen