Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7

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

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ě 2
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 ... 4

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" ? 2
Děkuji


Strana:  « předchozí  1 2 3 4 5 6 7

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09