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

Quote

Pagina 2 van 2 EersteEerste 1 2
Weergeven resultaten 21 tot 25 van 25

Onderwerp: getallen annvullen

  • Vraag is opgelost
  1. #21
    Senior Member bascas's avatar
    Geregistreerd
    18 mei 2006
    Locatie
    Soest
    Afstand tot server
    ±69 km
    Heren bedankt voor de hulp.
    @excel amateur: heb de + voor &, dan gaan de nummer in kolom A goed, maar de tabladen niet bijvoorbeeld 719 wordt 719264000.
    @edmoor: het zal ongetwijfeld aan mijn onkunde liggen, maar het maakt niet uit waar ik die exit sub neerzet, ik blijf de melding krijgen dat de " type niet overeen komen" .

    Het moet kennelijk een combinatie van jullie geboden oplossing worden.
    Groet Bas

    Heb nu de formule van Edmoor in 2-en gebruikt, en dat doet hij het wel. Maar....eigelijk zou de hyperlink in kolom D ook mee moeten veranderen. Is daar nog een oplossing voor?
    Groet Bas
    Laatst aangepast door bascas : 27 april 2012 om 22:55 Reden: Verder proberen leverde toch resultaat op.
    Aan de rand van de afgrond, is het uitzicht het mooist

  2. #22
    Mega Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Mooi dat het voor elkaar is
    Ik zal eens naar die hyperlink kijken.

  3. #23
    Senior Member bascas's avatar
    Geregistreerd
    18 mei 2006
    Locatie
    Soest
    Afstand tot server
    ±69 km
    Beste helpers, ik ben al aardig opweg, maar loop nog tegen wat onzuiverheden aan. Na het gebruik van de code van Edmoor zijn de tabbladen hernoemd, en de getallen in kolom A ook. Dat is al heel fijn.
    1. In Kolom E heb ik 3 zoekfuncties, die in E6 werkt niet meer.
    2. Verder staan op de tabbladen in C4,5,6 nu #NB's. Die gegevens gaan dus niet mee.
    3. Ik heb Edmoor zijn VBA verbouwd naar dit:
    Code:
    Sub Hernoemen()
        Dim i As Integer
    
        'Wijzig de waarde in Kolom D
        For i = 9 To Range("D65536").End(xlUp).Row
            If Val(Sheets("main").Range("D" & i).Value2) > 0 Then
                Sheets("main").Range("D" & i).Value2 = Val(Sheets("main").Range("D" & i).Value2) + 264000
            End If
        Next
    End Sub
    Om de nummers in kolom D te veranderen, de hyperlink werkt wel, maar het vertraagd heel erg. Op het geselecteerde tabblad is in C3 het nummer niet aangepast.

    Hoop dat jullie nog wat kunnen betekenen.

    Groet Bas

    Bestand
    Laatst aangepast door bascas : 3 mei 2012 om 14:33
    Aan de rand van de afgrond, is het uitzicht het mooist

  4. #24
    Code aanpassen:

    Code:
    If Val(Sheets("main").Range("D" & i).Value2) < 264000 Then
    grtjs Daiel

  5. #25
    Senior Member bascas's avatar
    Geregistreerd
    18 mei 2006
    Locatie
    Soest
    Afstand tot server
    ±69 km
    Heren, het is gelukt, mede door jullie hulp.
    Hartelijk bedankt.

    Gr Bas
    Aan de rand van de afgrond, is het uitzicht het mooist

Pagina 2 van 2 EersteEerste 1 2

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
Linkpartners
Aanbiedingen