• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

jako kod jsem použil tisíce pro zákl info a jednotky pro doplnujicí info (kde 10xy spadá pod hlavní info od 1000)
tak jsem vytvořil něco takového (ještě jen hodím na začátek příkaz na smazání příslušných bunek a funguje to):

For i = 1 To 6
If Cells(4 + i, 1) Mod 1000 = 0 Then
u = Cells(4 + i, 1) / 1000
Sheets(4 + 2 * u).Cells(12, 4) = Sheets("seznamsmluv").Cells(4 + i, 13)
Sheets(4 + 2 * u).Cells(12, 5) = Sheets("seznamsmluv").Cells(4 + i, 9)
Else
u = (Cells(4 + i, 1) - Cells(4 + i, 1) Mod 1000) / 1000
'tohle souvisí jakoby s poctem dětí
For j = 1 To 10
If IsEmpty(Sheets(5 + 2 * u).Cells(1 + j, 1)) Then
'udaj1
Sheets(5 + 2 * u).Cells(1 + j, 1) = Sheets("seznamsmluv").Cells(4 + i, 1)
'udaj2
Sheets(5 + 2 * u).Cells(1 + j, 2) = Sheets("seznamsmluv").Cells(4 + i, 6)
'udaj3
Sheets(5 + 2 * u).Cells(1 + j, 3) = Sheets("seznamsmluv").Cells(4 + i, 5)
Exit For
Else
End If
Next
End If
Next

kdyby Vás napadla nějaká optimalizace, tak sem s ní(stačí myšlenka, já už to nějak implementuju), protože těch "i" cyklů bude k dobré stovce a v každém cyklu bude pro "i" kopírováno tak 10 zákl. info, těch dodatečných taky klidně až k deseti. :)

Jsem to vyřešil jako neandrtálec takto :D
Selection.Copy
ActiveCell.Offset(rowOffset:=0, columnOffset:=5).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=8).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=-28).Activate

Zdravím má tu někdo ochotný dvě minutky volného času? :) potřebuji poradit jak se ve VBA udělá:
- kopírovat označené
- posunout se z aktivní bunky o X sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)
- posunout se z aktuální aktivní bunky o Y sloupců
- vložit (tedy vložit vzorce s formátem i barvou bunky)

Děkuji za rady. Koncem týdne bych se tímto excelem mohl opět zabývat, tak se ozvu jestli jsem něco funkčního vymyslel.
Ještě mě napadlo, že pro ty podinformace v tomto případě ty děti, by s mohl použít pomocný list. Koncem týden něco vymyslím. (ps: a ano to měl být text a ne datum)

vyřešeno
děkuji za pomoc :)

(nepochopil jsem přesné fungování tohoto:

u = 1

z(0) = u

z(1) = 2 + u

)

děkuji, jdu to vyzkoušet!
nějak se to snažím dát dohromady ale asi tomu nerozumím :D
potřebuju abych mohl nastavit for cykl a proměnná U mi běžela třeba do 20
tak, že mi to do B2 na listu 2 zapíše odkaz na zákl. list na bunku (např) D4 >>> v dalším cyklu zapíše na list 3 do bunky B2 odkaz na bunku D5 >>> atd atd

Dobrý den, potřeboval bych upravit tento řádek o promněné

Sheets("2").Cells(2, 2) = "=List1!R[0]C[-1]"

abych promněnou U mohl zanést ve své podstatě takto:

Sheets("2+U").Cells(2, 2) = "=List1!R[0+U]C[-1]"

aby výsledkem bylo (pro U = 1):

Sheets("3").Cells(2, 2) = "=List1!R[1]C[-1]"

Děkuji za ochotu, už ten Váš kód louskám. A zase dívám že jsem trochu špatně popsal problém (mně se totiž pletou řádky a sloupce :D ) Buňky např C3 až F3 přidat do listu jehož název je v bunce C3, a každá bunka pujde na jiné místo. Udělal jsem modelový excel viz příloha.

špatně jsem se vyjádřil budu potřeboval aby se mi hodnoty ze základního listu vypisovali do listů 1 2 3 atd. proto na to budu potřebovat for cyklus. Aby když na listu základním napíšu do bunky 28 a řádek k tomu tak se mi to zapíše na list 28 do učitého řádku, pokud tam je volno, pokud ne tak se mi to zapíše pod to a pod a takhle bude potřeba projet tak 300 řádků. proto potřebuju abych mohl dynamicky zadat název listui ve VBA. Jediné co bych ted potřeboval jak by vypadal řádek ve VBA typu. bunka A1 obsahuje název listu kam se to má vložit, vlož bunky a1 až a8 (do již zmíněného listu), ale předtím by měl zkontrolovat jestli v tom listu do kterého se mají vložit ty řádky jestli tam jsou prázdné bunky když ne tak je vloží o řádek níž když ne tak o řádek níž... ale to s tím když a vkládání o řádek níž zvládnu, jde mi hlavně o tu první větu (viz tučně)
zítra se tím zase budu zabývat, třeba na to příjdu sám a třeba ne

to co jsem prvotně řešil tak to funguje skvěle. Ale já stejně budu potřeboval dynamické zadávání názvu listu do for cyklu. Kde pojede cykl "i" potřebuju aby název listu byl "0+i" a mě se tak mohli krásně vypisovat hodnoty z listu 1 2 3 atd. Takže tohle bych ještě nějak potřeboval pořešit ve VBA.

skvělé, děkuji, já měl ve vzorci nějak špatně ty uvozovky a apostrofy :D
a ještě by mě zajímalo jde nějak odkazovat na jiný soubor na základě excelu v kterém pracuju? jakože cesta je
.../slozka/excelvkteremteddelam.xlsm a aby dynamický odkaz jen odebral excelvkteremteddelam.xlsm a dal tam nějaky pevná název který by byl opět vypsan v bunce. jde mi o to že když budu mít odkazovaný excel na jiné soubory ve složce a pak celou složku někomu pošlu tak tam už by klasické jendoduché odkazy nefungovaly.

Zdravím.
potřebuju do bunky (např. C8) na aktuálním listu vložit číslo z listu jehož název je napsán v bunce (např. A8) (aktuálního listu)
názvy listu mám pojmenované čísly 1 2 3 atd.
cíl: změním název buňky A8 na název jiného listu > dostanu hodnotu z tohoto nového listu
mám excel 2010, snažil jsem se použít funkce indirect a vlookup, ale mám jen české funkce, takže funkci "nepřímý odkaz" jsem našel ale vlookup česky jsem nenašel.. (řešit možno i ve VBA)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse