ascundere automat randuri

[Pila]

Salutare,

Am folosit o formula care sa functioneze in toate versiunile de office.
anexat fisierul.

[IPP]

Am testat pe versiunile 2007, 2010 si 2016 si a fost aceeasi problema

S-ar putea sa am si o veste buna. Am modificat prin cod si l-am plasat (in editorul macro) exclusiv la nivel de foaie:

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)

Set Target = Range("K1")

Dim myRange As Range
Set myRange = Sheets("generare").Range("A19:A64")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

myRange.EntireRow.Hidden = False

For Each c In myRange
 If Len(c) < 10 Then
  c.EntireRow.Hidden = True
 End If
Next c

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

In testele mele (Excel 2016) a functionat atat timp cat formulele de pe coloana A nu au returnat erori.

In alta ordine de idei, imi mentin parerea ca nu e bine sa definiti in Name Manager range care sa se refere la toata foaia Excel.

[Pila]

Da, chiar ca este o veste buna.
Acum pare ca funcioneaza cum trebuie.
L-am adaptat la fisierul meu final si functioneza cum trebuie.
O sa mai inserez in baza de date mai multe pozitii si daca intampin probleme, revin. Sunt sanse mici, vad ca functioneaza f bine acum.

Multumesc mult pentru ajutor!