DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
=ARA(A1;{"Cuma"\"Cumartesi"\"Çarşamba"\"Pazar"\"Pazartesi"\"Perşembe"\"Salı"};{"Perşembe"\"Cuma"\"Salı"\"Cumartesi"\"Pazar"\"Çarşamba"\"Pazartesi"})