Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [C5:I10]) Is Nothing Then Exit Sub
If Target.Value = "Rapor" And Target.Interior.ColorIndex = 16 Then
Target.Value = "Rpr"
Exit Sub
End If
hata:
ActiveSheet.Range("H5:I10").Replace what:="Rapor"...