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.
Děkuji.
Ale to nedám.
I když jsem si to uložil, tak mi to prostě píše, že jsou nějaké parametry špatně.
Myslel jsem, že makrem to spojím do jednoho souboru a pak ten spojený načtu.
Makra umím nějak editovat, nejsem expert.
Ale ty PQ je pro mě složitější.
Budu si to manuálně vkládat ze zdrojů.
Každopádně ještě jednou díky.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.