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

Quote

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

Onderwerp: VBA met automatische naam

  1. #1
    Vraag is niet opgelost

    VBA met automatische naam

    Is het mogelijk (waarschijnlijk ja) om een automatische naam aan te maken in Excel door middel van een VBA? Hierbij tevens rekening houdend met het aantal kolommen.

    BV:
    Ik heb een op blad1 kolom B t/m G gevuld met data, waarbij de 1e cel de naam bevat. Is het mogelijk om door middel van een VBA het aantal kolommen te tellen en vervolgens hiervan een naam te definiëren waarbij hij enkel de data naar onder pakt. Dus zowel horizontaal als verticaal is dynamisch. Overigens is de data naar beneden soms met lege cellen ertussen (om het nog complexer te maken).

    Voor de volledigheid een demo in de bijlage.
    Attached Files Attached Files

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Ik snap niet wat je bedoelt; noch met 'namen' noch met 'enkel de data naar onder pakt'. Het had handiger geweest als je een voorbeeldje had gemaakt met de gewenste output.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Excuses voor de onduidelijkheid. Zie in de bijlage wat de output moet zijn.
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Knipsel.JPG‎
Bekeken: 29
Grootte:  165,9 KB  

  4. #4
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Afstand tot server
    ±97 km
    p0wmia,

    ik denk dat je dit bedoelt....
    Attached Files Attached Files
    Haije
    ___________________________________________________

  5. #5
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Denk ik ook

    Code:
    Sub VenA()
    For Each cl In Rows(1).SpecialCells(2)
      Names.Add cl, Range(cl.End(xlDown), Cells(Rows.Count, cl.Column).End(xlUp))
    Next cl
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    @Haije
    Wauw dit ziet er wel al goed uit. Ik wil alleen de namen uit Rij 1 gebruiken niet kolom 1 (dus auto, groente, mensen enz.) Bij Auto moet hij dus enkel het bereik eronder pakken.

    @VenA... Dit is hem. Alleen als ik nieuwe kolommen toevoeg dat lijkt hij dit niet helemaal te doen...
    Laatst aangepast door p0wmia : 19 mei 2017 om 11:16

  7. #7
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Lijkt mij wel.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Denk dat de fout inderdaad elders zit. In mijn bestand heb ik inderdaad celverwijzingen waar deze data vandaan komt. ALs er geen data naar voren komt geeft hij "" (oftewel leeg) aan. Waarschijnlijk gaat hier iets fout. zie bijlageTester (hs).xlsm

  9. #9
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Ik zie geen formules onder de klanten. Ook mag in een gedefinieerde naam geen spatie voorkomen. Plaats een representatief voorbeeld.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Afstand tot server
    ±97 km
    p0wmia,

    Oeps, één komma vergeten.

    In deze bijlage rechtgezet
    Attached Files Attached Files
    Haije
    ___________________________________________________

  11. #11
    Je hebt gelijk. Hierbij representatief voorbeeld (hoop ik ). Door de formules is hij de weg kwijt....
    Attached Files Attached Files
    Laatst aangepast door p0wmia : 19 mei 2017 om 12:10

  12. #12
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Afstand tot server
    ±97 km
    representatief voorbeeld?
    Haije
    ___________________________________________________

  13. #13
    Quote Origineel gepost door Haije Bekijk Bericht
    representatief voorbeeld?
    Dat is snel Zie hierboven...

  14. #14
    test deze eens.
    Met een paar foutcontroles in. o.a het vervangen van spaties.
    en o.a een naam bereik van all uw data die je dan ook kan gebruiken voor draatabellen
    Attached Files Attached Files
    MVG,
    Philiep
    Wie altijd op zoek is naar beter zal zo het beste verliezen.
    Voor elke oplossing is wel een probleem te vinden.
    Gebruik geen samengevoegde cellen.Het is niets meer dan visuele rommel en compliceert verdere data analyse en visualisatie.

  15. #15
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    of
    Code:
    Sub VenA()
    Dim r1 As Range, r2 As Range
    For Each cl In Rows(1).SpecialCells(-4123)
      If cl <> "" Then
        b = True
        Set r1 = Nothing
        Set r2 = Nothing
        For Each cl1 In Range(cl.Offset(1), Cells(Rows.Count, cl.Column).End(xlUp))
          If cl1 <> "" And b Then
            Set r1 = cl1
            Set r2 = cl1
            b = False
            ElseIf cl1 <> "" Then Set r2 = cl1
          End If
        Next cl1
        If cl.Address <> Range(r1, r2).Address Then Names.Add cl, Range(r1, r2)
      End If
    Next cl
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  16. #16
    Quote Origineel gepost door VenA Bekijk Bericht
    of
    Code:
    Sub VenA()
    Dim r1 As Range, r2 As Range
    For Each cl In Rows(1).SpecialCells(-4123)
      If cl <> "" Then
        b = True
        Set r1 = Nothing
        Set r2 = Nothing
        For Each cl1 In Range(cl.Offset(1), Cells(Rows.Count, cl.Column).End(xlUp))
          If cl1 <> "" And b Then
            Set r1 = cl1
            Set r2 = cl1
            b = False
            ElseIf cl1 <> "" Then Set r2 = cl1
          End If
        Next cl1
        If cl.Address <> Range(r1, r2).Address Then Names.Add cl, Range(r1, r2)
      End If
    Next cl
    End Sub
    Dit is hem wel..

    Zoek alleen naar de toevoeging van de 'spatie correctie' van dotchiejack

  17. #17
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Wil je svp niet quoten?

    Code:
    Names.Add Replace(cl, " ", "_"), Range(r1, r2)
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  18. #18
    Top. En op een ander tabblad beginnen de cellen met een cijfer. Dit leest de "namen beheren" ook niet. Ik wil er graag bv een letter "A" aan toevoegen zodat hij dit wel leest (mag niet beginnen met). Hoe doe ik dit?

  19. #19
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    "A" & cl
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  20. #20
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    Range(r1, r2).Name = Replace(cl, " ", "_")
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Pagina 1 van 2 1 2 LaatsteLaatste

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