Gata! Functioneaza acum!IPP scrie: ↑Vin Iul 02, 2021 8:48 amBuna ziua
Trebuie corectat in coduri:
If ActiveCell.Column <> 8 Or ActiveCell.Row < 12 Then
MsgBox "Informatia trebuie inserata de la H12 in jos", vbCritical, "Eroare input"
Exit Sub
End If
If Len(ActiveCell) = 0 Then
ActiveCell.Value = 1
Else
ActiveCell.Value = ActiveCell.Value & ", " & 1
End If
in care ce apare mai sus colorat trebuie sa aiba valoarea corespunzatoare fiecarui buton (1-14).
Dar da, si in fisierul atasat de mine, la al doilea cod (corespunzator pentru 2) ramasese tot 1 si de aici (daca s-a copiat acel cod si nu s-a corectat), eroarea.
IP
Va multumesc pt ajutor!
Am observat insa ceva, cand apas butonul de stergere (de la A12 - L50) daca vreau sa dau "Undo" vad ca nu mai pot. Se poate face ceva in sensul asta? Ma gandesc la inca un buton "Anuleaza stergerea" de ex care sa anuleze ceea ce s-a sters.