• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Jo, to je přesné ! Děkuji ještě jednou.

Zdravím, mám takový malý problém. V listu mám ukotvené příčky (cca 14 řádků). Data pod ukotvenou příčkou se mění pomocí rozšířeného filtru. Makro se spouští dvojklikem z nějakého řádku. Pak se přesunu o např. 100 řádků níže. Dalším spuštěním rozšířeného filtru mám zajištěno, že se aktivuje původní řádek, ze kterého jsem vyšel. Ale musím se k němu "vyrolovat" pomocí myši, protože ho nevidím. Nedá se to nějak ošetřit ?
Snad jsem to nepodal moc složitě
Děkuji mockrát.

co takhle:
=KDYŽ(HODINA(C37)-HODINA(B37)>=18;K5*$I$5;KDYŽ(HODINA(C37)-HODINA(B37)>=12;K4*$I$5;KDYŽ(HODINA(C37)-HODINA(B37)>=5;K3*$I$5;0)))
ale funguje to jen na hodiny :-) Není to moc ideální, protože přes půlnoc bude problém.

Co takhle:
do A4 vlož =CONCATENATE(B4;"_";C4)
do K4 vlož ==SUMIF($A$4:$A$8;CONCATENATE(I4;"_";J4);$D$4:$D$8)

Je to ono?

Co takhle 2 jiné způsoby:
buď vložíš cestu k souboru třeba do buňky B1 a příponu do C1, nebo cestu a příponu definuješ do konstant přímo v makru.
Sub hyperodkaz()
Dim odkaz As String
cesta = Range("B1").Value '1 způsob
pripona = Range("C1").Value '1 způsob

cesta2 = "F:\Data\Složka1\Složka2\" '2 způsob
pripona2 = ".xls" '2 způsob

Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
cesta & odkaz & pripona, TextToDisplay:= _
odkaz
End Sub

Snad to bude vyhovovat. Nejsem žádný specialista přes VBA. Sám sem chodím pro rady ...

Co takhle:
Private Sub ComboBox1_Change()
ComboBox2.Clear
Dim x
x = ComboBox1.Value
If x = 1 Then
ComboBox2.AddItem "111111"
End If
If x = 2 Then
ComboBox2.AddItem "222222"
ComboBox2.AddItem "333333"
End If
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"

End Sub

Co takhle:
Sub hyperodkaz()
Dim odkaz As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
odkaz, TextToDisplay:= _
odkaz
End Sub

DoEvents

Mám sešit, kde na jednom listě jsou 3 SQL dotazy pod sebou. Ty potřebuji aktualizovat, následně přes makro vložím vzorce, ta rozkopíruji a nakonec aktualizuji kontingenční tabulky(KT). Problém mám v tom, že se spustí akce Aktualizovat vše, čímž se spustí akt.SQL. Ta trvá cca 3 minuty. Ale mezitím mi dojede vložení vzorců + rozkopírování + akt. KT. Tak se stane, že KT nejsou z aktuálních dat. Je nějaký příkaz: "Počkej na dokončení aktualizace SQL" ?
Děkuji

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje