hakki83

B Sütununa Otomatik Tarih Ekleme

  • Konuyu başlatan Konuyu başlatan hakki83
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
hakki83

hakki83

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
887
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
Ömer BARAN
Alternatif olsun.
Bir de şu kodu deneyin bakalım.

Not: SATIR SİLME durumu da dikkate alınarak, koda ilave yapıldı.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
Tarihe göre sırala Oylamaya göre sırala
Sayfanın kod bölümüne yapıştırın.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
 
Oyla 0 Olumsuz oyla
Değerli hocam önce emeğinize sağlık.

Şu eklemeleri yapabilir miyiz acaba,

-- Bir veya birden fazla veriyi silince tarihler silinmeli

-- Tek hücre kopyalamayla tarih ekleniyor, aynı şekilde birden fazla kopyalanan hücrelerin de tarihleri eklenmeli.

-- Ctrl D ile de tarih eklenmeli.

-- Boş hücrede Delete'ye bastığımızda tarih eklememeli.

Teşekkürler.
 
Oyla 0 Olumsuz oyla
Boş hücredeki veriyi sildiğinizde tarih mi ekliyor? Tam tersi sağ hücredeki tarihi silmesi gerekiyor.
 
Oyla 0 Olumsuz oyla
Okutkan hocam denedim emeğinize sağlık

Manuel satır silince hata verdi.
On Error satırını ekleyince vermedi.

Fakat
Kopyala yapıştır ve Ctrl D ile tarih eklemedi maalesef.
 
Oyla 0 Olumsuz oyla
Hocam Ctrl D’den kastım şu
A sütunundaki bir ismi Ctrl D ile aşağıya kopyalayıp yanına tarihlerini girmem gerekiyor.
İşte bu kopyalama esnasında tarih girmiyor, hatta girilmiş olanı da siliyor. İsterseniz deneyiniz.

Bir de normal copy paste ile hiç tarih gelmiyor.

Tek tek girince tarih geliyor. Ama benim yüzlerce satır ismi, tek tek değil, kopya ve Ctrl D yi kullanarak girmem lazım hocam.
 
Oyla 0 Olumsuz oyla
Ctrl+D ile yukarıdaki veriyi aktif hücreye çektim ve sağ hücreye tarih girdi.
Kopyaladığım bi hücreyi başka bir A hücresine yapıştırdığımda da süğ hücreye tarih girdi. Bahsettiğiniz sorunlarla karşılaşmadım.
 
Oyla 0 Olumsuz oyla
Alternatif olsun.
Bir de şu kodu deneyin bakalım.

Not: SATIR SİLME durumu da dikkate alınarak, koda ilave yapıldı.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Target.Column <> 1 Then exit sub

Bu satır #3.mesajdaki iki ve üçüncü maddeyi karşılamayacaktır.

Paylaştığım kodda da toplu silme işleminde karşı satırdaki verileri siliyor fakat toplu yapıştırma işlemi yapınca da siliyor. Toplu yapıştırma işlemi için çoklu tarih ekleme isteğinizi şuan farkettim.
 
Oyla 0 Olumsuz oyla
Okutkan hocam, Ömer hocamızın kodu tamamdır. Fakat sizin kodunuzu da isterseniz tekrar deneyeyim.

Yukardaki
Target.Column <> 1 Then exit sub
Satırını ekledim hata verdi. Başına if koymak gerekiyor sanırım. Tam olarak hangi satırın altına eklememiz gerekiyor?
 
Oyla 0 Olumsuz oyla
O satırı ekleyin diye vermedim. Ömer abinin paylaştığı koddaki bir satır. O satır kullanıldığında 3 numaralı mesajınızdaki ilk iki isteğinizi gerçekleştirmeyeceğini düşündüğüm için paylaştım. Konu çözüldüğüne göre sorun yok, iyi çalışmalar.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt