Příspěvky uživatele
< návrat zpět
pavol14pavol napsal/a:
Zdravim potreboval by pomoct s kodom ktory robil LUGR len sa tu uz dlhsiu dobu neuazal jedna sa o jeho posledny prispevok s 18.10.2020 13:16
Povodne to kopiruje udaje vzdy s posledneho ciselneho harku 1-20.
Ja by potreboval keby mie tieto udaje vedelo tahat tak ze najde v PC predposledny mesiac a skopiruje udaje s harka Sumár D5:D75 a udaje vlozi do zosita s aktualnym mesiacom na harok test E13-E73
Lebo neviem nato prist ako to prehodit.Dakujem za pomomocPříloha: 52271_48451_48440_desktop.zip (46kB, staženo 1x)
Teď tomu nerozumím, kde má být to makro co má hledat předposlední měsíc?
Teď si tady nad tím lámu hlavu.
Děkuji funguje super. 
r13 napsal/a:
Nápoveda:
If Len(Dir(Soubor & ".xls")) = 0 And Len(Dir(Soubor & ".xlsx")) = 0 And Len(Dir(Soubor & ".xlsm")) = 0 Then
MsgBox "Soubor " & Soubor & " neexistuje!", vbCritical
Exit Sub
Else: MsgBox "Soubor " & Soubor & " existuje!"
End If
Děkuju, ale tohle řeší ale pouze kontrolu existence souboru nikoliv samotný import (vzorec)
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.
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-/
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články