Günleri Değiştirmek

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,846
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Deneyiniz.

C++:
Option Explicit

Sub Gunleri_Degistir()
    Dim Gun_Eski As Variant, Gun_Yeni As Variant, Gun_Bul As Byte, Veri As Variant, X As Long
    
    Gun_Eski = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
    Gun_Yeni = Array("Pazar", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi")
    
    Veri = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Value
    
    For X = LBound(Veri) To UBound(Veri)
        Gun_Bul = Application.WorksheetFunction.Match(Veri(X, 1), Gun_Eski, 0)
        Veri(X, 1) = Gun_Yeni(Gun_Bul - 1)
    Next
    
    Range("A1").Resize(UBound(Veri)) = Veri
    
    MsgBox "Günler değiştirilmiştir.", vbInformation
End Sub
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,501
Excel Vers. ve Dili
2013
Merhaba.

Alternatif .

B1 e =A1-1 yazarak yapabilirsiniz.
Daha sonra B sütununu kopyalayıp A sütununa Özel yapıştır Değerleri kopyalarsınız.
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
16,173
Excel Vers. ve Dili
Excel, 2016 - İngilizce
.

Alternatif.

Ekteki dosyayı inceleyin.

.
 

Ekli dosyalar

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,846
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Yandaki sütunda gün değişimi için alternatif formül;

C++:
=ARA(A1;{"Cuma"\"Cumartesi"\"Çarşamba"\"Pazar"\"Pazartesi"\"Perşembe"\"Salı"};{"Perşembe"\"Cuma"\"Salı"\"Cumartesi"\"Pazar"\"Çarşamba"\"Pazartesi"})
 
Katılım
6 Temmuz 2015
Mesajlar
736
Excel Vers. ve Dili
2003
Merhabalar ,

1 soruya 4 alternatif. Maşallah diyorum. 1 tane de ben vereyim 5 olsun. :)
Yalnız bizim alternatif çözüm, uzun yoldur.

Ctrl + H (Bul Değiştir) ile yapabilirsiniz. Bul değiştir'de;
Büyük-Küçük Harf Eşleştir ve Tüm Hücre İçeriğini Eşleştir seçeneklerini aktif ederek, tek tek de değişiklik yapabilirsiniz.
Şöyle ki, Pazartesi'yi Pazar'a çevirecekseniz,
Aranan Pazartesi, Yeni değer (büyük harfler ile) PAZAR yaparsanız olacaktır.
 
Üst