curro70 ...
V bunkách a1,a2,a3,a4 mením vždy jedno slovo a potrebujem aby do bunky a2 mi prepísalo to slovo bez ohľadu natom v ktorej bunke bude zapísané a1,a2,a3 alebo a4. Ostatné tri bunky bi mali biť prázdne. Ak je to možné vopred Ti ďakujem!!!
No dúfam, že som dobre porozumel zadaniu, lebo "...bi mali biť..."
ma trochu vyviedlo z konceptu
, ale riešenie je pomerne jednoduché.
V pozadí hárku "Sheet1" (viď prílohu - kód - ALT+F11) je procedúra (Worksheet_Change),
ktorá testuje každú zmenu údajov.
Ak sa zmenia údaje v rozsahu A1:A4, oblasť je premazaná a hodnota je vložená do A2.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
On Error GoTo xErr:
If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
x = Target.Value
Application.EnableEvents = False
'MAZ "A1:A4"
Range("A1:A4").ClearContents
'DAJ HODNOTU DO A2
Range("A2").Value = x
Application.EnableEvents = True
End If
Exit Sub
xErr:
Application.EnableEvents = True
End Sub
Palo