For Next met Alfanumeriek

Status
Niet open voor verdere reacties.

Peterjur

Gebruiker
Lid geworden
25 apr 2011
Berichten
105
Hallo,

Code:
For i=1To25
Code:
Daarmee wil ik van kolom F naar G enz.kan dat?? bvd Peter.
 
Dat hoeft niet.
Je kunt de functie Chr gebruiken
Code:
Sub Letters()
Dim answer As VbMsgBoxResult
Dim VolgendeLetter As String

    For i = 1 To 27
        VolgendeLetter = chr(64 + i)
        answer = MsgBox(VolgendeLetter & _
                            IIf(i = 27, "laat dan maar]", vbCr & "snap je het?"), _
                            (vbQuestion + vbYesNo) * Abs(i < 27))
        If answer = vbYes Then
            MsgBox "Mooi!"
            Exit For
        End If
    Next i
    
End Sub
 
Laatst bewerkt:
Simpel voorbeeldje:

Code:
Dim aCel As Range
    For i = 1 To 12
        Set aCel = ActiveCell
        aCel.Offset(0, 1).Activate
    Next
 
Haha. Je hebt helemaal gelijk octafish
Je kunt inderdaad gewoon met Cellen werken.

Sorry ik had er zin in..!
 
Mark xl en OctaFish,dank voor de snelle en geweldige reacties.dat geeft de burger weer moed.nogmaals dank.Gegroet mijn vrienden.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan