Děkuji
Já ještě budu testovat to moje původní s tím, že buď to bude na Error nebo na konkrétní text nebo na konkrétní hodnotu:
If IsError(tbl.DataBodyRange.Cells(i, 11).Value) Then tbl.DataBodyRange.Rows(i).Delete
If tbl.DataBodyRange.Cells(i, 11).Value = "něco" Then tbl.DataBodyRange.Rows(i).Delete
If tbl.DataBodyRange.Cells(i, 11).Value = 900 Then tbl.DataBodyRange.Rows(i).Delete
Vyřešeno:
Sub DeleteRows()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("faktury")
Dim tbl As ListObject
Set tbl = ws.ListObjects("DataFaktury")
Dim lastRow As Long
lastRow = tbl.Range.Rows.Count
Dim i As Long
For i = lastRow To 1 Step -1
If IsError(tbl.DataBodyRange.Cells(i, 11).Value) Then
tbl.DataBodyRange.Rows(i).Delete
End If
Next i
MsgBox ("ŘÁDKY VYMAZÁNY")
End Sub
Dobrý den,
chci se zeptat, zda byste mi pomohli s makrem, které by vymazalo na listu, který je ve formátu tabulky příslušný řádek, když je v konkrétním sloupci nějaký hodnota?
Na listu "faktury" mám tabulku "DataFaktury".
A potřeboval bych, aby makro konkrétně ve sloupci číslo 11 prohledávalo jednotlivé buňky a pokud by byla v buňce hodnota "#NENÍ_K_DISPOZICI", tak by se řádek s touto hodnotou vymazal.
A takto by to zkontrolovalo a případně vymazalo všechny buňky (řádky) v tom sloupci číslo 11.
Děkuji.
Radek
Dobrý den všem,
chci se zeptat, zda máte někdo zkušenosti a jaké s fungováním excelu na MacBook Air nebo MacBook Pro?
Jde mi o to, že možná budu nucen používat tyt počítače a nikdy jsem s nimi nepracoval.
Excel jsem používal vždy na PC a NB se systémem Windows.
V excelu používám kromě jiného Power Query, Power Pivot a pak standardní funkce a kontingenční tabulky.
Děkuji.
Radek
@elninoslov
Mám dotaz a prosbu.
Dalo by se také makro napsat i pro kontingenční tabulku?
Konkrétně mám na mysli to, že každá KT se nějak jmenuje a já bych si v makru upravil její název a pak bych nadefinoval řádky, sloupce a hodnoty nebo jejich indexy, které bych chtěl vyexportovat do *.xlsx souboru.
Děkuji.
Radek
Neskutečné...
Díky moc
Radek
Díky moc, to je ono.
Já si ještě zkusím v čase to makro zeditovat tak, aby se nemusely vypisovat názvy těch sloupců "manuálně", ale aby se automaticky vzal název toho příslušného sloupce z tabulky "DataTab".
Ještě jednou díky.
Radek
Super, To je ono.
Jen nešo by tam dát dopředu ještě datum?
Neco takového...
Dim MyDate, MyStr
MyStr = Format(MyDate, "yyyy-mm-dd")
MyDate = Date
.
.
With .Worksheets(1)
.Name = "Export" & MyStr
.Cells(1, 1).Resize(, Sloupcu).Value2 = Nazvy
Nějak to nemohu doplnit.
Díky.
Radek
Dobrý den,
mohli byste mi prosím pomoct s makrem, kde potřebuji z listu, který je ve formátu tabulky vyexportovat do *.xls nebo xlsx pouze určité sloupce a v určitém pořadí?
Název listu, ze kterého bych exportoval (nebo název tabulky) bych zadal (editoval) v makru.
Konkrétně nyní mám data na listu "data", tabulka "DataTab".
Exportovaný soubor by se uložil do adresáře "export", který by byl vytvořený ve stejném adresáři, ve kterém je tento soubor s daty.
Na listu "export" jsem uvedl pořadí zdrojových sloupců a ve druhém řádku jejich pořadí a názvy v exportovaném souboru.
Děkuji.
Radek
Dobrý den,
prosím, potřeboval bych poradit, viz přiložený soubor, s vložením pole do Power Pivot, která má zdroje namapované přes PQ.
Děkuji.
Radek
Děkuji za rady a za makra
Radek
Děkuji oběma.
Vaše odpovědi mi odpověděly na vše, co jsem potřeboval.
Ještě jednou díky.
Radek
Perfektní, už to funguje.
Chci se zeptat.
Ten dotaz doplní data ve sloupcích A : AR.
V dalších sloupcích mám vzorce, ty nepřepíše, to ano.
Ale jak je to z rozsahem řádků?
Ten Dotaz vždy doplní data od prvního řádku dál?
Pokud ano, jak je ošetřeno, že při další aktualizaci dotazu nebude třeba méně řádků?
A dalo by se spouštění toho dotazu přiřadit nějakému tlačítku na jiném listu tak, jak to mám u VBA?
Děkuji.
Radek
Asi dělám něco špatně.
Viz příloha.
Děkuji
Já občas s Power Query narazím na to, že kolegové nemají dostatečnou verzi Office a pak jim například nejde spustit aktualizace souboru, kde je PQ, protože nemají Power pivot.
A nevím, zda se to dá nějak obejít.
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.