Sub deneme()
Select Case Range("A1").Value
Case Range("A1").Value Like "*" & "PTS" & "*"
Range("B1").Value = "PAZARTESİ"
Case Range("A1").Value Like "*" & "SSL" & "*"
Range("B1").Value = "SALI"
Case Range("A1").Value Like "*" & "CRS" & "*"
Range("B1").Value = "ÇARŞAMBA"
Case Else
Range("B1") = "HATA"
End Select
End Sub
Arkadaşlar yukarıdakine benzer bir kodum var. Eğer A1 hücresinde PTS yazıyorsa B1 hücresinin değerinin "Pazartesi"; "SSL" yazıyorsa B1 hücresinin "SALI"; eğer a1="CRS" ise de B1 hücresinde "ÇARŞAMBA" yazmasını istiyorum bunun için yukarıdaki gibi bir kod yazdım ama A1 hücresine "SSL" yazıp kodu çalıştırdığımda "HATA" mesajını alıyorum. Bunu nasıl yapabilirim? yardımcı olursanız çok sevinirim
