Ana içeriğe atla

Bir sütuna veri girildiğinde otomatik olarak tarih nasıl girilir?

doc veri girildiğinde otomatik tarih 1

Bir çalışma sayfası üzerinde çalışırken, aşağıdaki ekran görüntüsü gibi A sütununa veri girerken geçerli tarih ve saatin B sütununa otomatik olarak girilmesini istersiniz. Excel'de bu işi kolay ve hızlı bir çözümle çözmeye nasıl çalışabilirsiniz?

VBA kodu ile bir sütuna veri girildiğinde tarihi otomatik olarak girin

ok mavi sağ balon VBA kodu ile bir sütuna veri girildiğinde tarihi otomatik olarak girin

Belki, Excel'de bu işle başa çıkmamızın doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu size yardımcı olabilir, lütfen aşağıdakileri yapın:

1. Otomatik olarak tarih eklemek istediğiniz sayfa sekmesini seçin, ardından sağ tıklayın, seçin Kodu Görüntüle metin menüsünden, sonra dışarı çıktı Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu Modüle kopyalayıp yapıştırın:

VBA kodu: Başka bir sütuna veri girerken otomatik olarak tarih girin:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

doc veri girildiğinde otomatik tarih 2

2. Ardından bu kod penceresini kaydedin ve kapatın, çalışma sayfasına geri dönün, şimdi Sütun A'ya veri girdiğinizde, Sütun B'deki ilgili hücre bir kerede geçerli tarih ve saati otomatik olarak girecektir.

not: Yukarıdaki kodda, A2: A15 değerleri girmek istediğiniz hücrelerdir.

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (5)
No ratings yet. Be the first to rate!
Maira
Maira
This comment was minimized by the moderator on the site
Hola como fijo fecha cuando inserte un dato especifico en otro celda. por ejemplo cuando en la celda A Inserte Cerrado, en la celda B se fije la fecha actual.
Reply
0
0
laurent
laurent
This comment was minimized by the moderator on the site
comment étendre ce code VBA sur plusieurs colonnes en même temps ?

exemple conne A -> B et F->G et m ->N

MERCI
Reply
0
0
skyyang
skyyang     laurent
This comment was minimized by the moderator on the site
Hello, laurent

To apply this code to multiple ranges, please use the below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tips: If there are more ranges you want to use, you just need to use Or to join this Not Intersect(Target, Range("A2:A15") script. Change the cell reference A2:A15 to other range reference.

Please try, hope it can help you!
Reply
Report
0
0
laurent
laurent     skyyang
This comment was minimized by the moderator on the site
Merci pour ta réponse je l'essaye et je vous tiens au courant
Reply
0
0
Will
Will
This comment was minimized by the moderator on the site
Hi i was wondering if there was any way to make it input the date in the column before the data, like if i type in B the date appears in A, also more importantly, if there was any way to apply the code to multiple columns at once
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations