• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

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

http://leteckaposta.cz/538599479

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

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

jeste oprava, chtel bych to pomocí visual basicu

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

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

díky :) snad se to naučím 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"

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

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 a zkousel jsem dat elseif ale to mi nesežere snad to je z obrazku zřejmé

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

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

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
Děkuji za pomoc

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse