Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4
rozdeleni do skupin (17.5.2015 20:17)

děkuji, šlo by aby se ty sumy řadily do sloupce? 1

rozdeleni do skupin (17.5.2015 18:19)

příloha, omlouvam se pres stranky mi to nejde nahrat

hans66 napsal/a:

http://leteckaposta.cz/538599479

rozdeleni do skupin (17.5.2015 18:16)

http://leteckaposta.cz/538599479

rozdeleni do skupin (17.5.2015 18:14)

ahoj, chtěl bych vás požádat o radu. V příloze mám soubor,kde je 1000 hodnot, potřebuji je rozdělit do 50 skupin po 20 hodech(dle pořadí)a každou skupinu sečíst a vypsat.nevíte jak na to? viz příloha.
děkuji za rady 1

zapis do bunky (25.4.2015 7:50)

If Worksheets(List1).Len(Range("A2")) < 13 And Worksheets(List1).Len(Range("A2")) > 8 then

Sheets("List1").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ale moc mi to nefunguje 4

zapis do bunky (24.4.2015 13:48)

jeste oprava, chtel bych to pomocí visual basicu

zapis do bunky (24.4.2015 11:36)

Ahoj, chtel bych požádat o radu.

potrebuji: ze kdyz zadam do bunky A1 devitímístné číslo tak aby se mi hodnota bunky zapsala do dalsiho listu do bunky C2
ale když bunka A1 nebude vyplněna, nic se zapisovat nebude

děkuji za radu 1

Makro odeslani dat az po vyplneni buňek (23.4.2015 9:24)

tak už vím, přepíše mi to záhlaví 1

Makro odeslani dat az po vyplneni buňek (23.4.2015 6:41)

díky :) snad se to naučím 1 jeste se zeptam
proc tam je radek=radek+2? a ne radek+1?
'list report
With Worksheets("Report")
Radek = Radek + 2
Select Case wsFrm.Range("B11").Value
Case "Převzal"
.Cells(Radek, 11) = wsFrm.Range("B6").Value
.Cells(Radek, 10) = wsFrm.Range("B8").Value
.Cells(Radek, 7) = "sklad"

Makro odeslani dat az po vyplneni buňek (22.4.2015 14:28)

Děkuji, do konce týdne se na to podívam a kdyžtak něco doplním 1

jeste jak mám udelat aby se mi pri zmene bunky prevzal/vratil zapsala hodnota jmeno a kancelar do urcite bunky?
(v bunce B11 na listu Formular vyberu převzal nebo předal...

ale takhle to moc nefunguje 1 a zkousel jsem dat elseif ale to mi nesežere 4 snad to je z obrazku zřejmé 4

With Worksheets("Report")
If wsFrm.Range("B11").Value = "Převzal" Then .Cells(Radek, 11) = wsFrm.Range("B6").Value 'zamestnanec prevzal zboží
'report

.Cells(Radek, 2) = wsFrm.Range("B16").Value 'prefix
.Cells(Radek, 4) = wsFrm.Range("B14").Value 'nazev zarizeni
.Cells(Radek, 5) = wsFrm.Range("B15").Value 'imei
.Cells(Radek, 10) = wsFrm.Range("B8").Value 'kancelar zamestnance
.Cells(Radek, 7) = "618/sklad" 'puvodni umisteni, vydani ze skladu


If wsFrm.Range("B11").Value = "Vrátil" Then .Cells(Radek, 8) = wsFrm.Range("B6").Value 'zamestnanec vratil zbozi
'report

.Cells(Radek, 2) = wsFrm.Range("B16").Value 'prefix
.Cells(Radek, 4) = wsFrm.Range("B14").Value 'nazev zarizeni
.Cells(Radek, 5) = wsFrm.Range("B15").Value 'imei

.Cells(Radek, 7) = wsFrm.Range("B8").Value 'kancelar zamestnance
.Cells(Radek, 10) = "618/sklad" 'puvodni umisteni, vydani ze skladu




End With

Makro odeslani dat az po vyplneni buňek (21.4.2015 18:55)

Děkuji za pomoc, jeste mam jeden zadrhel
checkbox1 a checkbox2 mi funguji spravne ale checkbox3 ne.
potrebuji kdyz je chceckboc3= true tak aby mi zapsal hodnotu z bunky D32, tj kapacitu paměti karty a kdyz je false tak tak aby mi to napsalo ze karta neni prilozena tj bunka D59 asi už magořím ale nechapu to mam to stejne ale chova se to jinak 5

Makro odeslani dat az po vyplneni buňek (21.4.2015 17:28)

Ahoj,
stažím se spáchat formulář, kde uživatel vyplní data na listu Formulár a po stisku tlačítka report se data zapíší na další list report.
Já bych potřeboval aby se mi data zapsala až po vyplnění určitých buňěk: B6,B8...popřípadě když by nebyla buňka vyplněná aby to uživatele upozornilo aby tato pole vyplnil.
VB moc neovládám 7
Děkuji za pomoc 1

Sub report()

'vypln bunku jmeno
If Worksheets("Formular").Range("B6") = "" Then MsgBox ("Vyplň položku jméno!")

'vypln bunku kancelar
If Worksheets("Formular").Range("B8") = "" Then MsgBox ("Vyplň položku kancelář!")

'If Worksheets("Formular").Range("B16") = "" Then MsgBox ("Vyplň položku prefix!")
If Worksheets("Formular").Range("C16") = "" Then MsgBox ("Vyplň položku inventární číslo!")

Dim Radek As Long
Radek = Worksheets("SD karty").Cells(Rows.Count, 1).End(xlUp).Row + 1 'najde poslední plný řádek a přičte 1
'Debug.Print Radek

'list report
Worksheets("report").Cells(Radek, 1) = Worksheets("Formular").Range("B40").Value 'datum
Worksheets("report").Cells(Radek, 2) = Worksheets("Formular").Range("B16").Value 'prefix
Worksheets("report").Cells(Radek, 3) = Worksheets("Formular").Range("C16").Value 'inv cislo
Worksheets("report").Cells(Radek, 4) = Worksheets("Formular").Range("B14").Value 'nazev zarizeni
Worksheets("report").Cells(Radek, 5) = Worksheets("Formular").Range("B15").Value 'imei
End Sub


Strana:  « předchozí  1 2 3 4

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