Ahoj všem,
prosím o pomoc....
V příloze zasílám soubor, kde bych se potřeboval zbavit všech nul, ve sloupcích J,P,Q,U
Vzorce které tam mám, nefungují.
Předem díky moc
Díky moc,funguje.....
Moc se omlouvám, mé 1. zadání nebylo úplně přesné.
Znova a lépe. Mám sešit, ve kterém mám určitá data.
Ve sloupci D:D mám prázdné buňky, kam musím ručně doplňovat čísla, u těch čísel potřebuji automaticky posunout desetinnou čárku např. zapíši 100,8 a po odentrování se změní na 1,008
Moc děkuji.
Petr
Ahoj všem,
prosím o pomoc.....
lze nějak zautomatizovat posun desetinné čárky?
např. napíši do jakékoliv buňky třeba číslo 100,1 a potřebuji aby se mi automaticky posunula desetinná čárka o dvě do leva tj. 1,001
Předem moc děkuji
všude mám násobení.....
to dělení byl překlep.
vzoreček funguje a ověření dat mám též.
Děkuji za upozornění.
Funguje.
Moc děkuji.
Omlouvám se......
vzoreček potřebuji zapsat do buňky C9;
KDYŽ B9=B, tak násobit K1*D9*0,5; pokud B9=O, tak násobit K1*D9*1, pokud B9=K, tak násobit K1*D9/0,75
Dobrý den/ahoj.
Prosím o pomoc.
Tento vzorec mi funguje pouze na podmínku "B" ale na ostatní již ne.....
Kde mám chybu?
Předem díky moc......
=KDYŽ(B9="B";1;0)*SUMA(D9*$K$1*0,5;KDYŽ(B9="O";1;0)*SUMA(D9*$K$1;KDYŽ(B9="K";1;0)*(D9*$K$1*0,75)))
Díky moc za rady.
Ještě mám jednu prosbu,
když budu mít v buňce B3 napsáno 24000Kč tak potřebuji aby se mi napsalo do buněk B9:B12 a B15:B18 vzorec "do buňky "B9"=C9*101 do buňky "B10"=C10*101 a tak dál.
Děkuji moc za radu.
moc moc díky
Ahoj všem, prosím o radu. Jsem začátečník a potřebuji poradit, jestli je možné zadat funkci KDYŽ se do buňky H1 napíše písmeno "B" tak aby se do buňky B3 napsala částka 1500Kč, pokud by se do buňky H1 napsalo písmeno "O" tak aby se do buňky B3 napsala hodnota 24000Kč.
Děkuji moc
Ahoj všem,
prosím, mohl by mi někdo poradit....
mám makro pro tisk s náhledem před tiskem, kde si vyberu tiskárnu, zvolím že chci tisknout jednostranně a vždy mi to vytiskne oboustranně, což je špatně.
Předem moc děkuji
Sub Tisk_nářadí()
Dim A(), Pocet As Integer, Listy() As String, i As Byte
Pocet = -1
With ThisWorkbook
ReDim A(1 To 40, 1 To 1)
A = .Worksheets("Nástup prac.").Cells(3, 1).Resize(40).Value2
For i = 83 To 122
If Not IsEmpty(A(i - 82, 1)) And IsNumeric(A(i - 82, 1)) Then
Pocet = Pocet + 1
ReDim Preserve Listy(Pocet)
Listy(Pocet) = .Worksheets(i).Name
End If
Next i
If Pocet > -1 Then
'.Worksheets(Listy).Select
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
.Worksheets(Listy).PrintPreview
End If
End With
End Sub
Ahoj všem,
prosím o pomoc...
potřeboval bych makro na hromadný tisk s podmínkou:
v listu 1 mám data, jsou v buňkách A3:L42
tyto vyplněné buňky se automaticky kopírují do Listů 3 až 44
data z řádku A3:L3 se kopírují do formuláře v Listu 3
data z řádku A4:L4 se kopírují do formuláře v listu 4 atd.
a takhle se to opakuje až po řádek A42:L42 = List 44
potřebuji abych vytiskl hromadně List 3 až List 44 ale pod podmínkou že je ve sloupci A3:A42 nějaké číslo...
data nejsou vždy ve všech 42 řádcích - proto ta podmínka abych zbytečně neplýtval papírem a netiskl všech 42 formulářů, když jich mám předvyplněných méně.
Předem moc díky
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.