Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  40 41 42 43 44 45 46 47 48   další » ... 84

Co treba prostym odkazem. Sesit nadrizeneho by byl napojen na sesit podrizeneho, kde se doplnuji udaje... 2

Udelal jsem jen "Prijem", analogicky lze udelat Vydej a nasledne ulozeni do listu uz urcite taky nebude problem...

zkus tento MsgBox
MsgBox "Aktivní buňka je sloučená: " & ActiveCell.MergeCells & vbNewLine & _
"Oblast aktivní buňky: " & ActiveCell.MergeArea.Address, vbInformation, "Aktivní buňka"

Bohuzel, panely v office 2007 uz nejsou dostupne.
Jedinou moznost vidim v pouziti Userformu spousteneho pri otevreni a zavreneho pri zavreni...

No prave, az do c5 vlozite nejake cislo (tak jsem to pochopil, ze tam se zadavaji hodnoty), tak se co bunky C2 tato hodnota pricte - ale asi nechapu, co chcete udelat.
Format cisla: Range("c5").NumberFormat = "#,##0.00"

Zdravim,
tady lze vyuzit vlastnost ListIndex, ktera rekne, ktera polozka ComboBoxu byla vybrana (poradi se ale cisluje od 0, tak se musi pricist jednicka, aby byl definovan radek).

Takto by mohl vypadat kod:Private Sub ComboBox1_Change()
Dim Radek As Long
Radek = FORM.cbA.ListIndex + 1

txtB.Text = Cells(Radek, 2)
txtC.Text = Cells(Radek, 3)
txtD.Text = Cells(Radek, 4)
End Sub

tak mozna takto:
Sub Posun()
Dim Puvodni As Double
Puvodni = Range("c2")
Range("A5:G99").Cut Destination:=Range("A6:G100")
Range("C2").Formula = "=" & Puvodni & "+C5"
End Sub

Nevim, jestli jsem to pochopil spravne, ale pokud ma v bunce C2 stale zustat soucet bunek C5:C100, tak staci za radek posunuti pridat tento radek:
Range("C2").Formula = "=Sum(C5:C100)"

treba takto:
Range("A5:G99").Cut Destination:=Range("A6:G100")

Do modulu kazdeho listu vlozte tento kod:Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

...samozrejme, pokud se vas uzivatelsky formular jmenuje UserForm1 (to je defaultni nazev)

ve vzhledu stranky na karta Stranka je kolonka 'cislo prvni stranky' a tam by melo byt 'automaticky'.
U tech tvych stranek byla nekde '1'.

takhle?

takhle?

Tezko rict, nevim, jaky formular mate na mysli ani, co potrebujete. Asi nezbude nic jineho, nez zkusit si udelat reseni na miru (obecne vzato, kde maji jeste Excel 97???????????).
Pokud jde o prekopirovani formulare (predpoklada, ze mate na mysli Uzivatelsky Formular), to urcite jde (ale taky jsem si temer 100% jisty, ze nebudou sedet procedury, ktery formular obsahuje...
Vedomosti nacerpane z knih jsou dobre a vetsina lidi jsou samouci, takze myslim, ze to urcite muzete zvladnout...jen do toho, reseni praktickych problemu je nejlepsi zpusob uceni se... 4

na obecnou otazku, obecna odpoved:
Pred cast kodu, ktery tiskne a posouva cislo dokladu vlozte kod, ktery priradi hodnoty uvedene v polich, ktere chcete kopirovat do bunek archivu tak, aby to odpovidalo vasi predstave...

Tak asi prilozte soubor a muzeme to udelat konkretne... 4


Strana:  1 ... « předchozí  40 41 42 43 44 45 46 47 48   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje