Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Excel - makro na wypełnienie

dj600sms 08 Sep 2015 16:58 618 2
  • #1
    dj600sms
    Level 2  
    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:
    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?
  • Helpful post
    #2
    JRV
    VBA, Excel specialist
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 Then
      Target.Offset(0, -2) = Date
      Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1
    End If
    End Sub
  • #3
    dj600sms
    Level 2  
    Działa :)
    Bardzo dziękuję za pomoc