• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri girdiğim zaman otomatik tarih atması

A

AlihanDsbs

Altın Üye
Katılım
18 Ekim 2023
Mesajlar
8
Excel Vers. ve Dili
Google Sheets
Merhaba arkadaşlar ben B sütununa veri girdiğim zaman A sütununda otomatik veriyi girdiğim saati ve tarihi yazmasını istiyorum bunu nasıl yapabilirim.
 
Son düzenleme:

Ekli dosyalar

=EĞER(B1>0;ŞİMDİ();EĞER(C1>0;ŞİMDİ();EĞER(D1>0;ŞİMDİ();"")))

A1 hücresine kodu yapıştırıp istediğiniz kadar aşağıya çekin. B,C ve D sütunlarına değer girdikçe A sütununda tarih ve saat atacaktır.
 

Ekli dosyalar

Son düzenleme:
hakki83' Alıntı:
Muygun hocam merhaba

2 nolu mesajdaki dosyanıza,
B sütunundaki veriler silindiğinde tarihler de otomatik silinecek şekilde düzsnleyebilir misiniz?
Genişletmek için tıkla ...

Merhaba;
Eki deneyin.
İyi çalışmalar.
 

Ekli dosyalar

muygun' Alıntı:
Merhaba;
Eki deneyin.
İyi çalışmalar.
Genişletmek için tıkla ...
Muygun hocam emeğinize sağlık. Tek tek siliyor ama, B sütununda birden fazla veri seçtiğimizde, A sütunundaki tarihler silinmiyor. onu da düzeltebilir misiniz acaba? Teşekkürler
 
Maalesef...
İşlem yapılan satırda tetiklenen makro çoklu seçimde çalışmaz...
 
AlihanDsbs' Alıntı:
Merhaba arkadaşlar ben B sütununa veri girdiğim zaman A sütununda otomatik veriyi girdiğim saati ve tarihi yazmasını istiyorum bunu nasıl yapabilirim.
Genişletmek için tıkla ...
Ben arkadaş için bir dosya yapmıştım. Orada da benzer işlem gerekiyordu ve normal yol ile çözemeyince UserForm ile sorunu çözdüm. UserForm ile açılan pencerede alanları doldurunca otomatikmen seçtiğin tarih geliyor. UserForm da bu günün tarihi otomatik ekranda oluyor, değişmek istersen değişirsin. O kodu paylaşıyorum, Eğer kullanmak istersen sen kendine göre uyarlarsın gerekli alanları.

C#: 
Private Sub UserForm_Initialize()
    ' UserForm yüklendiğinde çalışır
    
    ' txttarih içine bugünkü tarihi yaz
    txttarih.Text = Format(Date, "dd.mm.yyyy")
    
    ' cbgg ComboBox'a "Gelir" ve "Gider" seçeneklerini ekle
    With cbgg
        .Clear ' Önceki seçenekleri temizle
        .AddItem "Gelir"
        .AddItem "Gider"
        .ListIndex = -1 ' Başlangıçta herhangi bir seçim yapılmamış olsun
    End With
    
    ' cbgg ComboBox'ında seçim yapıldığında çalışacak olayı belirle
    cbgg_Change
End Sub

Private Sub cbgg_Change()
    ' cbgg ComboBox değeri değiştiğinde çalışır
    
    ' Eğer cbgg ComboBox'ta "Gelir" seçiliyse
    If cbgg.Value = "Gelir" Then
        ' cbcins ComboBox'ta "Pos Cihazı", "Yemek Sepeti", "Getir Yemek", "Trendyol Yemek", "Nakit Ödeme" ve "Diğer Gelirler" seçeneklerini kullanılabilir yap
        With cbcins
            .Clear ' Önceki seçenekleri temizle
            .AddItem "Pos Cihazı"
            .AddItem "Yemek Sepeti"
            .AddItem "Getir Yemek"
            .AddItem "Trendyol Yemek"
            .AddItem "Nakit Ödeme"
            .AddItem "Diğer Gelirler"
            .Enabled = True
            .ListIndex = 0 ' Başlangıçta ilk seçenek seçili olsun (Pos Cihazı)
        End With
    ' Eğer cbgg ComboBox'ta "Gider" seçiliyse
    ElseIf cbgg.Value = "Gider" Then
        ' cbcins ComboBox'ta "Fatura Ödemesi", "Malzeme Alımı", "Yemek" ve "Diğer Giderler" seçeneklerini kullanılabilir yap
        With cbcins
            .Clear ' Önceki seçenekleri temizle
            .AddItem "Fatura Ödemesi"
            .AddItem "Malzeme Alımı"
            .AddItem "Yemek"
            .AddItem "Diğer Giderler"
            .Enabled = True
            .ListIndex = 0 ' Başlangıçta ilk seçenek seçili olsun (Fatura Ödemesi)
        End With
    Else
        ' Eğer cbgg ComboBox'ta herhangi bir seçim yapılmamışsa cbcins ComboBox'ı devre dışı bırak
        cbcins.Clear ' Önceki seçenekleri temizle
        cbcins.Enabled = False
    End If
End Sub

Private Sub cmdkayit_Click()
    ' Verileri kaydet
    
    ' VERI sayfasının boş olan ilk satırını bul
    Dim satir As Long
    satir = Sheets("VERI").Cells(Rows.Count, 3).End(xlUp).Row + 1
    
    ' txttarih içindeki değeri VERI sayfasının C sütununa yerleştir
    Sheets("VERI").Cells(satir, 3).Value = txttarih.Text
    
    ' cbgg ComboBox'ındaki değeri VERI sayfasının D sütununa yerleştir
    Sheets("VERI").Cells(satir, 4).Value = cbgg.Value
    
    ' cbcins ComboBox'ındaki değeri VERI sayfasının E sütununa yerleştir
    Sheets("VERI").Cells(satir, 5).Value = cbcins.Value
    
    ' txtodeme içindeki değeri VERI sayfasının F sütununa yerleştir
    Sheets("VERI").Cells(satir, 6).Value = txtodeme.Text
    
    ' txtaciklama içindeki değeri VERI sayfasının J sütununa yerleştir (boşsa boş bırak)
    If txtaciklama.Text <> "" Then
        Sheets("VERI").Cells(satir, 10).Value = txtaciklama.Text
    End If
    
    ' txtnot içindeki değeri VERI sayfasının K sütununa yerleştir (boşsa boş bırak)
    If txtnot.Text <> "" Then
        Sheets("VERI").Cells(satir, 11).Value = txtnot.Text
    End If
    
    ' Kayıt yapıldı mesajını göster
    MsgBox "Veri kaydedildi!", vbInformation
    
    ' UserForm içindeki alanları temizle
    txttarih.Text = Format(Date, "dd.mm.yyyy")
    cbgg.ListIndex = -1
    cbcins.Clear
    cbcins.Enabled = False
    txtodeme.Text = ""
    txtaciklama.Text = ""
    txtnot.Text = ""
End Sub
 
blizzard' Alıntı:
Ben arkadaş için bir dosya yapmıştım. Orada da benzer işlem gerekiyordu ve normal yol ile çözemeyince UserForm ile sorunu çözdüm. UserForm ile açılan pencerede alanları doldurunca otomatikmen seçtiğin tarih geliyor. UserForm da bu günün tarihi otomatik ekranda oluyor, değişmek istersen değişirsin. O kodu paylaşıyorum, Eğer kullanmak istersen sen kendine göre uyarlarsın gerekli alanları.

C#: 
Private Sub UserForm_Initialize()
    ' UserForm yüklendiğinde çalışır
   
    ' txttarih içine bugünkü tarihi yaz
    txttarih.Text = Format(Date, "dd.mm.yyyy")
   
    ' cbgg ComboBox'a "Gelir" ve "Gider" seçeneklerini ekle
    With cbgg
        .Clear ' Önceki seçenekleri temizle
        .AddItem "Gelir"
        .AddItem "Gider"
        .ListIndex = -1 ' Başlangıçta herhangi bir seçim yapılmamış olsun
    End With
   
    ' cbgg ComboBox'ında seçim yapıldığında çalışacak olayı belirle
    cbgg_Change
End Sub

Private Sub cbgg_Change()
    ' cbgg ComboBox değeri değiştiğinde çalışır
   
    ' Eğer cbgg ComboBox'ta "Gelir" seçiliyse
    If cbgg.Value = "Gelir" Then
        ' cbcins ComboBox'ta "Pos Cihazı", "Yemek Sepeti", "Getir Yemek", "Trendyol Yemek", "Nakit Ödeme" ve "Diğer Gelirler" seçeneklerini kullanılabilir yap
        With cbcins
            .Clear ' Önceki seçenekleri temizle
            .AddItem "Pos Cihazı"
            .AddItem "Yemek Sepeti"
            .AddItem "Getir Yemek"
            .AddItem "Trendyol Yemek"
            .AddItem "Nakit Ödeme"
            .AddItem "Diğer Gelirler"
            .Enabled = True
            .ListIndex = 0 ' Başlangıçta ilk seçenek seçili olsun (Pos Cihazı)
        End With
    ' Eğer cbgg ComboBox'ta "Gider" seçiliyse
    ElseIf cbgg.Value = "Gider" Then
        ' cbcins ComboBox'ta "Fatura Ödemesi", "Malzeme Alımı", "Yemek" ve "Diğer Giderler" seçeneklerini kullanılabilir yap
        With cbcins
            .Clear ' Önceki seçenekleri temizle
            .AddItem "Fatura Ödemesi"
            .AddItem "Malzeme Alımı"
            .AddItem "Yemek"
            .AddItem "Diğer Giderler"
            .Enabled = True
            .ListIndex = 0 ' Başlangıçta ilk seçenek seçili olsun (Fatura Ödemesi)
        End With
    Else
        ' Eğer cbgg ComboBox'ta herhangi bir seçim yapılmamışsa cbcins ComboBox'ı devre dışı bırak
        cbcins.Clear ' Önceki seçenekleri temizle
        cbcins.Enabled = False
    End If
End Sub

Private Sub cmdkayit_Click()
    ' Verileri kaydet
   
    ' VERI sayfasının boş olan ilk satırını bul
    Dim satir As Long
    satir = Sheets("VERI").Cells(Rows.Count, 3).End(xlUp).Row + 1
   
    ' txttarih içindeki değeri VERI sayfasının C sütununa yerleştir
    Sheets("VERI").Cells(satir, 3).Value = txttarih.Text
   
    ' cbgg ComboBox'ındaki değeri VERI sayfasının D sütununa yerleştir
    Sheets("VERI").Cells(satir, 4).Value = cbgg.Value
   
    ' cbcins ComboBox'ındaki değeri VERI sayfasının E sütununa yerleştir
    Sheets("VERI").Cells(satir, 5).Value = cbcins.Value
   
    ' txtodeme içindeki değeri VERI sayfasının F sütununa yerleştir
    Sheets("VERI").Cells(satir, 6).Value = txtodeme.Text
   
    ' txtaciklama içindeki değeri VERI sayfasının J sütununa yerleştir (boşsa boş bırak)
    If txtaciklama.Text <> "" Then
        Sheets("VERI").Cells(satir, 10).Value = txtaciklama.Text
    End If
   
    ' txtnot içindeki değeri VERI sayfasının K sütununa yerleştir (boşsa boş bırak)
    If txtnot.Text <> "" Then
        Sheets("VERI").Cells(satir, 11).Value = txtnot.Text
    End If
   
    ' Kayıt yapıldı mesajını göster
    MsgBox "Veri kaydedildi!", vbInformation
   
    ' UserForm içindeki alanları temizle
    txttarih.Text = Format(Date, "dd.mm.yyyy")
    cbgg.ListIndex = -1
    cbcins.Clear
    cbcins.Enabled = False
    txtodeme.Text = ""
    txtaciklama.Text = ""
    txtnot.Text = ""
End Sub
Genişletmek için tıkla ...
Çok Teşekkür Ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst