Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 42

Ahoj,

mám dotaz, pro kopírování z ext. souboru používám tento kód od "elninoslov". Problém je když se změní přípona. Jak mám zakomponovat, aby vyzkoušel všechny tři přípony?

Děkuji.

Sub Import()

Dim Cesta As String
Dim Nazev As String
Dim Soubor As String
Dim Zdroj As String

Cesta = "C:\Plocha\"
Nazev = "ZDROJ" (*.xls, * .xlsx, * .xlsm)

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

Zdroj = "'" & Cesta & "[" & Nazev & "]" & "List1" & "'!"

With Sheets("List1").Range("B2")
.Formula = "=IF(" & Zdroj & "B2" & "="""",""""," & Zdroj & "B2" & ")"
.Value = .Value
End With

End Sub



Sub F_36()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 36

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Sub

Sub F_38()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 38

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Sub

Sub F_40()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 40

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Sub

Já PQ neumím.

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. 1

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/ 8

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. 6

veny napsal/a:

v excelu jsem použil pojmenovanou buňku "Date" se vzorcem DNES()
v PQ to co dával lubo pouze s úpravou aby dotaz načítal aktuální (dnešní) datum
když se podívám na stránky kurzy.cz a porovnám výstup v dotazu tak jsou načtená stejně jako na stránkách, ale aktualizace vaší tabulky je dělaná ve VBA a data se neaktualizují podle dotazu. VBA neholduji tak koukněte alespoň na tohle jestli by to vyhovovaloPříloha: 52079_kurzy-men.rar (31kB, staženo 1x)


Tak bohužel na MS Office 2016 mi to nefunguje

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.


Strana:  1 ... « předchozí  5 6 7 8 9 10 11 12 13   další » ... 42

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

Google disk - stažení souboru s příponou .xlsm

OB • 22.3. 15:59

Rozdiel office 2016 alebo 2019

r13 • 22.3. 15:49

Rozdiel office 2016 alebo 2019

jano1 • 22.3. 9:52

Barva aktivní buňky

stusna • 22.3. 8:52

Tabulka - zamknout list

Alfan • 21.3. 8:48

Tabulka - zamknout list

r13 • 21.3. 8:44

Tabulka - zamknout list

Alfan • 21.3. 7:28