Příspěvky uživatele

Nikoho tu nezaměstnávám, reagujete dobrovolně
Áno, iste. Tu sa predsa majú riešiť veci zadarmo, takže zadávateľ má proste pravdu, bez ohľadu na to, s akým nezmyslom príde a riešitelia sú proste povinní nezmysel zadarmo rozkľúčovať, nech ich to stojí akékoľvek úsilie. Svet sa v prdel obracia..

Sub SkrytRadkyPodminkou_nove5()

Dim wSheet As Worksheet, i As Integer

For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
For i = 400 To 50 Step -1
If StrComp("254.420", .Cells(i, "A").Value) = 0 Then
.Rows(i).Hidden = True
End If
Next i

For i = 400 To 50 Step -1
If StrComp("254.423", .Cells(i, "A").Value) = 0 Then
.Rows(i).Hidden = True
End If
Next i

For i = 400 To 50 Step -1
If StrComp("254.424", .Cells(i, "A").Value) = 0 Then
.Rows(i).Hidden = True
End If
Next i
End With

Next wSheet

End Sub

Striktne vzaté, podľa nápovedy: "The sum_range argument does not have to be the same size and shape as the range argument. The actual cells that are added are determined by using the upper leftmost cell in the sum_range argument as the beginning cell, and then including cells that correspond in size and shape to the range argument.", by ten vzorec mal byť:=SUMIF($A$2:$C$13; E2; $B$2). Každopádne, šikovné riešenie.

Okrem toho, ta podmienka vo Workbook_Open_Test asi nie je napisana spravne, tym padom sa msgbox dnes nespusti ani po aktivovani tohto makra. Hovorim o podmienke, ktoru si zrejme nejako modifikovala, tu povodnu od elninoslov som nevidel, kvoli tomu ale notebook zapinat nebudem. Ono je to ale jedno, on ta elninoslov navedie..
Na prvy pohlad sa mi javi, ze miesto = v tej podmienke ma byt >=.

AHA už som to konečne pochopila. Zmenila som systémový dátum v pc na 28.02.2017
Asi nepochopila. Proste, makro Workbook_Open_Test nie je udalostne makro. Ziadna udalost ho nespusti, je mozne ho ale spustit rucne. Tym, ze si zmenila systemovy datum, si aktivovala tu rutinu zapisanu vo Workbook_Open.

Isteze msgbox nevyskakuje. Chce to pochopit, co znamena udalostne makro. Indicia: Existuje udalost Workbook_Open_Test?

No vida. Dobra sprava :)

Mozem, i ked nie som zastancom rieseni dodanych na striebornom podnose. Skus sa pozriet do napovedy k vyhladavacim funkciam. Zacni s SVYHLEDAT (VLOOKUP). Nasledne sa pozri na INDEX a POZVYHLEDAT (MATCH).

Je to realne, ale sucasne je to zbytocne. Staci pouzit vyhladavacie funkcie excelu. Makrom sa riesia veci, na ktore bezne prostriedky excelu nestacia, resp. riesenie bez makra by bolo komplikovane, zdlhave apod. Predtym, nez niekto zacne koketovat s VBA, mal by pmn ziskat aspon nejake znalosti zakladnych funkcionalit excelu.

Mno, síce v úvodnom poste ďakuješ, ale pokiaľ ti niekto napíše riešenie na niektorý z problémov, ktoré si tu uviedol v minulosti, tak sa už obvykle s odpoveďou neunúvaš. Ja osobne som sa rozhodol takýmto žiadateľom nepomáhať, i keby som odpoveď na ich dotaz poznal. Elementárnou slušnosťou každého by malo byť, aby zareagoval a aspoň týmto málom ocenil snahu niekoho iného pomôcť..

Ešte by bolo dobré uvedomiť si, že zošit môže mať listy (jeden či viac), v jednotlivých súboroch pomenovaných rovnako či rozdielne, list s rovnakým názvom môže mať v jednotlivých súboroch rôznu pozíciu voči ostatným listom atd. Iste, makrom sa to všetko dá poriešiť, ale pokiaľ o to naozaj stojíš, aby ti niekto pomohol, tak sa asi budeš musieť trochu rozpísať, toľko moja drobná rada zadarmo. Ja to makro asi písať nebudem, ale pochybujem, že ktokoľvek iný bez krištálovej gule to dá na základe dvojriadkového neúplného zadania :)

lubo, malo a bude, za predpokladu, že OP chce spočítať počet riadkov, a o tom 100% presvedčený nie som. Rovnako asi platí, že napr. slovo bota nemusí nutne znamenať iba slovo bota.
Netvrdím, že tvoj vzorec nefunguje, vágne zadanie si proste pochopil jedným z možných spôsobov. Chyba nie je na tvojej strane, uvidíme, s čím príde OP :)

subtotal, sumif, sumifs, sumproduct?

Karle, mne ale zapis na list nevadi. List schovam, subor bude mat o niekolko kb viac, na riesenie problemu dostatocne. MS query vyuzijem, aby som nemusel pisat spustu riadkov kodu. Krom toho, SQL je na filtrovanie a triedenie rychlejsie, nez VBA. Takze volim jednoduchost, malou danou je par kb na viac a mozno nepatrne pomalsie z dovodu opakovanych zapisov na list, nez cele to poriesit cez arrays a az nasledne zapisat do listu. Zalezi na konkretnej situacii, mnozstve dat a poziadavkoch na rychlost, toto ale asi nema sluzit pre riadenie vesmirnej lode, takze mne staci z pohladu funkcnosti moje riesenie. Ovsem, som rad, ze tu vidim i riesenia od Vas.

MS Query zvláda toto:

SELECT DISTINCT data
FROM `Sheet1$`
ORDER BY data

Vytvori jednostlpcovu QueryTable, vo vystupe mam unikatne hodnoty. Proti QueryTable cez Match urcim poradie dat v stlpci A: v QueryTable mam hodnoty zotriedene, tzn. za sebou idu hodnoty 123, 321 a 999. Bunka v stlpci A (povedzme A3 ma hodnotu 999). Match(A3,DataZqueryTable,0) vrati 3, a to je hodnota, ktoru zapisem do A3..

Data je nazov stlpca A (bunka A1).

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje