For Next loopt niet door

[Peterjur]

For Next loopt door

Hallo allemaal,Hier dan het resultaat van bovenstaande onkundige vraagetelling.Hier uit
blijkt dat op een duidelijke mannier een vraag stellen een van de moeilijkste opgaven
van een probleem is.Bovenstaande is hier een treurig voorbeeld van.

Hier dan de uitwerking,excuus voor het gebruik van de eerder verkregen programma's die
ik zeg het maar allen een oplosing voor de foute vraag zijn en op zichzelf werken zoals
bedoeld.

Sub BedrNGrootb()
'Bedragen naar Grootboekrekeningen
For t = 2 To 15
For i = 1 To 60
If Range("Q" & i).Value = t Then
With Sheets("Blad1")
.Cells(.Rows.Count, t).End(xlUp).Offset(1) = Range("R" & i)
End With
End If
Next i
Next t
End Sub

ONDERSTAANDE IS HET PROG INGEDIEND BIJ BOVENSTAAND DOMME VRAAG.

Sub BedrNGrBHersteld()
'Plaatst aan de hand van de Boeknummers de Posten in het grootboek per post
' Sheets("blad2").Select
' Dim answer As VbMsgBoxResult
'Dim VolgendeLetter As String
' For c = 1 To 27
' VolgendeLetter = Chr(64 + c)
For t = 2 To 15
For i = 1 To 60
If Range("Q" & i).Value = t Then
With Sheets("Blad1")
'Range("R" & i).Copy Sheets("Blad2").Range(VolgendeLetter & c)*****vervangen
.Cells(.Rows.Count, t).End(xlUp).Offset(1) = Range("R" & i)********door deze
End With
End If
Next i
Next t
'Next c
' Sheets("Blad2").Select
End Sub

De Commentaarregels zijn de regels die er uit gehaald zijn.De regel die het werk doet is
vervangen door die met Cells werkt.

Ik heb hier veel van geleerd ik hoop U de Hulpbehoevende ook.mvrgr,Peter.