letters ophogen via for loop

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Hi , ik heb een categorielijst a,b,c,d,e,z. weet iemand hoe ik mbv een for loop van a naar b naar c etc kan gaan?
alvast bedankt rob
 
Zo:
Code: 
Sub Ophogen()
    For i = 97 To 122   [COLOR="#008000"]'Hoofdletters zijn 65 to 90[/COLOR]
        MsgBox Chr(i)
    Next i
End Sub

De tegenhanger van Chr is Asc.
Dus, Asc("A") is 65.
 
Laatst bewerkt:
Bedankt edmoor, ascii daar had ik helemaal niet bij stil gestaan.
 
Wat het doel is ontgaat me in je vraag, maar het kan ook zonder loop als je het in cellen wil plaatsen.
Code: 
Sub Ophogen()
 cells(1).resize(26) = [index(char(row(65:91)),)]
End Sub
 
Hi HSV,
ik probeer mbv een sumifs functie en jouw "=LOOKUP(1000;SEARCH(KolA;K1);KolB)" formule de totalen per kosten categorie in een sheet te zetten. Tenminste ik dacht dat die formule destijds van jouw kwam.

Code: 
Sub MaandRapportTest2()

'For i = 97 To 122   'Hoofdletters zijn 65 to 90
 '       MsgBox Chr(i)
  '  Next i
  
   lrMaand = Sheet23.Cells(Rows.Count, 3).End(xlUp).Row
   lJaar = Sheet23.Cells(lrMaand, 2).Value
   lMaand = Sheet23.Cells(lrMaand, 3).Value

   For y = 2017 To lJaar
      For m = 1 To lMaand
         For c = 97 To 103
            cat = WorksheetFunction.SumIfs(Sheet23.Range("J2:J1000"), _
                     Sheet23.Range("B2:B1000"), "=2017", _
                     Sheet23.Range("C2:C1000"), "=" & m, _
                     Sheet23.Range("D2:D1000"), "=" & c)
                     
            MsgBox (m)
            MsgBox (cat)
         Next i
      Next m
   Next y
End Sub
 
Die formule lijkt inderdaad op die ik eens plaatste, maar ik kan verder niets met je vraag.
 
Geen probleem, maar ik had toch nog een vraag aan jouw over die formule. Ik heb geprobeerd om die om te zetten naar VBA maar ik begrijp eigenlijk niet eens hoe die werkt. Heb jij daar misschien een VBA code van of zou je mij een eind in de goede richting kunnen zetten hoe ik die in VBA zou kunnen coderen?
 
Als jij een bestand plaatst met de juiste omschrijving wat er moet gebeuren zal er vast iemand naar kijken.
Voor mij wordt het niet eerder dan morgenavond.
 
Ok , ik zal morgen een deel van mij db strippen en als bestand plaatsen. Alvast bedankt.
 
Heb je al eens een draaitabel geprobeerd ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan