Příspěvky uživatele

mám sloupec B-J v sudých řádcích sloučen. Potřebuji zrušit sloučení

Sub sloucene_bunky()
Range("B:J").UnMerge
End Sub

Upozorňuji, že jsem pouze upravil vaše makro. Bez testování. Vyzkoušejte, ale opatrně.

For Each w In Application.Workbooks
toto znamená, že se provede pro všechny otevřené sešity
není tam žádná kontrola zámků atp.
dejte vědět, zda to tak stačí

Sub Preved_nahodnoty_a_smaz_nuly()
Dim bScreen As Boolean
bScreen = Application.ScreenUpdating
Application.ScreenUpdating = False

Dim w As Workbook
Dim sh As Worksheet
For Each w In Application.Workbooks
For Each sh In w.Worksheets
With sh.Range("K1:M200")
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole
End With 'sh.Range("K1:M200")
Next sh
Next w

Set sh = Nothing
Set w = Nothing

Application.ScreenUpdating = bScreen
End Sub

CTRL+H

Najít 0
Nahradit 'nic'

Pouze celé buňky zaškrtnout

Nahradit vše

Najděte rozdíl
C:\Users\User\Documents\Excel s mezerou.xlsm

"C:\Users\User\Documents\Excel s mezerou.xlsm"

"C:\Users\User\Documents\Excel s mezerou.xlsm"

A co tak prostě jenom

C:\Users\User\Documents\NejakyExcel.xlsm

;)

@Jeza.m
;)

Mno já nevím jestli jsem to pochopil

Nastínil jsem cestu - v J4 rozevírací seznam přes ověření dat - a zbytek vzorcema - ovšem nevím, proč tam máte tolik řádků na položky, když v databázi máte místo pouze na 11 - to mě trochu mate ;)

if not ComboBox1.Value = vbnullstring then Cells(4, 10).Value = ComboBox1.Value
'atp.

Private Sub ComboBox1_Change()
Call subEnableDisableCheckBoxes(ComboBox1)
End Sub

Private Sub ComboBox2_Change()
Call subEnableDisableCheckBoxes(ComboBox2)
End Sub

'atp..

Private Sub subEnableDisableCheckBoxes(ByVal chb As ComboBox)
If Not chb Is ComboBox1 Then ComboBox1.Enabled = (chb.Value = vbNullString)
If Not chb Is ComboBox2 Then ComboBox2.Enabled = (chb.Value = vbNullString)
If Not chb Is ComboBox3 Then ComboBox3.Enabled = (chb.Value = vbNullString)
If Not chb Is ComboBox4 Then ComboBox4.Enabled = (chb.Value = vbNullString)
If Not chb Is ComboBox5 Then ComboBox5.Enabled = (chb.Value = vbNullString)
Set chb = Nothing
End Sub

Tím ListIndexem jsem asi spíš zmátl (nefunguje, protože nesplňujete aby první hodnota v CB byla prázdná)

Nejsem si jistý, jestli jsem to pochopil správně, ale tak jak jsem to pochopil tak bez maker

2 varianty PoSobe je bez používání filtru, Filtr je s použitím filtru

1. Jak makro aplikovat na už existující sešit (v seznamu maker jsem ho nenašel)?
Pokud je procedura označená jako private, modul jako private nebo má procedura argument - v seznamu maker se neobjeví

2. Jak makro upravit na jiný rozsah sloupců? (Konkrétně v mém případě A-N, ale do budoucna jich může být ještě víc).
Vytvořte pojmenovanou oblast, kterou využijete v makru. Pokud pak budete chtít rozsah sloupců upravit, prostě změníte pojmenovanou oblast

3. Je možné funkci makra rozšířit na všechny listy v sešitu?
Nevidím to makro, ale umístěním do modulu sešitu, nikoliv listu
místo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
použít
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

4. Jde makro vypnout a zapínat jen v případě potřeby? Prože často potřebuji víc kolonek jen označit, v tu chvíli je automatické sloučení problém.
řešil bych např. kombinací kláves - je-li stisknutý Alt - proveď, jinak ne (chci pouze označit). Proceduru na kontrolu stavu kláves najdete na internetu

To pole mě tam těžce mate, ale pokud striktně dodržím zadání tak proste

V UF mám dvě comba a potřebuji, aby se uložila data z comba do listu řádku 3 a 9 sloupce a řádku 4 a 10 sloupce

Private Sub CommandButton1_Click()
Cells(3,9).value=ComboBox1.Value
Cells(4,10).value=ComboBox2.Value
End Sub

A ještě jsem se chtěl zeptat. Když mám dvě comba, je možné nějak ošetřit, aby šlo používat pouze jedno z nich.

Private Sub ComboBox1_Change()
ComboBox2.Enabled=(ComboBox1.Value=vbnullstring)
End Sub
a totéž pro druhý,ale naopak

Nebo (takto bych to použil já) - podmínkou je, aby první hodnota v CB byla prázdná
Private Sub ComboBox1_Change()
ComboBox2.Enabled=(ComboBox1.ListIndex=0)
End Sub

Pozn.: psáno bez excelu, takže doufám že je to správně ;)

Tady by mělo posloužit prosté
=SUMA(C:C)

nebo
=SUMA(POSUN(C1;0;0;POČET2(C:C);1))

Taky moc nerozumím, ale

Pokud jste schopná vyfiltrovat data pomocí automatického filtru tak je vyfiltrujte, označte si oblast kopírování a vyberte pouze viditelné buňky (Alt+; nebo CTRL+G->Jinak...->Pouze viditelné buňky)
Pak už CTRL+C a někam vložit

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje