Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3
Heslo do bunky (21.2.2019 19:56)

Ahoj,
potřeboval bych poradit s jedním problémem. Potřebuji, když se do určité bunky napiše definované heslo tak se v bunce zobrazí jméno uživatele.
Např. do bunky se napíše heslo 1234, a v té samé bunce se objeví Novák, napiše se heslo 4321, v bunce se objeví Dvořák atd... .
Když se zadá heslo, které není definované, tak se v bunce neobjeví nic.
Díky za pomoc.
Marv

VBA makro - csv soubor - data v uvozovkách (30.12.2018 19:32)

Stalekr a elninoslov, díky za vaše rady, zkusil jsem to co poslal Stalker a funguje přesně tak jak má. Ještě zkusm i změnu od elninoslov. A soubor potřebuji ve formátu csv.
Díky.
M

VBA makro - csv soubor - data v uvozovkách (29.12.2018 21:21)

Dobrý den,
jsem začátečník v programování, potřebuji vytvořit makro v excelu, které bude generovat seriové čísla (zadá se sériové číslo a počet čísel které se má generovat). Sériové číslo potřebuji vygenerovat ve formátu:
00000,0xxxx,500 ,kde xxxx je vygenerované číslo.
Tak nějak pomocí internetu jsem zhotovil makro, které po zadaní počátečního čísla a celkového počtu, vytvoří požadovaný počet čísel na listu 2, ty odtud překopíruje do souboru data.csv a csv soubor se uloží. toto funguje. Problém je, že pokud csv otevřu přes notepad, tak jsou vygenerovaná data v uvozovkách, ale já potřebuju tyto data kvůli dalšímu zpracování bez uvozovek.
Pokud csv otevřu přes Excel tak uvozovky zde nejsou.
Na internetu jsem našel nějaké informace k této problematice, ale moc jsem z toho nebyl chytrý.
Prosím o radu, jak vytvořit csv soubor, kde data budou bez uvozovek. Děkuji.
Makro je:

Sub tlacitko()
Start = Range("B3").Value
pocet = Range("B4").Value
Dim i As Integer
i = 1
Sheets("List2").Select
Columns("A:D").ClearContents
For Start = Start To pocet + Start - 1
Cells(i, 1) = "00000," & "0" & Start & ",500"
i = i + 1
Next Start

Columns("A:A").Select
Selection.Copy

Workbooks.Open Filename:="D:\Data.csv", Local:=True
Windows("Data.csv").Activate
Sheets("Data").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Data.csv", FileFormat:=xlCSV, Local:=Tru
ActiveWorkbook.Close
End Sub

Děkuji.
Martin


Strana:  « předchozí  1 2 3

Uživatelské menu

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

Menu

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