Aktywne Wpisy
MokrySuchar +115
Jest jakiś chętny reprezentant tagu #famemma wystąpić na Bitej Śmietance?
Oferujemy mysteryboxa i koszulkę (+koszty transportu).
Oferujemy mysteryboxa i koszulkę (+koszty transportu).
Oszukał nas. Nie był prawiczkiem.
#przegryw
#przegryw
Aktywne Znaleziska
Zawiera treści 18+
Ta treść została oznaczona jako materiał kontrowersyjny lub dla dorosłych.
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?
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