Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tb(1 To 7) As Variant
Dim i As Integer
tb(1) = „Poniedziałek”
tb(2) = „Wtorek”
tb(3) = „Środa”
tb(4) = „Czwartek”
tb(5) = „Piątek”
tb(6) = „Sobota”
tb(7) = „Niedziela”

Set zakres = Range(„A1:A7″)

For Each Cell In zakres
For j = 1 To 7
If Target.Address = Cells(j, „A”).Address Then
If UCase(Target.Value) = „NIEDZIELA” Then
Target.Offset(0, 1) = „Poniedziałek”
Exit Sub
End If

For i = 1 To 7
If UCase(Target.Value) = UCase(tb(i)) Then
Target.Offset(0, 1) = tb(i + 1)
End If
Next

End If
Next
Next

End Sub

Niestety nadal nie potrafię „pokonać” obiektu Target – powyższy Sub powinien działać po wciśnięciu ENTER na komórce wypełnionej nazwą dnia tygodnia. Niestety tak nie jest – po wciśnięcieu enter nic sie nie dzieje, trzeba strzałką wróćić do wypełnianej komórki i dopiero wówczas Sub zadziała.
Jeśli ktoś wie jak temu zaradzić, wielka prośba o podesłanie pomysłu.
Pozdrawiam.

Pozdrawiam.