• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Range("AH2:AH65536").FormulaR1C1 = "=IF(RC[-19]>0,COUNTIF(R2C15:R[-1]C[12],R[-1]C[12]),"""")"

něco takového?

Sub Import()

Dim CESTA As String
Dim SOUBOR As String
Dim LIST As String
Dim ZDROJ As String
Dim NAZEV As String

CESTA = "C:\Users\evidence" & "\"
NAZEV = "KS_data_konzultace.xlsx"
LIST = "List1"

SOUBOR = CESTA & NAZEV

If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub

ZDROJ = "'" & CESTA & "[" & NAZEV & "]" & LIST & "'!"

With Sheets("mezikrok").Range("C2").Resize(10, 1)
.Formula = "=IFERROR(VLOOKUP(" & "A2" & "," & ZDROJ & "$A$2:$C$10" & "," & "3" & "," & "0" & ")" & "," & """""" & ")"
.Value = .Value
End With

End Sub

Co třeba takhle:

Sub worksheet_change(ByVal target As Range)

Set target = Range("A1")
If target.Value = "ano" Then
Shapes.Range(Array("Button 1")).Visible = msoFalse
End If
If target.Value = "ne" Then
Shapes.Range(Array("Button 1")).Visible = msoTrue
End If

End Sub

No sice nevím jak to funguje, ale funguje to.

Moc děkuji všem kluci.

Nechápu to.

Mě se stahuje pouze část tabulky.

A to ze stránky:

https://www.kurzy.cz/kurzy-men/nejlepsi-kurzy/EUR-euro/

Problém není s přenášením dat do druhé tabulky, to se dělá druhým tlačítkem "Kopieren". Problém je v aktualizaci PQ.

Asi se na to vykašleme, já tomu PQ vůbec nerozumím.

Přesto děkuji za pomoc.

No ale teď to aktualizuje ze stránky:

https://www.kurzy.cz/kurzy-men/nejlepsi-kurzy/EUR-euro/

ale já potřebuji z:

https://www.kurzy.cz/~nr/kurzy-men/nejlepsi-kurzy/EUR-euro/D-11.2.2022-Ordb--Ord--Z-3-s-/

A co je kód dotazu?

Přesně pro tohle PQ nepoužívám.

Sub Aktualisieren()

Dim wb As Workbook
Dim dotaz As String

Set wb = ThisWorkbook

DATUM = InputBox("Zadejte datum:", , Date)

dotaz = wb.Queries("Table 0").Formula

ActiveWorkbook.RefreshAll

End Sub

Myslel jsem, že by se to zadávalo přes InputBox, ale nevím jak.

Mám takový dotaz, jak nemám rád PQ, tak jsem si udělal takovou tabulku na kurz eura.

Problém je, že zdroj má proměnný odkaz. Tedy odkaz obsahuje datum. Nevíte, jak např. pomocí makra tento problém vyřešit?

Děkuji za pomoc.

=MOD(D2-A2;1)

Je to taková prasárna, ale účel to splní. Pokud by jsi nechtěl PowerQuery.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje