[ziomek00725]

#pytanie #excel #arkuszkalkulacyjny
Mirki, idzie zrobić coś takiego że jak wpiszę w kolumnie 1 liczbę, i wcisnę enter to się ta liczba przeniesie na 4, następnym razem na 5 i tak dalej?

[DwaNiedzwiedzie]

@ziomek00725: Makrem się da, konkrety poproszę. To ma działać tylko w jednej kolumnie, czy we wszystkich? W pierwszym wierszu, czy w dowolnym miejscu?

[ziomek00725]

@DwaNiedzwiedzie: wszystkie kolumny, wszystkie wiersze najlepiej xD

[DwaNiedzwiedzie]

@ziomek00725: W excelu alt+F11, dwuklik na "Tenskoroszyt" i w oknie edytora wklej poniższy kod:

Public zmiana As Boolean

Private Sub WorkbookSheetChange(ByVal Sh As Object, ByVal Target As Range)

With Target
If Not zmiana And .Value <> "" Then
zmiana = True
If .Offset(1, 0) = "" Then
.Offset(1, 0) = .Value
Else
.End(xlDown).Offset(1, 0) = .Value
End If

.Select
.Value = ""
Else
zmiana = False
End If
End

[ziomek00725]

W excelu alt+F11, dwuklik na "Tenskoroszyt" i w oknie edytora wklej poniższy kod:

Public zmiana As Boolean

Private Sub WorkbookSheetChange(ByVal Sh As Object, ByVal Target As Range)

With Target

If Not zmiana And .Value <> "" Then

zmiana = True

If .Offset(1, 0) = "" Then

.Offset(1, 0) = .Value

Else

.End(xlDown).Offset(1, 0) = .Value

End If

.Select

.Value = ""

Else

zmiana = False

End If

End With

End Sub

[DwaNiedzwiedzie]

@ziomek00725: Nie, google mają swój Google Apps Script (bazujący na JavaScript), to zupełnie inny język.

[ziomek00725]

@DwaNiedzwiedzie: szkoda, ale i tak bardzo ale to bardzo mi pomogłeś ^^ W nagrodę masz spam plusikami

[DwaNiedzwiedzie]

@ziomek00725: Dzięki, odłożę je na przyszłe wakacje :)

[ziomek00725]

@DwaNiedzwiedzie: Ile lat bawisz się w Excela że się aż tak na tym znasz z tego co czytałem podczas plusikowania?

[DwaNiedzwiedzie]

@ziomek00725: Uuu... To już pewnie pełnoletni związek :)