< návrat zpět

MS Excel

Téma: Excel chyba rss

Zaslal/a Mati 28.3.2021 18:12

Dobrý den, když mám v buňce hodnotu 001 nebo 0548722141 ukazuje to chybu. Dám Ignorovat chybu, ale když do stejné buňky vložím 002 zase se mi to ukáže.
Můžete mi prosím poradit jak to mám odebrat, aby se to nezobrazovalo.

A za 2. Je možné v excelu vybrat aby se mi to při tisku nevytisklo: například buňka N9:P9 Děkuji

Moc děkuji

Příloha: jpg50247_1.jpg (3kB, staženo 36x)
50247_1.jpg
Zaslat odpověď >
Strana:  « předchozí  1 2 3   další »
Lugr(29.3.2021 18:54)#050261
Lugr
Na Office 2016 mi to funguje.

Jedná se Vám o buňky H63 a O9?citovat
Mati(29.3.2021 19:06)#050263
avatar

Lugr napsal/a:

Na Office 2016 mi to funguje.

Jedná se Vám o buňky H63 a O9?


Kód je zde:Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim xIndex As Long

If ActiveSheet.Name = "Faktura" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
xIndex = .Range("O9,P9,D62,D64").Font.ColorIndex
.Range("O9,P9,D62,D64").Font.Color = vbWhite
.PrintOut
.Range("O9,P9,D62,D64").Font.ColorIndex = xIndex
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If

End Sub
Skryje to ID klienta a to číslo
Dále Přijato: a Vrátit:
Bohužel neskryje to částku u přijato a částku u vrátitcitovat
elninoslov(29.3.2021 19:14)#050264
elninoslov
Tak si do oblastí pridajte ešte F62 a F64. Bez makra by sa dalo použiť riešenie, že na druhom liste budete mať rovnakú tabuľku, hodnoty navzorcované z pôvodného listu. Okrem inkriminovaných. A tlačiť budete ten druhý list.citovat
Mati(29.3.2021 19:28)#050265
avatar
To jsem zkoušel, ale hlásí to chybu:
xIndex = .Range("O9,P9,D62,D64,G62,F62,F64").Font.ColorIndexcitovat
Lugr(29.3.2021 19:55)#050266
Lugr
Problém je v těch sloučených buňkách.

Dejte si tam toto:

.Range("O9,P9,D62,D64,G62,F62:H62,F64:H64")citovat
Mati(29.3.2021 20:11)#050267
avatar

Lugr napsal/a:

Problém je v těch sloučených buňkách.

Dejte si tam toto:

.Range("O9,P9,D62,D64,G62,F62:H62,F64:H64")


Ani teď to nejdecitovat
Lugr(29.3.2021 20:33)#050268
Lugr
A chybu už to nehází?citovat
Mati(29.3.2021 21:01)#050269
avatar

Lugr napsal/a:

A chybu už to nehází?

Necitovat
Lugr(29.3.2021 21:18)#050270
Lugr
No jelikož na O_2016 i O_2019 to funguje tak bude asi problém v O_365.
S tím bohužel nemám skušenosti a ani jak to vyzkoušet. Třeba tady kluci na něco příjdou.citovat
Stalker(30.3.2021 8:34)#050271
Stalker
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Faktura" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
With .Range("D62:H64, N9:P9")
.Font.Color = vbWhite
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End With
.PrintOut
With .Range("D62:H64, N9:P9")
.Font.Color = vbBlack
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
citovat

Strana:  « předchozí  1 2 3   další »

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