[KwasneJablko]

Jak w tej sytuacji zrobic loop w #vba? chodzi mi o to zeby w OFFSET i mnozylo sie przez 1-50 ale chce uniknac wpisywania tego wszystkiego recznie.

Czy ktos jest mi w stanie pomoc. To prosta srpawa, ale dopiero zaczynam sie uczyc VBA.

Sub iex()

Dim i As Integer
Dim y As Integer

y = 1

i = 107

Range(Cells(17, 5), Cells(112, 5)).Copy Destination:=Cells(17, 45)
Range(Cells(17 + i, 5), Cells(112 + i, 5)).Copy Destination:=Cells(17, 45 + y)
Range(Cells(17 + 2 * i, 5), Cells(112 + 2 * i, 5)).Copy Destination:=Cells(17, 45 + 2 * y)
.
.
.
End Sub

#excel #vba #programowanie

[piterRRR]

@KwasneJablko: zwykła pętla for?

[DwaNiedzwiedzie]

@KwasneJablko:

For m = 0 To 50
 Range(Cells(17 + m * i, 5), Cells(112 + m * i, 5)).Copy Destination:=Cells(17, 45 + m * y)
Next

[m.....3]

@DwaNiedzwiedzie: oz ty wariacie

[KwasneJablko]

@DwaNiedzwiedzie: kurde jakie to proste :) dzieki wielkie :)

[DwaNiedzwiedzie]

@KwasneJablko: Jeśli potrzebujesz kopiować tylko wartości, to spróbuj tak, będzie dużo wydajniej:

Cells(17, 45 + m * i).Resize(96).Value2 = Cells(17 + m * i, 5).Resize(96).Value2

@maku93: ?

[KwasneJablko]

@DwaNiedzwiedzie: tamto dziala dobrze :) moze wiesz natomiast jak zrobic cos takiego ze mam dwa dane liczbowe

4 7 3
4 2 3
0 2 3
0 0 0
0 0 0
0 0 0

i chcialbym sumowac pod dwa aby wynik byl nastepujacy

8 9 6
0 2 3
0 0 0

Chodzi o zamiane 15 min w 30 minutowe interwaly. :)

[DwaNiedzwiedzie]

@KwasneJablko: Działać działa, ale jest wielokrotnie wolniejsze od bezpośredniego przepisywania wartości :)
Co do drugiego tematu, to może coś w ten deseń:

For m = 1 To 10
 Cells(m, 2).Value = WorksheetFunction.Sum(Cells(m * 2 - 1, 1).Resize(2))
Next

[KwasneJablko]

@DwaNiedzwiedzie: > For m = 1 To 10

Cells(m, 2).Value = WorksheetFunction.Sum(Cells(m * 2 - 1, 1).Resize(2))

Next

@DwaNiedzwiedzie:

dzieki, twoje dzialalo ale potrzebowalem loopa i na forum MrExcel mi takie cudo stworzyli

Sub IEX2()
Dim Ary As Variant, Nary As Variant
Dim r As Long, c As Long, i As Long

Ary = Range("A1").CurrentRegion.value2
ReDim Nary(1 To UBound(Ary), 1 To UBound(Ary, 2))
For r = 1 To UBound(Ary) Step

[DwaNiedzwiedzie]

@KwasneJablko: To samo, tylko "w pamięci" (w zmiennych tablicowych) :) Przejdź makro krok po kroku (F8) i obserwuj w okienku zmiennych (View -> Locals window), co misiu ma w środku.