For Next met Alfanumeriek 2

[Peterjur]

Mark xl en Octafish.Hebben mij in de For Next eerder al geholpen,maar ik doorgrond
de materie niet voldoende om de gekregen programma's te implementeren,
Ik heb het volgende geprobeerd.

      Dim answer As VbMsgBoxResult
        Dim VolgendeLetter As String
 For c = 1 To 27
        VolgendeLetter = Chr(64 + c)
  For t = 1 To 15
    For i = 2 To 60
      If Range("E" & i).Value = t Then
         Range("I" & i).Copy Sheets("Blad3").Range(VolgendeLetter & c)
      End If
    Next i
  Next t
 Next

Maar de "volgendeletter" veranderd de kolom niet,wat doe ik fout??
Hopelijk wil U mij nogmaals helpen.bvd Peter.

 

[HSV]

Ik weet niet wat je wil bereiken, maar dit is wat er gebeurd in jouw code.

 

[Peterjur]

Hsv,Dank voor de reactie.Heb het uitgeprobeerd,doet niet wat ik wil.
Ik zal proberen het uit te leggen.

In blad1 heb ik in kolom E 55 postnummers van 1 tot 10, zeg maar 5*1 en 5*2 enz.
In Kolom I heb ik 55 bedragen staan.Dus ieder bedrag heeft een postnummer.

Aan de hand van de postnummers moet in blad3 de bedragen in 10 kolommen met een eigen postnummer komen.

Dus bv. in kolom F alle bedragen met postnummer 1.enz.

Met het veranderen van de kolom moet het bedrag weer op rij 2 beginnen.

Ik hoop dat een en ander duidelijk genoeg is Ik vind het nogal complex.

Mvg.Peter.

 

[HSV]

Bedoel je het zo?

Sub tst()
  For t = 1 To 15
  For i = 2 To 60
If Range("E" & i).Value = t Then
   With Sheets("Blad3")
     .Cells(.Rows.Count, t).End(xlUp).Offset(1) = Range("I" & i)
       End With
      End If
    Next i
  Next t
End Sub

 

[Peterjur]

HSV.Geweldig zo bedoelde ik het exact.Dank.Groet Van Peter.