Dobrý den,
jde nějak nastvavit, aby se mi při tisku měnilo jedno kontrétní číslo pro každou vytištěnou stránku.
Příklad: Vytisknu 10x stejný list, ale každý list bude s jiným číslem (1-10).
Díky
Děkuji za řešení.
Nakonec jsem to ale udělal pomocí listboxu a dynamickým rozsahem.
Nicméně jsem se alespoň poučil, jak to lze provést.
Dobrý den,
potřeboval bych poradit, zda jde nějak smazat poslední řádek v textboxu.
Ukládám si do textboxu hodnoty pomocí:
ufProdej.tbSeznam.Value = ufProdej.tbSeznam.Value & vbNewLine & ufProdej.tbProdejZbozi.Value
To funguje správně, teď bych ale potřeboval nastavit fci, která mi smaže poslední řádek.
Díky Vám oběma, poupravil jsem to a už to funguje
Ve vzorovém souboru nic nemám. Zasekl jsem se na tomto problému. Opravdu se mi jedná o fci svyhledat, buď aby fungovala ta z excelu a nebo ji udelat pomoci VBA
Dobrý den,
potřeboval bych poradit, jak pomocí VBA vytvořit fci, která by mi prošla seznam dat a pokud se vyhledávaná hodnota rovná hodnotě ve sloupci A, tak to vrátí hodnotu tomu odpovídající ve sloupci B.
Odpovídající fce v Excelu je SVYHLEDAT, zkoušel jsem to teda řešit použitím této fce, ale nefunguje mi.
Private Sub tbProdejEAN_AfterUpdate()
ufProdej.tbZk.Value = Formula = "=VLOOKUP(ufProdej.tbProdejEAN.Value,Sklad!B:C,2,FALSE)"
End Sub
Za rady budu vděčný.
Díky moc, už to funguje....
Dobře, v tom to asi bude.
Můžete mi tedy ještě poradit, jak to ošetřit ve formuláři? Nevím, jak nastavit, aby se mi takhle uložilo.
Děkuji
Přikládám tedy onen soubor.
V listu "Vaha" kliknout na Nabídka a v ní Soupiska, tím se spustí formulář pro zadání kritérií.
A následně v listu "Soupiska" potvrdit tlačítkem (to spustí filtr).
Zápis kritérií je řešen ještě trochu jinak, než jsem ukazoval, ale princip je stejný a nefunguje ani jeden způsob.
Žádnou chybu to nehlásí.
Filtr pouze vyhodnotí, že nic z výchozích dat nesplňuje podmínky a vrátí tedy prázdnou oblast
Já sem vložil špatný kód.
Tu Vaši verzi tam mám (a nefunguje), verzi výše vloženou jsem pouze zkoušel, zda to něco neudělá...
První příspěvek jsem tedy upravil
Dobrý den,
potřeboval bych poradit, jak naprogramovat rozšířený filtr, který by data filtroval podle datového rozmezí.
Pokud si totiž nastavím, že chci data například >5.8.2011 a <9.8.2011 a provedu nastavení ručně, tak vše funguje.
Když to pak ale zkusím pomocí makra, tak se již nic neprovede, zkoušel jsem i makro nahrát, ale stále nic.
Data ukládám pomocí formuláře:
Sub UlozitSoupis(radek As Range)
If ufSoupiska.chbDodavatele.Value = True Then
radek.Cells(4, 15).Value = "Všichni dodavatelé"
Else
radek.Cells(4, 15).Value = ufSoupiska.cbDodavatel.Value
End If
radek.Cells(4, 16).Value = ufSoupiska.cbKomodita.Text
radek.Cells(1, 17).Value = ufSoupiska.tbOd.Value
radek.Cells(1, 18).Value = ufSoupiska.tbDo.Value
radek.Cells(4, 17).Value = ">" & ufSoupiska.tbOd.Value
radek.Cells(4, 18).Value = "<" & ufSoupiska.tbDo.Value
End Sub
A kód pro makro vypadá takto:
Sub Makro7()
'
' Makro7 Makro
'
' Klávesová zkratka: Ctrl+e
'
Sheets("Vaha").Range("A4:I18").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Soupiska!Criteria"), CopyToRange:=Range( _
"Soupiska!Extract"), Unique:=False
End Sub
Pravděpodobně bude chyba v uložení data, asi to vba nebere jako datum a tím pádem to podle toho nefiltruje.
Každopádně budu rád za každou radu
Tak už jsem to vyřešil, díky za rady
Dobře, tak znovu.
S těma 2 formuláři je to zmatené, tak to stačí jednodušeji.
Na jednom listu mám sepsána data, kde na každém řádku jsou hodnoty: datum, dodavatel, netto. Těchto řádků je samozřejmě mnoho.
Teď mi jde o to, jak udělat součet sloupce netto za určité období (například od 7.8.2011 do 10.8.2011) a určitého dodavatele.
Vytvořil jsem si formulář, do kterého se budou zadávat data Od - Do a Dodavatel. Potřebuji tedy naprogramovat fci, která by z tohoto formuláře tyto hodnoty vybrala a udělala součet jenom těch hodnot, které splňují podmínky.
Zdravím.
Potřeboval bych, aby mi textbox ve formuláři zobrazoval součet na základě zadaných kritérií, které se budou zadávat do jiného formuláře.
Jedná se vlastně o fci Sumif. V excelu se mi ale nedaří vytvořit, protože kritérium je >=, musel bych ho vypisovat ručně, pokud zapíšu >=B3, kde B3 je hodnota z prvního formuláře, tak to nefunguje.
Děkuji předem za náměty...
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.