Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další »

ted jsem to predelal tak že zadaný parametr hledá v souboru aaa.xls v rádku 1 (od range a1 smerem do prava) když najde tak do toho sloupcu to pak nasype data. když nenajde přida dalsi sloupec a nasype data.
radek ve kterem to má vyhledávat snad si už doladíte sám 1

dim to neřeší.
upravil jsem makro pro zadavaní do inputboxu viz priloha
nezapomente si zase upravit cestu pro soubor aaa.xls v makru

Asi takhle nějak?

Nevím či jsem to pochopil správně viz přílohu

co tohle viz přílohu

zkus použít příkaz

Application.DisplayAlerts = False

Nevím či jsem pochpil přesně co potřebuješ, ale jukni na tohle 4

Super díky, tohle jsem potřeboval.
Díky vám oběma. 5

jj funguje perfektně, děkuji.

A nešlo by to bez cyklování??

"For Each" nahradit něčím jiným.

Ahoj všem.
Potřeboval bych pomoct s tímto příkazem tak aby fungoval. viz níže


Sub ZakazTlacitko()
Dim i As Integer
Dim cmd As Variant

i = 2
cmd = "UserForm1.CommandButton" & i
cmd.Enabled = False
End Sub


Mám userform s více tlačítkama kde pokaždé potřebuji zakázat jiné.
předem děkuji

JJ teď už to funguje DÍKY. Jenom místo
as String jsem musel dát
as Variant
Ještě jednou díky.

Díky za odpověď.
Zkoušel jsem to, ale For Each lst In array('list1','list5','list10','posledni')
mi píše chybu a řádek je červeně.
Něco mu asi vadí 3

Ahoj.
Chci se zeptat jak by šlo předělat příkaz viz níže.
aby mi kontrolovalo jenom na některých listech a ne na všech. např. první dva listy vynechat je ich dohromady 8
Díky 2
Dim lst As Worksheet
For Each lst In Worksheets
If lst.FilterMode = True Then lst.ShowAllData
Next lst

JJ máš uplnou pravdu.
Jakmile do oblasti dám nějaké hodnoty tak už to funguje 7 .
Díky. Hodně mi pomohla tvoje odpověd.

Samozřejmě jsem měl namysli err 1004 7
Tohle funguje na office 2010 ale na offise 2003 už ne

ActiveSheet.ChartObjects("HC_U_Z").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Worksheets(jlistu).Range(gra1) 'tady se to sekne
ActiveChart.SeriesCollection(1).Values = Worksheets(jlistu).Range(Gra2)


Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další »

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