Aktywne Wpisy
![Kagernak](https://wykop.pl/cdn/c0834752/a6293d7d09020cc2ad808c4bea9db63ff76785a6420e17b190ef583b559c42cd,q60.jpg)
Kagernak +515
Kurde, ale zajebisty zwrot akcji! Joński już taki zmęczony się wydawał, pozwolił temu burakowi z PiSu na swój przydługi wywód, wydawać by się mogło, że już po ptakach a tu z taką petardą wylatuję, że on od początku miał dowody, że Soboń cały czas ściemniał. Warto było od 10 siedzieć i słuchać tego pitolenia by być świadkiem tej akcji.
( ͡º ͜ʖ͡º)
#sejm #polityka
( ͡º ͜ʖ͡º)
#sejm #polityka
![arkadi2020](https://wykop.pl/cdn/c3397992/arkadi2020_BBXjalsg5m,q60.jpg)
arkadi2020 +150
Znalezione w sieci.
#sejm
#sejm
![arkadi2020 - Znalezione w sieci.
#sejm](https://wykop.pl/cdn/c3201142/d77bb1e73ee1ffae1ea3a973d451a1f8dfa84a5ad95be29ddf81624a4cd0af69,w150.jpg)
źródło: IMG_20240318_170226_101
Pobierz
Jest jakaś formuła lub formatowanie by można było ustawić coś jak wprowadzanie danych do bazy danych, tzn chodzi mi o możliwość posiadania u góry zawsze pustej komórki do której wprowadzam wartość a excel przesuwa w dół całą kolumnę. Coś jak pisanie w notatniku. Tzn piszę wiersz, daje enter, piszę następny, enter itd.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = [a1]
If Not Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
With rng
.Insert Shift:=xlDown
.Offset(-1, 0).Select
End With
Application.EnableEvents = True
End If
End Sub
Jeśli chcesz się odnieść do innej komórki