Excel 2007 označení buňky po stisku Enter dle potřeby

[posada]

Dobrý den, prosím o pomoc. V Excelu 2007 potřebuji nějak nastavit, aby se mi po zadání dat do buňky A1 a po stisku Enter označila buňka A2 ( ne B1 ) a dále zase po stisku Enter z A2 na B1, dále na B2, pak na C1 atd. Pokud to nějak jde budu šťastný. Děkuji předem za pomoc.

[Reklama]

[Poki]

Zdravím,

jde toho dosáhnout touto procedurou:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 2 Then
   Cells(1, Target.Column + 1).Select
  End If
End Sub

Je potřeba ji vložit do modulu všech listů, kde se tahle vlastnost vyžaduje.

[navstevnik]

Mozne reseni bez udalostni procedury:
Oznac si tazenim mysi pozadovany blok bunek, napr.: A1:B100 pocinaje bunkou A1 a do takto oznaceneho bloku bunek zacni vkladat hodnoty, posun na dalsi bunku klavesou TAB ( zpet Shift+Tab), takze dochazi k zapisovani po radcich (tj. vyplni sloupce v jednom radku a pak preskoci na dalsi radek od zacatku) jen do oznacene oblasti.

Jinak v moznostech nastavit: Posunout vyber po stisknuti klavesy Enter - vpravo a pouzit udalostni proceduru listu (napr. pro posun ze druheho sloupce do prvniho sloupce o radek nize):

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Target.Offset(1, -2).Select
End Sub