Haftanın Günlerini Silme

[btanju]

Selamlar,

Kullandığım Excel ingilizce söyle bir sıkıntım var başka bir excelden yada mail üzerinden kopya yapıştır yapınca Örnek (26 Ağustos 2021 Perşembe) olarak geliyor. Bu gibi çok kopyalama yapıyorum silmek için ya tektek günleri siliyorum yada CTR+F ile günleri tektek yazıp siliyorum. Kullanmış olduğum Excel ingilizce olmasından dolayı Makro ile otomatik silinsin dediğimde Perşembe veya Çarşamba da Ş harfi olmasından dolayı makroda o harfler çıkmıyor ve silinmiyor bazenden büyük İ oluyor gene olmuyor. Bunun için bir kod yada formül varmıdır. Şimdiden herkese teşekkür ederim.​

 

[Korhan Ayhan]

Yapıştırma işleminden sonra ilgili hücrenin biçimi tarih olarak mı görünüyor?

Ya da yapıştırdığınız hücrenin biçimi nedir?

 

[btanju]

Yapıştırma işleminden sonra ilgili hücrenin biçimi tarih olarak mı görünüyor?

Ya da yapıştırdığınız hücrenin biçimi nedir?

Kusurabakmayın geç dönüş yapabildim. GENEL olarak gözküyor DATE ye çevirsekte düzelmiyor Bazen TEXT olarakda gözüküyor yani GENEL ve TEXT olarak gözüksede Makro ile bir tuşa basıldığında otomatik hafanın günlerini silse kendisi otomatik tarihe dönmezmi CTR+H yapığımda Aanacak haneye Perşembe yazdığımda Yerine gelecek yeri BOŞ bıraktığımda otomatik olarak Perşembe Silinior Tarihe dönüyor.

 

[Korhan Ayhan]

Eğer VBA tarfında Türkçe karakter sorunu yaşıyorsanız gün isimlerini excel hücresine yazarak ve makro desteği ile bu hücreleri baz alarak sonuca gidebilirsiniz.

Aşağıdaki görselde nasıl yapmanız gerektiğini anlatmaya çalıştım.

Ben günleri sarı renkli alana görseldeki sırayla yazdım.
A sütununda seçtiğim alanda günleri gösteren tarih verileri var.
Bu şekilde bozuk görünümlü tarihleri seçerek düzenlemesini görseldeki kod yardımıyla yapabilirsiniz.

 

[btanju]

Eğer VBA tarfında Türkçe karakter sorunu yaşıyorsanız gün isimlerini excel hücresine yazarak ve makro desteği ile bu hücreleri baz alarak sonuca gidebilirsiniz.

Aşağıdaki görselde nasıl yapmanız gerektiğini anlatmaya çalıştım.

Ben günleri sarı renkli alana görseldeki sırayla yazdım.
A sütununda seçtiğim alanda günleri gösteren tarih verileri var.
Bu şekilde bozuk görünümlü tarihleri seçerek düzenlemesini görseldeki kod yardımıyla yapabilirsiniz.

Ekli dosyayı görüntüle 229945

Korhan Bey Çok teşekkür ederim fakat vermiş olduğunuz linklere tıkladığımda Hata almaktayım hatanın acaba Linkte sorun olabilir mi? Yoksa açmaya yetkimiz mi yoktur.

https://www.excel.web.tr/attachments/1631105130188-jpeg.229945/

 

[Korhan Ayhan]

İki resimde aynıdır. İlki altın üye olmayanlar için ki bu resimler bir müddet sonra silinebiliyor. İkincisi ise forumun altyapısına yüklediğim resimdir. Forum varolduğu sürece kalıcı olacaktır.

 

[btanju]

İki resimde aynıdır. İlki altın üye olmayanlar için ki bu resimler bir müddet sonra silinebiliyor. İkincisi ise forumun altyapısına yüklediğim resimdir. Forum varolduğu sürece kalıcı olacaktır.

Malasef Kohran bey gene açılmadı başka bir yolu varmıdır.

 

[alicimri]

Aşağdaki KTF yi deneyin

Function tarihi(metin)
ayi = Mid(metin, 4, InStr(4, metin, " ") - 4)
If Right(ayi, 1) = "k" And Len(ayi) = 4 Then cevir = "01"
If Right(ayi, 1) = "t" And Len(ayi) = 5 Then cevir = "02"
If Right(ayi, 1) = "t" And Len(ayi) = 4 Then cevir = "03"
If Right(ayi, 1) = "n" And Len(ayi) = 5 Then cevir = "04"
If Right(ayi, 1) = "s" And Len(ayi) = 5 Then cevir = "05"
If Right(ayi, 1) = "n" And Len(ayi) = 7 Then cevir = "06"
If Right(ayi, 1) = "z" And Len(ayi) = 6 Then cevir = "07"
If Right(ayi, 1) = "s" And Len(ayi) = 7 Then cevir = "08"
If Right(ayi, 1) = "l" And Len(ayi) = 5 Then cevir = "09"
If Right(ayi, 1) = "m" And Len(ayi) = 4 Then cevir = "10"
If Right(ayi, 1) = "m" And Len(ayi) = 5 Then cevir = "11"
If Right(ayi, 1) = "k" And Len(ayi) = 6 Then cevir = "12"
tarihi = CDate(Left(Replace(metin, ayi, cevir), 10))
End Function

Not: sayı formatında dönebilir, hücre biçimlendirden tarih formatına çevirin

 

[Korhan Ayhan]

Siz paylaştığım resimleri görebiliyor musunuz?

 

[btanju]

Siz paylaştığım resimleri görebiliyor musunuz?

Malesef göremiyorum açtığımda ikiside HATA diye uyarı vermektedir.

 

[btanju]

Aşağdaki KTF yi deneyin

Function tarihi(metin)
ayi = Mid(metin, 4, InStr(4, metin, " ") - 4)
If Right(ayi, 1) = "k" And Len(ayi) = 4 Then cevir = "01"
If Right(ayi, 1) = "t" And Len(ayi) = 5 Then cevir = "02"
If Right(ayi, 1) = "t" And Len(ayi) = 4 Then cevir = "03"
If Right(ayi, 1) = "n" And Len(ayi) = 5 Then cevir = "04"
If Right(ayi, 1) = "s" And Len(ayi) = 5 Then cevir = "05"
If Right(ayi, 1) = "n" And Len(ayi) = 7 Then cevir = "06"
If Right(ayi, 1) = "z" And Len(ayi) = 6 Then cevir = "07"
If Right(ayi, 1) = "s" And Len(ayi) = 7 Then cevir = "08"
If Right(ayi, 1) = "l" And Len(ayi) = 5 Then cevir = "09"
If Right(ayi, 1) = "m" And Len(ayi) = 4 Then cevir = "10"
If Right(ayi, 1) = "m" And Len(ayi) = 5 Then cevir = "11"
If Right(ayi, 1) = "k" And Len(ayi) = 6 Then cevir = "12"
tarihi = CDate(Left(Replace(metin, ayi, cevir), 10))
End Function

Not: sayı formatında dönebilir, hücre biçimlendirden tarih formatına çevirin

Malesef Ş harfi Ç ve Ğ ve İ değişim olmuyor.

 

[alicimri]

"Malesef Ş harfi Ç ve Ğ ve İ değişim olmuyor." derken neyi kast ediyorsunuz.
O harflere bakmıyor, ay adının son harfine göre işlem yapıyor.

 

[btanju]

"Malesef Ş harfi Ç ve Ğ ve İ değişim olmuyor." derken neyi kast ediyorsunuz.
O harflere bakmıyor, ay adının son harfine göre işlem yapıyor.

Sorum aşağıdaki gibiydi ama vermiş olduğunuz kodu uyarlayamadım

Selamlar,

Kullandığım Excel ingilizce söyle bir sıkıntım var başka bir excelden yada mail üzerinden kopya yapıştır yapınca Örnek (26 Ağustos 2021 Perşembe) olarak geliyor. Bu gibi çok kopyalama yapıyorum silmek için ya tektek günleri siliyorum yada CTR+F ile günleri tektek yazıp siliyorum. Kullanmış olduğum Excel ingilizce olmasından dolayı Makro ile otomatik silinsin dediğimde Perşembe veya Çarşamba da Ş harfi olmasından dolayı makroda o harfler çıkmıyor ve silinmiyor bazenden büyük İ oluyor gene olmuyor. Bunun için bir kod yada formül varmıdır. Şimdiden herkese teşekkür ederim.

 

[ÖmerFaruk]

Aşağıdaki soruları cevaplarsanız hızlıca yol alırız.

1. Türkçe olarak gelen tarih değerleri hangi sütunda
2. Sadece tarihin olduğu hücreyimi sileceksiniz yoksa satırın tamamını mı? Yoksa daha farklı bir yeri mi?
3. Silinmesini istediğiniz günleri nasıl seçiyorsunuz? Eğer şu an belli bir yer yoksa seçimi nasıl yapmayı istiyorsunuz?
4. İlave.... Bu tarih değerleri hangi formatta görünüyor

 

[btanju]

Aşağıdaki soruları cevaplarsanız hızlıca yol alırız.

1. Türkçe olarak gelen tarih değerleri hangi sütunda = D360 arasında oluyor
2. Sadece tarihin olduğu hücreyimi sileceksiniz yoksa satırın tamamını mı? Yoksa daha farklı bir yeri mi? = Satır silmeyeceğim aynı şekilde D360 hücrelerin içinde işlem yapmasını istiyorum.
3. Silinmesini istediğiniz günleri nasıl seçiyorsunuz? Eğer şu an belli bir yer yoksa seçimi nasıl yapmayı istiyorsunuz? = Silinmesini istediğim günler haftanın günleri mesala örnek olarak mail geliyor bize o mailden kopyala yaptığımızda mailin içindeki excel yada mail yolu ile ilettikleri veriden tarihi kopyala dediğimiz de kendi excelimize yapıştır dediğimizde örnek olarak 1 Eylül 2021 Çarşamba olarak geliyor bizde tektek CTRL+H yaparak Çarşmabları siliyoruz. Bu işlem hergün oluyor Çarşamba,Perşembe gibi bunlaı makro yada bir butona basarak otomatik silmesini istiyorumki tarih formatında çıksın örnek 1 Eylül 2021 içine tıklayınca 1.09.2021 olarak gözüküyor.
4. İlave.... Bu tarih değerleri hangi formatta görünüyor = Mailden aldığımda kendi excelime yapıştırınca Metin olarak gözüküyor ben tarih formatında gözükmesini istiyorum.

Şimdiden Teşekkür Ederim.

1. Türkçe olarak gelen tarih değerleri hangi sütunda = D360 arasında oluyor
2. Sadece tarihin olduğu hücreyimi sileceksiniz yoksa satırın tamamını mı? Yoksa daha farklı bir yeri mi? = Satır silmeyeceğim aynı şekilde D360 hücrelerin içinde işlem yapmasını istiyorum.
3. Silinmesini istediğiniz günleri nasıl seçiyorsunuz? Eğer şu an belli bir yer yoksa seçimi nasıl yapmayı istiyorsunuz? = Silinmesini istediğim günler haftanın günleri mesala örnek olarak mail geliyor bize o mailden kopyala yaptığımızda mailin içindeki excel yada mail yolu ile ilettikleri veriden tarihi kopyala dediğimiz de kendi excelimize yapıştır dediğimizde örnek olarak 1 Eylül 2021 Çarşamba olarak geliyor bizde tektek CTRL+H yaparak Çarşmabları siliyoruz. Bu işlem hergün oluyor Çarşamba,Perşembe gibi bunlaı makro yada bir butona basarak otomatik silmesini istiyorumki tarih formatında çıksın örnek 1 Eylül 2021 içine tıklayınca 1.09.2021 olarak gözüküyor.
4. İlave.... Bu tarih değerleri hangi formatta görünüyor = Mailden aldığımda kendi excelime yapıştırınca Metin olarak gözüküyor ben tarih formatında gözükmesini istiyorum.

 

[Korhan Ayhan]

Hazırladığım dosya ve makro ektedir. Umarım işinize yarar.

Dosyada sorunlu tarihler A sütununda bulunuyor. K ve L sütununda ise gün ve ay isimleri var.

A sütununda ki tarih içeren hücreleri seçip makroyu çalıştırınız.

Deneme.xlsm dosyasını indir - download

Deneme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[btanju]

Hazırladığım dosya ve makro ektedir. Umarım işinize yarar.

Dosyada sorunlu tarihler A sütununda bulunuyor. K ve L sütununda ise gün ve ay isimleri var.

A sütununda ki tarih içeren hücreleri seçip makroyu çalıştırınız.

Deneme.xlsm dosyasını indir - download

Deneme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Korhan Bey,
Emeğinize sağlık ben anlatamadım herhalde yanlış anlattım kusurabakmayın sizleride uğraştırdım. göndermiş olduğunuz dosyada A sütünunda bulunan Tarihler TEXT olarak yazılmış orası doğru benim istediğim Makroyu çalıştırdığımda yada butona bastığımda A sütununda bulunan TEXT ile yazılan tarihlerin Tarih olarak yazılmasını istiyordum.

Örnek A sütununda 01 Eylül 2021 Çarşamba Butona basıldığında 1.09.2021 olarak gözükmesini istiyordum. Tekrar kusurabakmayın uğraştırdım sizleri

 

[Haluk]

Korhan Beyin 16 No'lu mesajındaki dosyasındaki verileri baz alarak alternatif;

Sub Test()
    Dim myRng As Range
    For Each myRng In Range("A1:A30")
        myRng.Value = Format(CDate(Replace(myRng, Split(myRng)(3), "")), "dd.mm.yyyy")
    Next
End Sub

.

 

[btanju]

Korhan Beyin 16 No'lu mesajındaki dosyasındaki verileri baz alarak alternatif;

Sub Test()
    Dim myRng As Range
    For Each myRng In Range("A1:A30")
        myRng.Value = Format(CDate(Replace(myRng, Split(myRng)(3), "")), "dd.mm.yyyy")
    Next
End Sub

.

Hata vermektedir. END Debug hatası almaktayım Makroya basınca bunlar çıkıyor hocam Run Time9 hatası geliyor

 

[Haluk]

Cikmaz...ben deneyip de yazdim mesaji

.