Günleri Değiştirmek

[aligunes]

 

[Korhan Ayhan]

Deneyiniz.

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]

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]

.

Alternatif.

Ekteki dosyayı inceleyin.

.

 

[Korhan Ayhan]

Yandaki sütunda gün değişimi için alternatif formül;

=ARA(A1;{"Cuma"\"Cumartesi"\"Çarşamba"\"Pazar"\"Pazartesi"\"Perşembe"\"Salı"};{"Perşembe"\"Cuma"\"Salı"\"Cumartesi"\"Pazar"\"Çarşamba"\"Pazartesi"})

 

[Saban Sertkaya]

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.