Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Pagina 1 van 2 1 2 LaatsteLaatste
Weergeven resultaten 1 tot 20 van 24

Onderwerp: Op een rij variabel kolommen springen

  1. #1
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Vraag is niet opgelost

    Op een rij variabel kolommen springen

    Goedemorgen,

    Zit weer met een vraagje.

    Bedoeling is om op dezelfde rij, maar diverse kolommen, bepaalde gegevens neer te zetten.

    Probleem is nu dat het mogelijk 2 versprigingen zijn , waarvan één jaar variabele is en één verspringing om de x jaar is.

    De variabelen staan op cel I10 en M10 in het vb-tje.

    Vanaf kolom Q zou hij om de x kolommen gegevens neer moeten zetten, afhankelijk v/d variabelen.

    Dit in een lus.
    Heb een voorbeeldje erbij gedaan.

    Already thanks

    Dutch
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Ik heb geen idee wat je bedoelt; in je voorbeeldje staat niks bruikbaars. OK, vanaf Q1 heb je jaartallen staan, maar wat is de relatie met I10 en/of M10? En waar moeten de gewenste gegevens dan worden neergezet? Onbegrijpelijk. Althans voor mij .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Hoi OctaFish,

    Wat ik probeer en niet uitkom is dat:
    Als je de For - next lus doorloopt van 1 tot 31 = kolom Q t/m AU


    Als I10 bv. 1 is een if then kan inbouwen om bepaalde dingen te laten uitvoeren. (dit zou inhouden alle volgende kolommen(Q t/m AU) dus iedere jaar

    Als I10 bv. 2 is een if then kan inbouwen om bepaalde dingen te laten uitvoeren. (dit zou inhouden alle volgende kolommen(R-T-V-X-Z-AB enz.) dus iedere 2 jaar


    Als dit voor elkaar is dan moet het ook lukken om:
    Als M10 bv. 5 is een if then kan inbouwen om bepaalde dingen te laten uitvoeren. (dit zou inhouden alle volgende kolommen(U-Z-AE-AJ-AO enz.) dus iedere 5 jaar

    Als M10 bv. 10 is een if then kan inbouwen om bepaalde dingen te laten uitvoeren. (dit zou inhouden alle volgende kolommen(Z-AJ-AT enz.) dus iedere 10 jaar
    Laatst aangepast door DutchOirs : 16 september 2021 om 13:14

  4. #4
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Even een update in het vb-tje

    Code:
          If .Range("I10") <> "" Then   ' ieder jaar = iets
            MsgBox ("2 =  " & Kol(i))
            .Range(Kol(i) & 10) = .Range("I10")
          End If
    Hier gaat het dus om.
    In cel I10 staat de variabele, om de hoeveel jaar men iets moet doen..
    Als bv. I10 = 3 dan zou men dus iedere 3e jaar iets moeten kunnen doen
    dus bv. in S10, V10, Y10, Ab10
    Bijgevoegde bestanden Bijgevoegde bestanden

  5. #5
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Wat denk je van dit voorbeeldje met behulp van 'Voorwaardelijk opmaak'
    Bijgevoegde bestanden Bijgevoegde bestanden
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het excel voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  6. #6
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Quote Origineel gepost door popipipo Bekijk Bericht
    Wat denk je van dit voorbeeldje met behulp van 'Voorwaardelijk opmaak'
    Hoi popipipo,

    We komen er wel :-)

    Had het zelf al in excel zelf met een formule, maar de kunst is nu om in het in VBA te verkrijgen.
    Je hebt de bedoelingen door :-) maar moet dan enige verwerkingen uitvoeren als hij "positief" is zeg maar en dat kan dus niet bij 'Voorwaardelijk opmaak'

    Als ik het in Excel zou doen zit er een groot nadeel aan.. Als ik de variabele verander, gaan alle gegevens veranderen en met VBA kan je het zo doen dat ie het alleen vanaf een bepaald jaar doet.
    Laatst aangepast door DutchOirs : 16 september 2021 om 15:40

  7. #7
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    Sorry maar omzetten naar VBA lukt mij niet
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het excel voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  8. #8
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    DO, kun je aangeven wat er fout gaat met het bastandje van Willem (popipipe)
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  9. #9
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Code:
    Private Sub StartKnop_Click()
      y = Cells(10, 13)
      For j = 17 To 47
          If (j - 17) Mod y = 0 Then Cells(10, j) = "x"
      Next
    End Sub
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  10. #10
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    misschien bedoel je zo iets met een function in elke cell
    Bijgevoegde bestanden Bijgevoegde bestanden
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  11. #11
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Quote Origineel gepost door sylvester-ponte Bekijk Bericht
    DO, kun je aangeven wat er fout gaat met het bastandje van Willem (popipipe)
    Het bestandje van popipipo , kan je alleen de opmaak aanpassen, maar geen vba dingen uitvoeren
    Het doel was goed, maar moet op die bewuste cellen (jaren) dingen in die cel kunnen invoerenen dat gaat niet met voorwaardelijke opmaak.

    Hoi snb, even je voorstel geprobeerd, maar werkt niet, begrijp de uitvoering ook niet helemaal

    Gebruik overigens excel 2003

    Posten tegelijk :-)


    Het gaat om ongeveer bijna 80 a 90 regels. totaal.
    Laatst aangepast door DutchOirs : 16 september 2021 om 16:33

  12. #12
    Mega Honourable Senior Member popipipo's avatar
    Geregistreerd
    21 november 2006
    maar moet op die bewuste cellen (jaren) dingen in die cel kunnen invoerenen dat gaat niet met voorwaardelijke opmaak.
    In de cellen P10:AU30 kun je invoeren wat je wilt.
    Willem

    25 % van de oplossing is het juist formuleren van de vraag.
    25 % van de oplossing is het juist lezen van de vraag.
    25 % van de oplossing is het excel voorbeeldje bij de vraag.
    25 % van de oplossing is het antwoord op de vraag.

  13. #13
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Je moet de macro natuurlijk wel in de macromodule van het werkblad zetten.
    En als je feedback geeft, wees dan specifiek.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  14. #14
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    ja begrijp ik popipipo, maar dat gebeurd dan in de formule..

    Dus in die bewuste "jaren" moet er met VBA iets ingevoerd worden

  15. #15
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    in post 10 vult een function een "X" in . die fuction is eenvoudig aan te passen
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  16. #16
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    popipipo, begrijp ik, maar er zijn tientallen rijen die deze formule gebruiken dus wilde het in de sub houden.

    Dit werkt, maar

    Code:
    Private Sub StartKnop_Click()
    
      Dim i As Integer, Tel1 As Integer
      
      Run "KolommenMJOB"
      
      With Worksheets("Blad1")
        Tel1 = 0
        For i = 1 To 31
          If .Range("I10") <> "" Then   ' ieder jaar = iets
            Tel1 = Tel1 + 1
            If Tel1 = .Range("I10") Then           'dus 3 jaar later
              MsgBox ("2 =  " & Kol(i))
              .Range(Kol(i) & 10) = .Range("I10")
              Tel1 = 0
            End If
          End If
        Next i
      End With
    End Sub
    maar omslachtig

  17. #17
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Op de hurken:
    Bijgevoegde bestanden Bijgevoegde bestanden
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  18. #18
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    helaas snb, werkt niet zoals ik bedoelde.
    Kan ook niet want alles moet in desbetreffende cellen gebeuren op één rij.

    Heb iets uitgewerkt zie vb-tje4
    Code:
    Private Sub StartKnop_Click()
    
      Dim i As Integer, Tel1 As Integer, Tel2 As Integer
      
      Run "KolommenMJOB"
      
      With Worksheets("Blad1")
        Tel1 = 0: Tel2 = 0
        For i = 1 To 31
          If .Range("I10") <> "" And .Range("M10") <> "" Then
            Tel1 = Tel1 + 1: Tel2 = Tel2 + 1
            If Tel1 = .Range("I10") Then
              .Range(Kol(i) & 10) = .Range("I10")
              Tel1 = 0
            End If
            If Tel2 = .Range("M10") Then
              .Range(Kol(i) & 10) = .Range("I10").Value + .Range("M10").Value
              Tel2 = 0
            End If
            If i = 31 Then Exit For
            GoTo Door1
          End If
          
          If .Range("I10") <> "" Then   ' ieder jaar = iets
            Tel1 = Tel1 + 1
            If Tel1 = .Range("I10") Then
              .Range(Kol(i) & 10) = .Range("I10")
              Tel1 = 0
            End If
          End If
          
          If .Range("M10") <> "" Then   ' om de x jaren = iets
            Tel2 = Tel2 + 1
            If Tel2 = .Range("M10") Then
              .Range(Kol(i) & 10) = .Range("M10")
              Tel2 = 0
            End If
          End If
    Door1:
        Next i
      End With
    End Sub
    Dit werkt, maar had gehoopt voor iets simpeler en korter.
    Zijn een kleine 100 rijen die zo bewerkt moeten worden.
    Bijgevoegde bestanden Bijgevoegde bestanden

  19. #19
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    kijk eens of deze ongeveer doet wat je bedoeld. (alle gele vakjes zijn invoer vakjes)
    als je wil , is het zo omgebouwd naar iets met een knopje
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door sylvester-ponte : 17 september 2021 om 14:02
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  20. #20
    Senior Member
    Geregistreerd
    30 september 2009
    Locatie
    Amsterdam
    Goedenavond sylvester-ponte,

    Sorry en excuses, maar laatste dagen druk dus even wat minder tijd.

    Het verspringen op kolommen heb ik voor elkaar, maar zit met 2 verschillende variabelen.

    Het file betreft een MJOB. Gaat om bedragen jaarlijks of meerjarig terug te laten komen.
    Dat heb ik voor elkaar, maar zit nog met de inflatie te berekenen en jaar van inflatie verandering.

    Zo gauw ik dat rond heb zet ik definitieve testfile hier neer.

    Dus het testfile #7 is nog niet klaar en ben er mee bezig.

    Thanks voor het meedenken.
    Bijgevoegde bestanden Bijgevoegde bestanden

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren