cod VBA introducere data

[valcris84]

Buna dimineata!
Vreau ca atunci cand deschid un fisier excel sa-mi ceara automat sa introduc o data intr-o celula anume, C3 sa zicem. Pana sa introduc data as vrea ca celula sa fie formatata in rosu si sa scrie "insereaza o data", apoi dupa ce introduc data sa dispara aceasta formatare. Acest lucru as vrea sa se repete ori de cate ori deschid acel fisier.
Banuiesc ca este nevoie neaparat de un cod VBA aici. Ma puteti ajuta?
Multumesc mult!

[basileus]

Private Sub Workbook_Open()
' Acest cod va fi executat automat când deschideți fișierul Excel
Dim ws As Worksheet
Dim targetCell As Range

' Specificați foaia de lucru și celula dorită (C3 în acest caz)
Set ws = ThisWorkbook.Sheets("NumeleFoaiei") ' Înlocuiți "NumeleFoaiei" cu numele real al foii de lucru
Set targetCell = ws.Range("C3")

' Verificați dacă celula conține textul "inserează o data"
If targetCell.Value = "inserează o data" Then
' Aplicați formatarea roșie și ștergeți textul
targetCell.Font.Color = RGB(255, 0, 0) ' Text roșu
targetCell.Value = ""
End If
End Sub

[valcris84]

Buna ziua!
Am scris codul in fisier dar din pacate nu functioneaza. E posibil sa fi sarit vreun pas, desi am incercat sa respect intocmai indicatia. Am inlocuit si numele foii dar tot nu functioneaza. Nu stiu de ce.

[Indigo-ONE]

Salut,

Codul ar trebui pus in "AcestRegistruDeLucru", dar oricum codul nu face ce ai cerut.....

@basileus

Tu ai testat codul???