Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  7 8 9 10 11 12 13 14 15   další » ... 45
import z harku do harku B (19.3.2022 15:01)

Oba problémy jsem ti opravil a vzorec jsem ti předělal tak, aby jsi KT nepotřeboval, takže ji můžeš případně smazat. 1

import z harku do harku B (14.3.2022 17:31)

Cestu jsem upravil, zdroj také. Pokud použijete SUMIF, tak nemusíš mít text zcela stejný. Musí být alespoň část stejná. Např. Birell lahvový, Birell plechovkový - do vzorce zadáš Birell a excel ti sečte všechny Birelly. Pokud budeš mít Malina ve skle, Malina v sudu - do vzorce zadáš Malinovka, tak ti nic nenajde.

import z harku do harku B (14.3.2022 6:49)

Doma na to kouknu.

import z harku do harku B (13.3.2022 19:14)

Třeba něco použiješ ale problém je s identifikací položek, protože v každém seznam máš položky jinak nazvané. Buď použij KT nebo vzorec SUMIF, každopádně si v těch položkách budeš muset udělat pořádek.

kopiruj vzdy s posledneho zosita (13.3.2022 14:29)

Není za co.

Trochu jsem vylepšil i původní makro, pokud ho ještě využiješ. Nebude ti tolik problikávat monitor. 1

kopiruj vzdy s posledneho zosita (13.3.2022 14:05)

A změnil sis Měsíc na listu Zostatok?

kopiruj vzdy s posledneho zosita (13.3.2022 14:01)

pavol14pavol napsal/a:

Ano to som si vsimol tak som to vsade doplnil test + sumar ale aj tak to nejde


A co znamená nejde? Píše ti to nějakou chybu?

kopiruj vzdy s posledneho zosita (13.3.2022 13:46)

To je tím, že v oktobre nemáš Sumár 1

kopiruj vzdy s posledneho zosita (13.3.2022 12:59)

Takhle?

kopiruj vzdy s posledneho zosita (13.3.2022 12:31)

A ty chceš kopírovat ze sešitu Október listu Sumár do sešitě November na list test jo?

kopiruj vzdy s posledneho zosita (13.3.2022 11:48)

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? 4

Kopírování s libovolnou příponou (2.3.2022 8:17)

Teď si tady nad tím lámu hlavu.

Děkuji funguje super. 1

Kopírování s libovolnou příponou (1.3.2022 20:57)

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)

Kopírování s libovolnou příponou (1.3.2022 18:17)

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

Nastavení velikosti písma přepínači (19.2.2022 9:01)



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


Strana:  1 ... « předchozí  7 8 9 10 11 12 13 14 15   další » ... 45

Uživatelské menu

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

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.

On-line nástroje