Excel 2007 statické datum

[KRAL]

Dobrý den,

prosím o radu s úkolem, potřebuji když vyberu ve sloupci F v rozevíracím seznamu pracovníka aby na stejnem řádku ve sloupci D vyplnil datum DNES ale aby se neměnil, musí zustat zapsán čas výběru pracovníka ze seznamu viz příloha.V ostatních forech jsem našel příklady bohužel to není to co potřebuji viz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(1, 3) = Now
End If
End Sub

Děkuji

priklad.xlsx

(8.55 KiB) Staženo 81 x

[mike007]

Klikni pravým tlačítkem myši na název záložky a z kontextového menu vyber Zobrazit kód. Do prázdného okna nakopíruj toto makro:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count = 1 Then
With Target
If .Column = 6 Then
If .Value <> "" Then
If Cells(.Row, .Column - 2) = "" Then Cells(.Row, .Column - 2) = Date
End If
End If
End With
End If
End Sub

VBA zavři.