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

Příspěvky uživatele

máš tam výpočty, pro mě nejasné, ale jen jsem do toho mrknul
hodnota1 = CDbl(UserForm2.C6.Value)

oprav na:

hodnota1 = Val(UserForm2.C6.Value)
a všechno počítá

Zdroj.xlsm nepřikládám, nic v něm není měněno. Kod je okomentovaný. Takže se na to mrkněte. Načte data ze zdroje do dvourozměrného pole i s popisky sloupců a řádků a pak hledá rádky a sloupce v cílové oblasti a "vyhrká" to do správných pozic.

upřesnění:
ve "zdroji" a "k doplnění" jsou jinak označeny řádky. V jednom jako číslo, v druhém jako text. Je to chyba nebo záměr. Musí to tak zústat a být ošetřeno převodem text- číslo nebo lze odpočátku upravit "zdroj" na číslo.

tak ?

aha, rozumím. Problem je čas, zitra a přes víkend - nevím ? V Po určitě, pokud to nevyřeší jiní, což je pravděpodobné.

Jak na to ? tož tak, k tomu 6 piv a pak už je ti pás karet ukradený , ale já bohužel nemůžu

Myslíš to tak ? z B1 do B1, C1 do C1, tedy ze stejné buňky jednoho souboru do stejné druhého?
A kolik je těch dat, pouze toto nebo rozsáhlejší?

Stejné, chyba , nemůže najit. Hoď to SEM do přílohy.

Nemůže najít .. ? zkus to znovu

???

Ha, není to skvělé, nebyla ošetřena chyba pro případ vynechání dvou za sebou jdoucích prázdných buněk. Dále byla možnost dvojkliknout kamkoli a to i do horních čísel, čímž se to celé popřepisovalo. Teď by to mělo být ok.

To by neměl být žádný problém, ale jako problém vidím X a Y pod sebou na listě "vstup". Píšeš, že počet X a Y může být různý. Otázka je: kam budeš psát např. X50, X51 atd. když je místo už jen na X4. ASi by to chtělo jiné rozvržení "vstupních" dat. A nebo tomu nerozumím

stačí en takto:

Sub otevři()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "C\*.xls*"
.Title = "Vyber adresar"
.Show
sxs = .SelectedItems(1)
Workbooks.Open Filename:=sxs
End With
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje