• DİKKAT

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

Haftanın Günlerini Silme

B

btanju

Katılım
27 Aralık 2019
Mesajlar
66
Excel Vers. ve Dili
Microsoft10
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.​
 
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?
 
Korhan Ayhan' Alıntı:
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?
Genişletmek için tıkla ...

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




229945
 

Ekli dosyalar

  • 1631101144404.jpeg
    1631101144404.jpeg
    286.1 KB · Görüntüleme: 5
Korhan Ayhan' Alıntı:
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
Genişletmek için tıkla ...

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.

 
İ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.
 
Korhan Ayhan' Alıntı:
İ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.
Genişletmek için tıkla ...
Malasef Kohran bey gene açılmadı başka bir yolu varmıdır.
 
Aşağdaki KTF yi deneyin
Kod: 
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
 
Siz paylaştığım resimleri görebiliyor musunuz?
 
alicimri' Alıntı:
Aşağdaki KTF yi deneyin
Kod: 
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
Genişletmek için tıkla ...
Malesef Ş harfi Ç ve Ğ ve İ değişim olmuyor.
 
"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.
 
alicimri' Alıntı:
"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.
Genişletmek için tıkla ...

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.
 
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
 
Son düzenleme:
ÖmerFaruk' Alıntı:
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 = D3:D60 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 D3:D60 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.
Genişletmek için tıkla ...

Şimdiden Teşekkür Ederim.

1. Türkçe olarak gelen tarih değerleri hangi sütunda = D3:D60 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 D3:D60 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.
 
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 s6.dosya.tc
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
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 s6.dosya.tc
Genişletmek için tıkla ...
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
 
Korhan Beyin 16 No'lu mesajındaki dosyasındaki verileri baz alarak alternatif;

C#: 
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

.
 
Haluk' Alıntı:
Korhan Beyin 16 No'lu mesajındaki dosyasındaki verileri baz alarak alternatif;

C#: 
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

.
Genişletmek için tıkla ...

Hata vermektedir. END Debug hatası almaktayım Makroya basınca bunlar çıkıyor hocam Run Time9 hatası geliyor
 
Cikmaz...ben deneyip de yazdim mesaji

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst