Dzień dobry,
Próbuję stworzyć makro, które kiedy wpiszę cokolwiek w kolumnie C, automatycznie wstawi w dwóch komórkach obok datę i numer wpisu.
Np. wpisuję w C2 "dane", automatycznie w A2 pojawia się dzisiejsza data, a w B2 numer wpisu np. "2015/1".
Miałoby to działać w ten sposób dla całych kolumn. Czyli wpisując coś do C3, pojawi się data w A3 i kolejny numer w B3 "2015/2". Numeracja zmieniałaby się na takiej samej zasadzie jak działa "przeciągnięcie komórki".
Szukając po internecie rozwiązania, udało mi się już ustawić datę.
Kod:
Czy ktoś potrafi ustawić również automatyczną numerację wpisów, abym osiągnął taki efekt jaki opisałem?
Próbuję stworzyć makro, które kiedy wpiszę cokolwiek w kolumnie C, automatycznie wstawi w dwóch komórkach obok datę i numer wpisu.
Np. wpisuję w C2 "dane", automatycznie w A2 pojawia się dzisiejsza data, a w B2 numer wpisu np. "2015/1".
Miałoby to działać w ten sposób dla całych kolumn. Czyli wpisując coś do C3, pojawi się data w A3 i kolejny numer w B3 "2015/2". Numeracja zmieniałaby się na takiej samej zasadzie jak działa "przeciągnięcie komórki".
Szukając po internecie rozwiązania, udało mi się już ustawić datę.
Kod:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, -2) = Date
End If
End Sub
Czy ktoś potrafi ustawić również automatyczną numerację wpisów, abym osiągnął taki efekt jaki opisałem?