Příspěvky uživatele
< návrat zpět
Co treba prostym odkazem. Sesit nadrizeneho by byl napojen na sesit podrizeneho, kde se doplnuji udaje... 
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... 
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...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články