Tess rašė:
Na vien toks privalumas neprivers manęs eiti į šį banką.
Turėtu būti kažkas daugiau.

jofky rašė:
Čia kaip ir kur? Myliu PDF formatą

jofky rašė:

Suformuoju išrašą, kuris yra 3 puslapių. Spaudžiu "spausdinti" ir man suformuoja spausdinti tik vieną puslapį kuriame stovėjau ir tas dar padalintas per du puslapius Niekaip negaliu atspausdinti visų trijų puslapių vienu Man aiškina kad pas juos viskas gerai, ir niekas nesiskundžia. Pabandžiau atsispausdinti kitame darbe, prie kito kompiuterio, tas pats. Išvada: problema tikrai ne mano printeryje

Tess rašė:
Ten dar dažnai buna, kad ne visos operacijos į išrašą patenka.
Tai vis prašau klientų, kad iš naujo padarytu.

Sfera rašė:


Iš to paties Petro ir aš šįryt gavau pasiūlymą

rašė: Sub InsertEmptRows()
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "Tuščių eilučių įterpimas"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Pasirinkti diapazoną", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

RoKat rašė:
siek tiek pakoregavau formule ir gavosi:
.............

rašė: oj.. nesuprantu as to cento...

keryda rašė:
.....Pas mane formule yra tokia labai paprasta =Round (A1/A2;2). Gal padesit kas