Příspěvky uživatele
< návrat zpět
Poraďte prosím, je to makrem proveditelné? :-(
Další problémek. Potřeboval bych makrem udělat kopii formuláře o třech sloupcích, ale aby bylo makrem vybrány pouze řádky z formuláře, kde je obsazená buňka ve sloupci H a ostatní ignorovat
Potřebuji mít čistý formulář bez mezer (prázdných řádků) pro další použití. Viz příloha. Prosím o pomoc s tímto...
Přesné, děkuji moc:-)
Nahrání makra není problém, jen nevím zda by nebylo lepší řešení než:
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13").Select
TO Opičák:
Skrývání funguje výborně, ale já bych potřeboval aby se prázdné řádky vymazaly úplně...Zkoušel jsem nahradit Hidden na Delete, ale tudy cesta nevede....hází to chybu. 
Ještě jeden vedlejší dotaz. Pokud chci makrem přidat více řádků, např. 10. Jak upravit níže uvedený kód aby těch řádků přidal 10?
Rows("6:6").Select
Selection.Insert Shift:=x1Down, CopyOrigin:=xlFormatFromLeftOrAbove
Díky za pomoc
Moc děkuji za rady a za nakopnutí správným směrem...
Jen to nějak nedávám...Zatím se v tom špatně orientuju tak celý kód zatím asi nedám.
Ještě si zkusím hrát.... 
Tak jsem si s tím pohrál a bohužel bez uspěchu....metoda pokus omyl selhala:-)
Můžu tě poprosit o celé znění toho kódu?
Teď jsem to zkoušel, funguje výborně...Děkuji
No mě zajímalo zda to jde a zda nad tím nějak laborovat, protože co se týká kódů tak spíše hledám co bych mohl použít tady z fóra a pak jen přizpůsobit pro své potřeby...učím se na tom, ale sám bych to ještě nedal.
Ještě tu mám jeden problémek se kterým bych chtěl pomoci našel jsem níže uvedený kód a potřeboval bych jej upravit. Zatím funguje tak, že v daném rozmezí skryje prázdné řádky. Já bych potřeboval, aby tento kód našel od př 10 řádku ve sloupci B poslední obsazenou buňku (nelze předem definovat kolik bude obsazených řádků) a pokud mezi bude prázdná buňka tak aby se vymazal řádek....je to to rovněž reálné?
Private Sub CommandButton2_Click()
Dim rRowsToHide As Range
Dim i As Integer
For i = 373 To 24 Step -1
If IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i - 1, 3)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 3)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 3))
End If
Else
Exit For
End If
Next
If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If
Set rRowsToHide = Nothing
End Sub
Ahoj, lze přidat do listu makro, které při dvojkliku na řádek do sloupce B odstraní celý řádek? Je to proveditelné když je kurzor(označená buňka) v řádku, který se odstraňuje?
Díky za druhou variantu...jen to musím promyslet co pro mě bude praktičtější. Přiložené obrázky v souboru budou mít ještě grafické nadpisy wordart a obrázků bude celkem cca 20.
Musel bych tedy nějak spojit pozadí s Wordart (OptionButton pro výběr pozadí a OptionButton pro nadpis), ale pravděpodobně bude pro mě jednoduší si vše připravit do obrázku a ty po sléze měnit. Každopádně díky
No to je super, díky moc...super dle představ.
Tlačítko proveď změny si tam ponechám pač pod něj ještě přibudou nějaké úpravy formuláře.
Ještě jednou díky...
Ahoj, potřeboval bych pomoci:
Mám tabulku a potřebuji měnit nadpis tabulky pomocí vložení obrázku do buňky. Mám na výběr ze 3 obrázků které jsou uloženy v listu Galerie a představa je taková, že pomocí userform a OptionButton vyberu ve formu obrázek a ten se pak uloží do buňky nad tabulkou do listu Tabulka. Vytvoření kódu nedám a nic použitelného jsem zde na fóru nenašel tak prosím o pomoc někoho zkušeného. Snad to bude reálné udělat. Díky
Tak už nic, přišel jsem na to :-)
Zdravím, nevíte zda ListBox má nějaká omezení pro načtení záznamů. Posuvník se mě zastaví na 159 řádku a dál nic. V nastavení jsem nic nenašel. Mám office 2007.
Díky
Díky, deaktivace ostatních comb funguje super.
Jen se mě teď přidružil jeden problémek. Lze vkládat ze všech pěti Comb do jedné buňky? Pokud nastavím vkládání do stejné buňky tak se z aktivního comba do buňky v listu nic nevloží, protože se patrně vloží nulové hodnoty v ostatních comboboxů.
Viz kód:
Private Sub CommandButton1_Click()
Cells(4, 10).Value = ComboBox1.Value
Cells(4, 10).Value = ComboBox2.Value
Cells(4, 10).Value = ComboBox3.Value
Cells(4, 10).Value = ComboBox4.Value
Cells(4, 10).Value = ComboBox5.Value
End Sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články