MS Excel

No Data1 reaguje na Vašu zmenu, Data2 na zmenu vzorcom. Presúvajú sa celé stĺpce. Ak chcete iba kopírovať stĺpce, treba upresniť, ak chcete kopírovať iba hodnoty (bez formátovania a pod) treba upresniť, ak nie celé stĺpce, ale iba určité riadky, treba upresniť, ak sa majú vynechať prázdne bunky, treba upresniť, atď...citovat

pred riadok
Application.CutCopyMode = False
dajte
Application.Goto Cells(1, 2)

ale má to Achylovu pätu, keď nebude v Backup liste v 1. riadku posledná bunka zároveň poslednou bunkou smerom vpravo, tak Vám prepíše tie, ktoré sú v ďalších riadkoch viac v pravo. Aj preto je potrebné lepšie špecifikovať dáta.

Inak ak tam máte v A1 vzorec napr.
=SUM(B:D)
=SUMA(B:D)
musíte ho zmeniť na nepriamy odkaz, lebo sa robí vystrihnutie a vloženie, a to zmení vzorec na cieľovú adresu, teda do listu Backup.
=SUM(INDIRECT("B:D"))
=SUMA(NEPŘÍMÝ.ODKAZ("B:D"))

Ako som písal pred tým, dá sa to urobiť mnohými spôsobmi. Ja by som uprednostnil iba kopírovanie hodnôt a zmazanie starých cez .ClearContents. A zároveň by som udržiaval v jednej bunke v Backup (napr. A2) číslo posledného zápisu. Potom by sa ľahko násobkom *3 vyrátal správny stĺpec pre zápis, a nezáležalo by na tom, či sú vo všetkých stĺpcoch dáta, ani na vzorcoch. atď...citovat

Děkuji moc za příspěvky, dával jsem to nějakou dobu dohromady, ale u zadání 30 pole se to nespustí, nebo se nazapíše čas a jméno uživatele, co data zadával,jak by se to dalo opravit? Dále bych chtěl udělat, že by se po zadání 30 čísel spustila tabulka a zeptala se, jestli chce uživatel zkrácené kolo, nebo zrychlené, aby buď napsal 15 čísel nebo 30. :)
Kdybych věděl jak sem dát přílohu, tak jí sem vložím, dolu přikládám zdroják k programu, hodnoty jsou vypočítané z polí nepřímý odkaz sečti hodnoty polí, když není rovno 0, takže při automatickém vyplnění polí v poli D30 by mělo nastat kopírování na ĺist backup a zeptat se kolik čísel tentokráte ideální by bylo, aby to v backupu bylo s hlavičkou, že bylo vybráno 15 nebo 30 čísel :)

Private Sub Worksheet_Change(ByVal Target As Range)
'plati pro sloupec "B=2" (A=1) krom prvniho radku "And Not Target.Address = "$B$1"" kromě záznamu ple B1
If Target.Column = 2 And Not Target.Address = "$A$1" Then
Application.EnableEvents = False
'zapíše do "4" sloupečku
Cells(Target.Row, 4) = Application.UserName
Application.EnableEvents = True
End If

If Target.Column = 2 And Not Target.Address = "$C$1" Then
Application.EnableEvents = False
'zapíše do "3" sloupečku
Cells(Target.Row, 3) = Now
Application.EnableEvents = True
End If
End Sub

Sub Presun()
Dim Stlp As Integer
If WorksheetFunction.CountIf(Range("B:D"), "<>") > 0 Then
Application.ScreenUpdating = False
With Worksheets("Backup")
Stlp = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("B:D").Cut .Columns(Stlp)
End With
Application.CutCopyMode = False

Application.Goto Cells(1, 2)
'hodí NA DANOU KOLONKU
Application.ScreenUpdating = True

End If
End Sub

Sub Skok()
Application.CutCopyMode = False

Application.Goto Cells(1, 2)
'hodí NA DANOU KOLONKU
Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_Calculate()
'A2

Application.CutCopyMode = False


If Cells(2, 1) = 30 Then Call Presun

Application.ScreenUpdating = True


End Subcitovat

Zde je malý problé, zadám 30 hodnot a musím klikat do jiného pole, což je pro mě problém, aby mi to srávně fungovalo a vypsalo po spočtení 30 na druhý list všechny hodnoty včetně času a uživatele, jak je :)Jinak vše funguje, podle toho co jsem tímto vláknem chtěl získat. Což je naprosto skvělé, ukázka je v příloze :)citovat