Nestede løkker

prøv :

Dim Sum, Tmp as Double

for t=1 to 15
For i = 0 to 40
if mid(cells(16+i,10),1,1)="P" then
Sum=Sum+ mid(cells(16+i,10),2,3)
end if
Cells(7,9+t) = Sum
next
next

Hej Excelent! Tak for dit forsøg, der dog ikke virker.

Jeg har f.eks. 5 kolonner med værdier i 5 rækker - se nedenstående:

B10    B20    B30    B40    B50
B10    B20    B30    B40    B50
B10    B20    B30    B40    B50
B10    B20    B30    B40    B50
B10    B20    B30    B40    B50

1. kolonne skal give 50 i cells(7,10) 2. kolonne = 100 i cells(7,11) etc.

Min lille kode virker på kolonne 1 uden problemer, men jeg vil gerne loope igennem
kolonnerne og samle værdier der skal placeres i cells(7,x)

Håber du kan hjælpe:)

hvad med at indsætte en formel under hver kolonne

=SUM(--HØJRE(A1:A5;2))

afslut med ctrl+shift+enter

tja, men jeg ville nu hellere have en nested løkke - det endet med at blive et stort ark, så den den løkkestruktur jeg ønsker, vil gøre det hurtigere - jeg har set mange af dine andre svar, så jeg er sikker på du også kan fikse dette

Marker område der skal summeres og kør koden
sum indsættes 2 rækker under markering for hver kolonne

Sub Summe()

k1 = ActiveCell.Column
k2 = Selection.Columns.Count
r1 = ActiveCell.Row
r2 = Selection.Rows.Count

For k = k1 To k1 + k2 - 1
For r = r1 To r1 + r2 - 1
Cells(r1 + r2 + 1, k) = Cells(r1 + r2 + 1, k) + Right(Cells(r, k), 2)
Next
Next

End Sub

Tak for din kommentar - men hvordan får jeg lige trukket værdierne ud, når der
står et bogstav forrest i feltet - "if mid(cells(7,10),1,1)= "P"" ?

hvor i strengen står værdien/værdierne du skal bruge
og hvor mange skal med ?

Denne summerer de 2 sidste tal i strengen/cellen

Sub Summe()

k1 = ActiveCell.Column
k2 = Selection.Columns.Count
r1 = ActiveCell.Row
r2 = Selection.Rows.Count

For k = k1 To k1 + k2 - 1
For r = r1 To r1 + r2 - 1
If Left(Cells(r, k), 1) = "P" Then
Cells(r1 + r2 + 1, k) = Cells(r1 + r2 + 1, k) + Right(Cells(r, k), 2)
End If
Next
Next

End Sub

Hej Excelent!
Tak for hjælpen, men jeg har selv lavet denne løsning der virker:

Dim Sum, Tmp As Double

For j = 0 To 183
For i = 0 To 24

If Mid(Cells(16 + i, 10 + j), 1, 1) = "B" Then
Tmp = Mid(Cells(16 + i, 10 + j), 2, 3)
Sum = Sum + Tmp
  End If
Next i
Cells(7, 10 + j) = Sum
Sum = 0
Next j

Endnu engang tak for hjælpen!!:)

velbekom

point retur