Zdravím, můžete mě pomoct s tabulkou. Potřebuji sečíst A2:A=variabilní počet do bunky B2 a udělat kopii z A2:A=variabilní počet, do E2 a kopii tam nechat a pod ní dát z A2:A=variabilní počet další kopii. A ještě překopírovat součet z B2 do Listu2 do bunky E2 a posunout dolu a další kopie z Listu1 B2 až bude znovu sečítat A2:A=variabilní počet.
Uf, snad to jde pochopit co chci. Je to do malinkého obchodu kde se bude v A sčítat jednotlivý nakup, V E se bude uchovávat historie jednotlivých nakupu a v Listu 2 v E se bude archivovat kolik jednotlivý nákup stál Kč. Makro si upravím do jinýho souboru, potřebuji jenom nakopnout.Děkuji.
Excel makro na kopirování a posun
-
- nováček
- Příspěvky: 3
- Registrován: září 14
- Pohlaví:
- Stav:
Offline
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel makro na kopirování a posun
Tady je makro co by to mohlo splňovat.
Kód: Vybrat vše
Sub Kopie()
'
Dim aSuma As Integer
Dim iPocetKopie As Integer, iPocetNakupy As Integer
'
With Sheets("List1")
aSuma = .Range("B2").Value
iPocetNakupy = .Cells(.Rows.Count, "A").End(xlUp).Row
iPocetKopie = .Cells(.Rows.Count, "E").End(xlUp).Row
.Range("E" & iPocetKopie + 1 & ":E" & iPocetKopie + iPocetNakupy - 1).Value = _
.Range("a2:a" & iPocetNakupy).Value
With Sheets("List2")
.Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Row + 1).Value = aSuma
End With
.Range("a2:a" & iPocetNakupy).ClearContents
.Range("B2").Formula = "=Sum(A2:A50)"
End With
End Sub
-
- nováček
- Příspěvky: 3
- Registrován: září 14
- Pohlaví:
- Stav:
Offline
Re: Excel makro na kopirování a posun
Je to perfektní,ještě malá prosba,aby se do List2 do E1 při spuštění makra přidalo datum za ty kopírované součty do sloupce F přidalo čas.Nebo když to nepůjde tak za ty kopírované součty do sloupce F přidalo datum a čas Jinak moooc děkuji. Ještě jsem zjistil, když spustím makro bez hodnoty List1 A2:A50 tak se mě odmazává po jednom řádku List1 B2.
- Přílohy
-
- pokladna.xlsm
- (119.15 KiB) Staženo 39 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 420
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 1968
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1156
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
-
- 9
- 1126
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
-
Libre Office Calc - Divné chování při kopírování textu Příloha(y)
od EZumrova » 02 dub 2024 08:12 » v Kancelářské balíky - 14
- 2139
-
od kecalek
Zobrazit poslední příspěvek
05 dub 2024 19:11
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti