Veri girdiğim zaman otomatik tarih atması

AlihanDsbs · 18 Ekim 2023

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.

muygun · 18 Ekim 2023

Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/3hzhe3/AlihanDsbs-B_sutununda_veri_varsa_Tarih_ve_Saat_yaz.zip.html

cLaimAngeL · 18 Ekim 2023

muygun' Alıntı:
Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/3hzhe3/AlihanDsbs-B_sutununda_veri_varsa_Tarih_ve_Saat_yaz.zip.html

Eline sağlık, bana da buna benzer bir komut lazım ama bana mesela hücreye sarı renk dolgusu yapılınca yanına tarih yazdırmak şeklinde, yapılabilir mi ?

AlihanDsbs · 18 Ekim 2023

muygun' Alıntı:
Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/3hzhe3/AlihanDsbs-B_sutununda_veri_varsa_Tarih_ve_Saat_yaz.zip.html

Çok Teşekkür Ederim Aradığım Buydu

AlihanDsbs · 18 Ekim 2023

muygun' Alıntı:
Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/3hzhe3/AlihanDsbs-B_sutununda_veri_varsa_Tarih_ve_Saat_yaz.zip.html

Peki Bunu c ve d Sütunlarına da nasıl ekleyebilirim o sütunlara veri girdiğimde tarihi nasıl gösterebilirim bide veri silindiğinde tarih de silinebilir olarak yapabilir miyiz

muygun · 18 Ekim 2023

cLaimAngeL' Alıntı:
Eline sağlık, bana da buna benzer bir komut lazım ama bana mesela hücreye sarı renk dolgusu yapılınca yanına tarih yazdırmak şeklinde, yapılabilir mi ?

Merhaba;
Butonla işlem yaptırırım derseniz eki deneyin.
İyi çalışmalar.

Link:
https://s6.dosya.tc/server16/szpayj/geL-B_sutununda_renklendirmevarsa_Tarih_ve_Saat_yaz.zip.html

mkuru28 · 18 Ekim 2023

=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.

cLaimAngeL · 19 Ekim 2023

muygun' Alıntı:
Merhaba;
Butonla işlem yaptırırım derseniz eki deneyin.
İyi çalışmalar.

Link:
https://s6.dosya.tc/server16/szpayj/geL-B_sutununda_renklendirmevarsa_Tarih_ve_Saat_yaz.zip.html

Hocam eline sağlık ama şöyle bir problem var, işlem butonuna basınca renkli olan satırların karşısında olan tarihlerin hepsini o anki tarih saate göre değiştiriyor yani eski tarihler gidiyor

muygun · 19 Ekim 2023

Merhaba;
O halde B sütununda renkli hücrenin hizasındaki A sütunun Boş olup olmadığı mukayesesi ekleyelim.
Tekrar deneyin.
İyi çalışmalar.

Link:
https://s6.dosya.tc/server16/n7wbam/L-B_sutununda_renklendirmevarsa_Tarih_ve_Saat_yaz-1.zip.html

hakki83 · 19 Ekim 2023

muygun' Alıntı:
Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/3hzhe3/AlihanDsbs-B_sutununda_veri_varsa_Tarih_ve_Saat_yaz.zip.html

Muygun hocam merhaba

2 nolu mesajdaki dosyanıza,
B sütunundaki veriler silindiğinde tarihler de otomatik silinecek şekilde düzenleyebilir misiniz?

muygun · 20 Ekim 2023

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?

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

hakki83 · 20 Ekim 2023

muygun' Alıntı:
Merhaba;
Eki deneyin.
İyi çalışmalar.

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

muygun · 21 Ekim 2023

Maalesef...
İşlem yapılan satırda tetiklenen makro çoklu seçimde çalışmaz...

blizzard · 22 Ekim 2023

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.

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

AlihanDsbs · 15 Kasım 2023

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

Çok Teşekkür Ederim

Veri girdiğim zaman otomatik tarih atması

AlihanDsbs

muygun

Özel Üye

Ekli dosyalar

cLaimAngeL

AlihanDsbs

AlihanDsbs

muygun

Özel Üye

Ekli dosyalar

mkuru28

cLaimAngeL

muygun

Özel Üye

Ekli dosyalar

hakki83

muygun

Özel Üye

Ekli dosyalar

hakki83

muygun

Özel Üye

blizzard

AlihanDsbs