< návrat zpět

MS Excel


Téma: Excel chyba rss

Zaslal/a 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 35x)
50247_1.jpg
Zaslat odpověď >

Strana:  « předchozí  1 2 3   další »
#050261
Lugr
Na Office 2016 mi to funguje.

Jedná se Vám o buňky H63 a O9?citovat
#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
#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
#050265
avatar
To jsem zkoušel, ale hlásí to chybu:
xIndex = .Range("O9,P9,D62,D64,G62,F62,F64").Font.ColorIndexcitovat
#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
#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
#050268
Lugr
A chybu už to nehází?citovat
#050269
avatar

Lugr napsal/a:

A chybu už to nehází?

Necitovat
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09