Uzamčeno - nelze přidávat nové příspěvky.
Zkusím to já. Konečně můžu s něčím pomoct.
Nejlíp bude použít vba kód do události listu. Postup:
V Excelu pomocí Alt+F11 skočit do editačního okna vba, vlevo nahoře dvakrát poklepat na jméno listu, ve kterém chceš mít tuhle funkci. V hlavním okně vpravo nahoře místo "General" zvolit "Worksheet" a vedle navolit událost "Change". Pak nakopírovat celý kód. Zavřít editor. Sešit musí být pak uložený jako .xlsm ve v.2007 a novější.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
If Target.Address = "$A$1" Then
If Len(Target) > 0 Then
If IsEmpty(Cells(1, 2)) Then
Cells(1, 2) = Target
Else
radek = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(radek, 2) = Target
End If
End If
End If
End Subcitovat
Nejlíp bude použít vba kód do události listu. Postup:
V Excelu pomocí Alt+F11 skočit do editačního okna vba, vlevo nahoře dvakrát poklepat na jméno listu, ve kterém chceš mít tuhle funkci. V hlavním okně vpravo nahoře místo "General" zvolit "Worksheet" a vedle navolit událost "Change". Pak nakopírovat celý kód. Zavřít editor. Sešit musí být pak uložený jako .xlsm ve v.2007 a novější.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
If Target.Address = "$A$1" Then
If Len(Target) > 0 Then
If IsEmpty(Cells(1, 2)) Then
Cells(1, 2) = Target
Else
radek = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(radek, 2) = Target
End If
End If
End If
End Subcitovat
RSS nejnovější články